/data/1/pulseprogram
#! | 252 lines | 134 code | 118 blank | 0 comment | 0 complexity | 68f0f6f96d6a97973741d6e502b4fa17 MD5 | raw file
1# 1 "/opt/pv/exp/stan/nmr/lists/pp/erez_dPGSE_w180.gp" 2# 1 "/opt/pv/exp/stan/nmr/lists/pp/erez_dPGSE_w180.gp" 3;diff_2qk_B.gp 4;2D stimulated echo sequence 5;new version using gp syntax 14.12.99 KLZ 6;now standard include files and lock commands only on l12 03.08.00 KLZ 7;dummy gradient pulses included l13 05.10.00 KLZ 8;timing for rf command changed 25.02.02 KLZ 9;phase cycle corrected 04.06.02 KLZ 10;timing for rf command changed again 07.11.02 KLZ 11 12# 1 "/opt/pv/exp/stan/nmr/lists/pp/Grad.incl" 1 13;Grad.incl - include file for Gradient Spectroscopy 14; 15;avance-version (00/07/27) 16 17 18;gradient pulse for gs-syntax 19 20 21 22;blank/unblank gradient amplifier and turn lock-hold on/off 23 24 25 26;blank/unblank gradient amplifier 27 28 29 30;for RCB board (BSMS) 31 32 33 34 35define list<gradient> EA=<EA> 36 37 38 39;$Id: Grad1.incl,v 1.6 2000/10/16 11:47:19 ber Exp $ 40# 10 "/opt/pv/exp/stan/nmr/lists/pp/erez_dPGSE_w180.gp" 2 41 42# 1 "/opt/pv/exp/stan/nmr/lists/pp/Avance.incl" 1 43;Avance.incl 44; 45;avance-version (02/08/12) 46 47 48;switch between high and low stage oh H amplifier 49 50 51 52;use 2H channel for lock or pulse (lockswitch) 53 54 55 56;allow for 2H decoupling (lockswitch) 57 58 59 60;turn lock-hold on/off (BSMS) 61 62 63 64;switch between 1H or 19F output (H amplifier) 65 66 67 68;select output for 19F (amplifier) 69 70 71 72;homospoil on/off (BSMS) 73 74 75 76;for Q-switch probes 77 78 79 80;for mixing probe 81 82 83 84;gating pulse for RX22, ADC and HPPR 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104;not active 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149;$Id: Avance1.incl,v 1.5.2.4 2003/02/14 08:10:53 pfre Exp $ 150# 11 "/opt/pv/exp/stan/nmr/lists/pp/erez_dPGSE_w180.gp" 2 151 152ze 15310u 1545m pl1:f1 ;set rf power level 155 156if (l12) { 157 start, d1 setnmr2^0 158 d11 setnmr0|34|32|33 setnmr2|0 ;unblank gradient amplifier 159} else { 160 start, d1 161 d11 setnmr0|34|32|33 162} 163if (l3) { 164 dummy, p17:gp1*diff_ramp ;trapezoidal gradient pulse 165 p18:gp2*diff_ramp ;trapezoidal gradient pulse 166 p17:gp3*diff_ramp ;trapezoidal gradient pulse 167 d2 ;gradient stabilisation time 168 d9 setnmr0^34^32^33 ;tau 169 if (l11) { d11 setnmr0|34|32|33 ;unblank gradient amplifier 170 p17:gp4 ;trapezoidal gradient pulse 171 p19:gp5 ;trapezoidal gradient pulse 172 p17:gp6 ;trapezoidal gradient pulse 173 d2 174 } 175 if (l12) { 176 d5 setnmr0^34^32^33 setnmr2^0 ;long tau 177 d11 setnmr0|34|32|33 setnmr2|0 ;unblank gradient amplifier 178 } else { 179 d5 setnmr0^34^32^33 ;long tau 180 d11 setnmr0|34|32|33 ;unblank gradient amplifier 181 } 182 lo to dummy times l13 183} 184 p1:f1 ph1 ;90 degree pulse 185 d11 186 p17:gp1*diff_ramp ;trapezoidal gradient pulse 187 p18:gp2*diff_ramp ;trapezoidal gradient pulse 188 p17:gp3*diff_ramp ;trapezoidal gradient pulse 189 d12 ;gradient stabilisation time 190 d9 setnmr0^34^32^33 ;tau 191 p2:f1 ph11 192 d11 setnmr0|34|32|33 193 d12 194 p17:gp11*diff_ramp ;trapezoidal gradient pulse 195 p19:gp12*diff_ramp ;trapezoidal gradient pulse 196 p17:gp13*diff_ramp ;trapezoidal gradient pulse 197 d2 198 d20 ;gradient stabilisation time 199 d9 setnmr0^34^32^33 ;tau 200 p2:f1 ph20 ;90 degree pulse 201 d11 setnmr0|34|32|33 202 d20 203 d2 204 205;if (l11) { d11 setnmr0|34|32|33 ;unblank gradient amplifier 206; d2 207;} 208;if (l12) { 209; d5 setnmr0^34^32^33 setnmr2^0 ;long tau 210; d11 setnmr0|34|32|33 setnmr2|0 ;unblank gradient amplifier 211;} else { 212; d5 setnmr0^34^32^33 ;long tau 213 ; d15 214 ; d11 setnmr0|34|32|33 ;unblank gradient amplifier 215;} 216 217 p17:gp7*diff_ramp ;trapezoidal gradient pulse 218 p20:gp8*diff_ramp ;trapezoidal gradient pulse 219 p17:gp9*diff_ramp ;trapezoidal gradient pulse 220 d12 ;gradient stabilisation time 221 d9 setnmr0^34^32^33 ;tau 222 p2:f1 ph2 223 d11 setnmr0|34|32|33 224 d12 225 p17:gp17*diff_ramp ;trapezoidal gradient pulse 226 p21:gp18*diff_ramp ;trapezoidal gradient pulse 227 p17:gp19*diff_ramp ;trapezoidal gradient pulse 228 ;d2 ;gradient stabilisation time 229 d9 setnmr0^34^32^33 ;tau 230 go=start ph31 231 100u wr #0 if #0 zd 232 ;ip1 233 ;lo to start times 2 234 ;rp1 235 igrad diff_ramp 236 lo to start times l10 ;td1 = number of gradientsteps 237 100m 238if (l12) { 239 100m rf #0 setnmr2^0 ;reset file pointer 240} else { 241 100m rf #0 ;reset file pointer 242} 243 lo to start times l1 ;l1 = Number of repetitions 244exit 245 246ph0=0 247ph1=0 248ph11=0 1 0 1 1 1 1 0 249ph20=0 1 1 0 1 0 1 1 250ph2 =0 1 0 1 0 0 0 1 251ph31=0 2 2 0 2 2 0 0 252