;stebpgp1s19 ;avance-version (09/04/17) ;2D sequence for diffusion measurement using stimulated echo ;using bipolar gradient pulses for diffusion ;using 1 spoil gradient ;water suppression using 3-9-19 pulse sequence with gradients ; ;$CLASS=HighRes ;$DIM=2D ;$TYPE= ;$SUBTYPE= ;$COMMENT= #include #include #include define list diff= "p2=p1*2" "DELTA1=d20-p1*2-p2-p30*2-d16*3-p19" "acqt0=-p1*2/PI" 1 ze 2 d1 3 50u pl1:f1 UNBLKGRAD p1 ph1 p30:gp6*diff d16 p2 ph2 p30:gp6*-1*diff d16 p1 ph3 p19:gp7 d16 DELTA1 p1 ph4 p30:gp6*diff d16 p2 ph2 p30:gp6*-1*diff d16 p16:gp1 d16 pl18:f1 p27*0.231 ph5 d19*2 p27*0.692 ph5 d19*2 p27*1.462 ph5 d19*2 p27*1.462 ph6 d19*2 p27*0.692 ph6 d19*2 p0*0.231 ph6 4u p16:gp1 d16 4u BLKGRAD go=2 ph31 d1 mc #0 to 2 F1QF(calgrad(diff)) exit ph1= 0 ph2= 0 0 0 0 2 2 2 2 ph3= 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 ph4= 0 1 2 3 ph5= 0 ph6= 2 ph31=0 1 2 3 0 1 2 3 2 3 0 1 2 3 0 1 ;pl1: f1 channel - power level for pulse (default) ;pl18: f1 channel - power level for 3-9-19-pulse (watergate) ;p0 : f1 channel - 90 degree pulse at pl18 ; use for fine adjustment ;p1 : f1 channel - 90 degree high power pulse ;p2 : f1 channel - 180 degree high power pulse ;p16: gradient pulse (WATERGATE) ;p19: gradient pulse 2 (spoil gradient) ;p27: f1 channel - 90 degree pulse at pl18 ;p30: gradient pulse (little DELTA * 0.5) ;d1 : relaxation delay; 1-5 * T1 ;d16: delay for gradient recovery ;d19: delay for binomial water suppression ; d19 = (1/(2*d)), d = distance of next null (in Hz) ;d20: diffusion time (big DELTA) ;ns : 8 * n ;ds : 4 * m ;td1: number of experiments ;FnMODE: QF ; use xf2 and DOSY processing ;use gradient ratio: gp 1 : gp 6 : gp7 ; -20 : 100 : -17.13 ;for z-only gradients: ;gpz1: -20% ;gpz6: 100% ;gpz7: -17.13% (spoil) ;use gradient files: ;gpnam1: SMSQ10.100 ;gpnam6: SMSQ10.100 ;gpnam7: SMSQ10.100 ;use AU-program dosy to calculate gradient-file Difframp ;$Id: stebpgp1s19,v 1.7.2.1 2013/08/30 09:43:35 ber Exp $