; Minimal Bruker pulseprogram created by write_pprog
"p41=7.2/(cnst2*bf1/1000000)"
"spw25=plw1*(pow((p1*1.01/p41)/0.125,2))"
"spoff25=bf1*(cnst1/1000000)-o1"
"spoal25=0.5"
"p42=4.875/(cnst2*bf1/1000000)"
"spw26=plw1*(pow((p1*1.97/p42)/0.0798,2))"
"spoff26=bf1*(cnst1/1000000)-o1"
"spoal26=0.5"
"p43=4.6/(cnst2*bf1/1000000)"
"spw28=plw1*(pow((p1*1.04/p43)/0.06103,2))"
"spw29=plw1*(pow((p1*1.04/p43)/0.06103,2))"
"spoff28=bf1*(cnst1/1000000)-o1"
"spoal28=0"
"spoff29=bf1*(cnst1/1000000)-o1"
"spoal29=1.0"
"p16=1000u"
"p17=300u"
"p8=500"
"if ( bf2 < 165 ) {spw13=plw2*(pow((p3/25.5832),2))"
"p50 =500u"
"spoff50=0.0"
"spw50=plw3*(pow((p21*8/p50),2))"
"p51=4.875/(40*bf3/1000000)"
"spw51=plw3*(pow((p21*1.97/p51)/0.0798,2))"
"spoff51=0.0"
"spoal51=0.5"
"d11=30m"
"d25=2.6m"
"d26=2.7m"
"d27=2.5m"
"DELTA1=d25-p41*0.5-p42*0.5"
"DELTA2=d27-p17-d16-p42*0.5-p43*0.5"
"DELTA3=d26-p17-d16-p42*0.5"
"DELTA=d0*2+p8+p21*4/3.1416"
"d0=d0orig + t1loop * in0 "
"in0=inf1/2"
"acqt0=0"
"d0orig=d0"
"t1loop=0"
"ph1loop=0"
"ST1CNT = td1 / 2"
"MCREST = d11 - d11"
"MCWRK = 0.043478*d11"
"phval6 = (ph1loop % 2) * 180"
"phval7 = (ph1loop % 2) * 180"
"phval5 = (t1loop * 180)%360"
"phval31 = (t1loop * 180)%360"
"phval0 = ph1loop * 1"
"ph1loop+=1"
"t1loop+=1"
d01 ip6 + phval6
d01 ip7 + phval7
d01 ip5 + phval5
d01 ip31 + phval31
d01 ip6 + phval6
d01 ip7 + phval7
d01 ip5 + phval5
d01 ip31 + phval31
lo to 0 times 2
d01 ip6 + phval6
d01 ip7 + phval7
d01 ip5 + phval5
d01 ip31 + phval31
lo to 0 times ST1CNT
lo to 0 times tdav
