;C.90

;;version: 1.0/ TS3.2 /2013/07/12

;written for BioToolkit: VEDA July 2013
;double-checked: VEDA SEWE July 2013


;direct excitation and acquisition on C 


;Avance II / III version
;parameters:
;p1      : C 90 at pl1
;pl1     : C pulse power
;d1 : recycle delay
;ns		 : 4 (full:4)
;cnst31 : =MAS spin rate (or =1e6 for static)
;l1 : # of rotor cycles (or tau in us)




;$COMMENT= single pulse excitation, acquisition without decoupling
;$CLASS=BioSolids
;$DIM=1D
;$TYPE=direct excitation
;$SUBTYPE=Setup


prosol relations=<biosolCHN>

#include <CHN_defs.incl> 
		; defines which channel corresponds to which nucleus
#include <trigg.incl>
		; definition of external trigger output


;"acqt0=-p1*2/3.1416"
"acqt0=0"


                            ;##########################
;$EXTERN                    ;# Python insertion point #
                            ;##########################

Prepare, ze

;######################################################
;#               Protections: Pre-Check               #
;######################################################

"p2=p1*2"
"d6=((1s*l1)/cnst31)-(p1/2)-(p2/2)"


;######################################################
;#           Start of Active Pulse Program            #
;######################################################

Start, 30m
  d1 do:H 

  trigg
  1u trigpe4            ;MAS trigger
;
  1u fq=0.0:C				;set 13C on resonance

  1u cw:H pl13:H           ;pl12 is used here with tppm, spinal, pl13 with cwlg, cwlgs
  (p1 pl1 ph1):C
  d6
  (p2 pl1 ph2):C
  d6
;#######################################################
;#                     Acquisition                     #
;#######################################################

  0.1u do:H
  1u cpds2:H pl12:H           ;pl12 is used here with tppm, spinal, pl13 with cwlg, cwlgs
  go=Start ph31         
  1m do:H
  30m mc #0 to Start F0(zd)
  
HaltAcqu, 1m
Exit, exit

;#####################################
;#             Phase Cycle           #
;#####################################

ph1= 0 2 1 3		; C hard pulse
ph2= 1 3 0 2		; C hard pulse

ph31=0 2 1 3		; receiver

;#######################################################



;$Id: C.90,v 1.1.2.2 2013/08/29 14:03:53 ber Exp $