/data/1/pulseprogram

  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