;H.90

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

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


;Avance II / III version
;parameters:
;p1      : H 90 at pl1
;pl1     : H 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

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

  (p1 pl1 ph1):f1
  d6
  (p2 pl1 ph2):f1
  d6
;#######################################################
;#                     Acquisition                     #
;#######################################################

  go=Start ph31         
  30m mc #0 to Start F0(zd)
  
HaltAcqu, 1m
Exit, exit

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

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

ph31=0 1 2 3		; receiver

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



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