# 1 "/u/exp/stan/nmr/lists/pp/stdcconhbax.3d"
;stdcconhbax.3d from
;stdbaonhbax.3d

;Pulses
;p1   : 7us @ pl1 : 3dB
;p10  : 1m	water flipback during WATERGATE
;pl10 : ~47.5dB
;p20  : 2m	water flipback during ZZ filter 
;pl11 : ~53dB
;p21  : 50u	waltz16 cpd 90
;pl21 : ~20dB

;p3   : 49.0u @ pl3 :10.7dB
;p4   : 43.8u @ pl4 : 3.6dB
;p11  : 53.0u @ sp1 :10.7dB spnam1 = stdsq.128 spoffs1 = 19617hz
;p12  : 47.4u @ sp2 : 3.6dB spnam2 = stdsq.128 spoffs2 = 19617hz
;p13  :150.0u @ sp3 : 9.8dB spnam3 = stdsinc.128 spoffs3 = 19617hz
;p14  : 47.4u @ sp4 : 3.6dB spnam4 = stdsq.128 spoffs4 = 1590hz
;p9   : ~1m SL purge @ pl9: 7.8dB
;p19  : 35u DIPSI3 90 @ pl19: 7.8dB

;p5   : 40us @ pl5  : 0.0dB
;pcpd3: 200u @ pl15 : 16.3dB

;Gradients
;p24  : 2.5m ZZ filtration gradient 1
;gpx1 : +40% ZZ filtration gradient 1

;p22  : 1.0m ZZ filtration gradient 2
;gpx2 : -40% ZZ filtration gradient 2

;p23  : 0.5m WATERGATE water dephasing gradient
;gpx3 : +60% WATERGATE water dephasing gradient
;gpy3 : +60% WATERGATE water dephasing gradient

;"d0 =10u"
 "d1 =100ms"
;"d2 =1.5m"
;"d4 =2.5m
 "d5 =1.05m"
;"d6 =5u"
 "d7 =1.05m-p13-10u+p1*2+d0+d6"
 "d8 =d11-p13-10u"
 "d9 =d10-4.4m-p14"
;"d10=11.4m"	;"Tcn"
;"d11=3.4m"	;"Tcn"
;"d12=12.4m"	;"Tn"
 "d14=d4-p10-p23"
 "d15=(d12-p14)/2"
 "d16=(d12-p14)/2"
 "d17=(d12-p14)/2-5.4m-5u-p21"
 "d22=p4/2-p1"
 "d24=p5-p1"
 "d25=p5-p12/2"
;"d30=100u"	;Gradient recovery delay
;"d31=2s"

1   ze
2   10u do:f3
    d1
3   30m
4   50m
5   30m
6   d31 
    10u fq1:f1
    10u pl1:f1
    10u pl4:f2
    10u pl5:f3
    p1 ph0
    d2
    (d22 p1*2 ph0) (p4 ph0):f2
    d2 pl3:f2
    p1 ph11
    	p24:gp1
    	d30
    (p3 ph1):f2
    d0 pl31:f2			;t1a increment
    (d5) (p13:sp3 ph0):f2 (p5*2 ph0):f3
    p1*2 ph0
    d6 pl4:f2			;t1b increment
    (p4 ph2):f2
    d7 pl21:f1 pl31:f2		;t1c decrement
    (p13:sp3 ph0):f2
    10u pl9:f2
    (p9 ph0):f2			;SL
        10u pl19:f2
11      (p19*2.722 ph12):f2
        (p19*4.389 ph10):f2
        (p19*2.778 ph12):f2
        (p19*3.055 ph10):f2
        (p19*0.333 ph12):f2
        (p19*2.556 ph10):f2
        (p19*4.000 ph12):f2
        (p19*2.722 ph10):f2
        (p19*4.111 ph12):f2
        (p19*3.778 ph10):f2
        (p19*3.889 ph12):f2
        (p19*2.889 ph10):f2
        (p19*3.000 ph12):f2
        (p19*0.333 ph10):f2
        (p19*2.500 ph12):f2
        (p19*4.056 ph10):f2
        (p19*2.833 ph12):f2
        (p19*4.389 ph10):f2
12      (p19*2.722 ph10):f2
        (p19*4.389 ph12):f2
        (p19*2.778 ph10):f2
        (p19*3.055 ph12):f2
        (p19*0.333 ph10):f2
        (p19*2.556 ph12):f2
        (p19*4.000 ph10):f2
        (p19*2.722 ph12):f2
        (p19*4.111 ph10):f2
        (p19*3.778 ph12):f2
        (p19*3.889 ph10):f2
        (p19*2.889 ph12):f2
        (p19*3.000 ph10):f2
        (p19*0.333 ph12):f2
        (p19*2.500 ph10):f2
        (p19*4.056 ph12):f2
        (p19*2.833 ph10):f2
        (p19*4.389 ph12):f2
        lo to 12 times 2
        (p19*2.722 ph12):f2
        (p19*4.389 ph10):f2
        (p19*2.778 ph12):f2
        (p19*3.055 ph10):f2
        (p19*0.333 ph12):f2
        (p19*2.556 ph10):f2
        (p19*4.000 ph12):f2
        (p19*2.722 ph10):f2
        (p19*4.111 ph12):f2
        (p19*3.778 ph10):f2
        (p19*3.889 ph12):f2
        (p19*2.889 ph10):f2
        (p19*3.000 ph12):f2
        (p19*0.333 ph10):f2
        (p19*2.500 ph12):f2
        (p19*4.056 ph10):f2
        (p19*2.833 ph12):f2
        (p19*4.389 ph10):f2
        lo to 11 times l19
;--------------------------------------------------
;NOTE:
;DIPSI-3 = 4890 degrees/cycle = 54.333*p19/cycle
;w/ RR'R'R supercycle, duration = 217.332*p19/cycle
;--------------------------------------------------
    (10u cpds1):f1 (10u pl31 p13:sp3 ph0):f2
    d8 pl4:f2
    (p4 ph3):f2
    (10u pl31 p13:sp3 ph0):f2
    d8 pl3:f2
    (p3 ph0):f2
    (10u pl31 p11:sp1 ph3):f2
    4.4m pl31:f2
    (p14:sp4 ph0):f2
    d9 pl31:f2
    (d25 p12:sp2 ph0):f2 (p5*2 ph0):f3
    d10 pl31:f2
    (p11:sp1 ph4:r):f2
      (10u p5 ph5):f3
    d15 pl31:f2
    (p14:sp4 ph0):f2
    d15 pl31:f2
    (d25 p12:sp2 ph0):f2 (p5*2 ph6):f3
    d16 pl31:f2
    (p14:sp4 ph0):f2
    d17
    5u do:f1
    p21 ph13
    5.4m pl11:f1
    (p5 ph7):f3
    	p22:gp2
    	d30
    p20 ph12:r
    10u pl1:f1
    p1 ph0
    	p23:gp3
    d14 pl10:f1
    p10 ph22:r
    10u pl1:f1
    (d24 p1*2 ph23) (p5*2 ph0):f3
    10u pl10:f1
    p10 ph22:r
    	p23:gp3
    d14 pl15:f3 fq1:f1
    go=2 ph31 cpd3:f3
    10u do:f3
    d1 wr #0 if #0 ip1 zd
    lo to 3 times 2
    10m ip31 id0
    10m ip31 id6
    10m dd7
    lo to 4 times l0
    10m rd0
    10m rd6
    10m rd7
    10m rp1
    10m ip7
    lo to 5 times 2
    10m ip31 dd15
    10m ip31 id16
    10m id17
    lo to 6 times l1
exit

    ph0 = 0
    ph1 = 0
    ph2 = 0 0 0 0 1 1 1 1
          2 2 2 2 3 3 3 3
    ph3 = 0 2
    ph4 = 0	;phcor4 54deg?
    ph5 = 0
    ph6 = 0 0 2 2
    ph7 = 0
    ph10= 0
    ph11= 1
    ph12= 2	;phcor12
    ph13= 3
    ph22= 0	;phcor22
    ph23= 2
    ph31= 0 2 0 2 2 0 2 0

