# 1 "/u/exp/stan/nmr/lists/pp/pendant"
# 1 "/u/exp/stan/nmr/lists/pp/pendant"
;pendant
;avance-version (10/22/01) - GMB
;PENDANT - Polarization ENhancement During Attached Nucleus Testing
;for non-selective polarization transfer with decoupling during
;acquisition. Additional 13C 90 to detect quaternary carbons...



# 1 "/u/exp/stan/nmr/lists/pp//Avance.incl"
;Avance2.incl
;   for 1
;
;version  00/07/27

;use 2H channel for lock or pulse (lockswitch)



;allow for 2H decoupling (lockswitch)



;turn lock-hold on/off (BSMS)



;switch between 1H or 19F output (H amplifier)



;select output for 19F (amplifier)



;homospoil on/off (BSMS)



;for Q-switch probes



;for mixing probe



;gating pulse for RX22, ADC and HPPR




;generate dwell clock


;blank/unblank receiver path



;turn dwell clock on/off





;$Id: Avance2.incl,v 1.1.2.5 2000/08/16 13:28:44 ber Exp $
# 9 "/u/exp/stan/nmr/lists/pp/pendant"



"p2=p1*2"

"p4=p3*2"

"d3=5*1s/(cnst2*8)"

"d4=1s/(cnst2*4)"

"d12=20u"


1 ze 
2 d1 do:f2 
3 d12 pl2:f2 
  (p3 ph1):f2 (p1 ph5) 
  d4
  (p4 ph1):f2 (p2 ph5) 
  d4
  (p3 ph2):f2 (p1 ph6) 
  d3
  (p4 ph1):f2 (p2 ph5)
  d3 pl12:f2
  go=2 ph31 cpd2:f2
  wr #0 
  d4 do:f2
exit


ph1=0 2
ph2=3 1
ph5=0 2
ph6=3 1
ph31=1 3


;pl1 : f1 channel - power level for pulse (default)
;pl2 : f2 channel - power level for pulse (default)
;pl12: f2 channel - power level for CPD/BB decoupling
;p1 : f1 channel -  90 degree high power pulse
;p2 : f1 channel - 180 degree high power pulse
;p3 : f2 channel -  90 degree high power pulse
;p4 : f2 channel - 180 degree high power pulse
;d1 : relaxation delay; 1-5 * T1
;d3 : 5/(8J(XH)) - 4.31 ms for JCH = 145 Hz
;d4 : 1/(4J(XH)) - 1.72 ms for JCH = 145 Hz
;d12: delay for power switching                      [20 usec]
;cnst2: = J(XH)
;NS: 4 * n
;DS: 16
;cpd2: decoupling according to sequence defined by cpdprg2
;pcpd2: f2 channel - 90 degree pulse for decoupling sequence



;$Id: pendant,v 1.0 2001/10/22 11:49:12 eng Exp $
