# 1 "/u/exp/stan/nmr/lists/pp/diff2_h2o.bv" # 1 "/u/exp/stan/nmr/lists/pp/diff2_h2o.bv" ;diff2_h2o.bv ;avance-version ;self diffusion measurement, stimulated echo (PFGSTE) ;using incremented gradient strength for ;application of increasing PFGs ; ;Tanner, J. E., J. Chem. Phys. 1970, 52, 2523. ;pl1 : f1 channel - power level for pulse (default) ;p1 : f1 channel - 90 degree high power pulse ;d1 : relaxation delay; 1-5 * T1 ;pl9: presat power level during d1 and T delay (~80-90 dB) ;gpz1: 3-9-19 gradient; 28% ;d19: 3-9-19 delay; ~60-120us ;d8: diffusion delay; 50-150 ms ;p15: diffusion gradient; 3-7 ms (@gpz2) ;gpz2: incremented gradient power level; 100% ;uncomment next line for setup of 1D version ;#define ONE_D ;uncomment next line for 15N decoupling during acquisition ;gradient strength will be incremented by 1% in each FID lgrad step=101 ;grstart defines initial gradient strength (usually 5%) define loopcounter grstart "grstart=10" "d16=300u" "d11=30m" "d12=20u" "d13=3u" "d18=d8-p15-d16-p1*2-d13*2-d12*2" # 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance.incl ; ;version 00/07/27 ;switch between high and low stage oh H amplifier ;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 ;not active ;$Id: pulseprogram,v 1.1 2021/02/11 16:20:58 bmrbsvc Exp $ # 38 "/u/exp/stan/nmr/lists/pp/diff2_h2o.bv" 2 # 1 "/u/exp/stan/nmr/lists/pp/Grad.incl" 1 ;Grad.incl - include file for Gradient Spectroscopy ; ;avance-version (00/07/27) ;gradient pulse for gs-syntax ;blank/unblank gradient amplifier and turn lock-hold on/off ;blank/unblank gradient amplifier ;for RCB board (BSMS) define list EA= ;$Id: pulseprogram,v 1.1 2021/02/11 16:20:58 bmrbsvc Exp $ # 39 "/u/exp/stan/nmr/lists/pp/diff2_h2o.bv" 2 1 ze 2 20u igrad step lo to 2 times grstart 3 d11 do:f3 4 d11 d11 setnmr2^0 20u pl9:f1 d1 cw:f1 20u do:f1 20u pl1:f1 20u setnmr2|0 p1:f1 ph1 3u p15 gron2*step d16 groff p1:f1 ph1 d12 pl9:f1 d18 cw:f1 d13 do:f1 d12 pl1:f1 p1:f1 ph1 d13 p15 gron2*step d16 groff d12 p16:gp1 d16 p1*0.231 ph4 d19*2 p1*0.692 ph4 d19*2 p1*1.462 ph4 d19*2 p1*1.462 ph5 d19*2 p1*0.692 ph5 d19*2 p1*0.231 ph5 d12 p16:gp1 d16 pl16:f3 go=3 ph31 cpd3:f3 d11 wr #0 if #0 do:f3 zd 20u igrad step lo to 4 times td1 d11 setnmr2^0 exit ph1=0 2 1 3 ph2=1 1 2 2 ph4=0 0 1 1 ph5=2 2 3 3 ph31=0 2 1 3