/data/1/pulseprogram

http://ne-proj.googlecode.com/ · #! · 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. 

  2. # 1 "/opt/pv/exp/stan/nmr/lists/pp/erez_dPGSE_w180.gp"
    3. 

  3. ;diff_2qk_B.gp
    4. 

  4. ;2D stimulated echo sequence
    5. 

  5. ;new version using gp syntax 14.12.99 KLZ
    6. 

  6. ;now standard include files and lock commands only on l12 03.08.00 KLZ
    7. 

  7. ;dummy gradient pulses included l13 05.10.00 KLZ
    8. 

  8. ;timing for rf command changed 25.02.02 KLZ
    9. 

  9. ;phase cycle corrected 04.06.02 KLZ
    10. 

  10. ;timing for rf command changed again 07.11.02 KLZ
    11. 

  11. 

  12. # 1 "/opt/pv/exp/stan/nmr/lists/pp/Grad.incl" 1
    13. 

  13. ;Grad.incl  -  include file for Gradient Spectroscopy
    14. 

  14. ;
    15. 

  15. ;avance-version (00/07/27)
    16. 

  16. 

  17. 

  18. ;gradient pulse for gs-syntax
    19. 

  19. 

  20. 

  21. 

  22. ;blank/unblank gradient amplifier and turn lock-hold on/off
    23. 

  23. 

  24. 

  25. 

  26. ;blank/unblank gradient amplifier
    27. 

  27. 

  28. 

  29. 

  30. ;for RCB board (BSMS)
    31. 

  31. 

  32. 

  33. 

  34. 

  35. define list<gradient> EA=<EA>
    36. 

  36. 

  37. 

  38. 

  39. ;$Id: Grad1.incl,v 1.6 2000/10/16 11:47:19 ber Exp $
    40. 

  40. # 10 "/opt/pv/exp/stan/nmr/lists/pp/erez_dPGSE_w180.gp" 2
    41. 

  41. 

  42. # 1 "/opt/pv/exp/stan/nmr/lists/pp/Avance.incl" 1
    43. 

  43. ;Avance.incl
    44. 

  44. ;
    45. 

  45. ;avance-version (02/08/12)
    46. 

  46. 

  47. 

  48. ;switch between high and low stage oh H amplifier
    49. 

  49. 

  50. 

  51. 

  52. ;use 2H channel for lock or pulse (lockswitch)
    53. 

  53. 

  54. 

  55. 

  56. ;allow for 2H decoupling (lockswitch)
    57. 

  57. 

  58. 

  59. 

  60. ;turn lock-hold on/off (BSMS)
    61. 

  61. 

  62. 

  63. 

  64. ;switch between 1H or 19F output (H amplifier)
    65. 

  65. 

  66. 

  67. 

  68. ;select output for 19F (amplifier)
    69. 

  69. 

  70. 

  71. 

  72. ;homospoil on/off (BSMS)
    73. 

  73. 

  74. 

  75. 

  76. ;for Q-switch probes
    77. 

  77. 

  78. 

  79. 

  80. ;for mixing probe
    81. 

  81. 

  82. 

  83. 

  84. ;gating pulse for RX22, ADC and HPPR
    85. 

  85. 

  86. 

  87. 

  88. 

  89. 

  90. 

  91. 

  92. 

  93. 

  94. 

  95. 

  96. 

  97. 

  98. 

  99. 

  100. 

  101. 

  102. 

  103. 

  104. ;not active
    105. 

  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. 

  150. # 11 "/opt/pv/exp/stan/nmr/lists/pp/erez_dPGSE_w180.gp" 2
    151. 

  151. 

  152. ze
    153. 

  153. 10u 
    154. 

  154. 5m pl1:f1		;set rf power level
    155. 

  155. 

  156. if (l12) { 
    157. 

  157. 	start,	d1 setnmr2^0
    158. 

  158. 			d11 setnmr0|34|32|33 setnmr2|0	;unblank gradient amplifier
    159. 

  159. } else {
    160. 

  160. 	start,	d1
    161. 

  161. 			d11 setnmr0|34|32|33
    162. 

  162. }
    163. 

  163. if (l3) {
    164. 

  164. 			dummy,	p17:gp1*diff_ramp		;trapezoidal gradient pulse
    165. 

  165. 				p18:gp2*diff_ramp		;trapezoidal gradient pulse
    166. 

  166. 				p17:gp3*diff_ramp		;trapezoidal gradient pulse
    167. 

  167. 				d2				;gradient stabilisation time
    168. 

  168. 				d9 setnmr0^34^32^33			;tau
    169. 

  169. 	if (l11) {	d11 setnmr0|34|32|33				;unblank gradient amplifier
    170. 

  170. 				p17:gp4				;trapezoidal gradient pulse
    171. 

  171. 				p19:gp5				;trapezoidal gradient pulse
    172. 

  172. 				p17:gp6				;trapezoidal gradient pulse
    173. 

  173. 				d2
    174. 

  174. 	}			
    175. 

  175. 	if (l12) { 
    176. 

  176. 				d5 setnmr0^34^32^33 setnmr2^0		;long tau
    177. 

  177.   				d11 setnmr0|34|32|33 setnmr2|0 	;unblank gradient amplifier
    178. 

  178. 	} else {
    179. 

  179. 				d5 setnmr0^34^32^33			;long tau
    180. 

  180.   				d11 setnmr0|34|32|33 			;unblank gradient amplifier
    181. 

  181. 	}
    182. 

  182. 			lo to dummy times l13
    183. 

  183. }
    184. 

  184.   			p1:f1 ph1			;90 degree pulse
    185. 

  185.                         d11
    186. 

  186. 			p17:gp1*diff_ramp		;trapezoidal gradient pulse
    187. 

  187. 			p18:gp2*diff_ramp		;trapezoidal gradient pulse
    188. 

  188. 			p17:gp3*diff_ramp		;trapezoidal gradient pulse
    189. 

  189. 			d12				;gradient stabilisation time
    190. 

  190. 			d9 setnmr0^34^32^33			;tau
    191. 

  191. 			p2:f1 ph11
    192. 

  192. 			d11 setnmr0|34|32|33 
    193. 

  193. 			d12
    194. 

  194. 			p17:gp11*diff_ramp		;trapezoidal gradient pulse
    195. 

  195. 			p19:gp12*diff_ramp		;trapezoidal gradient pulse
    196. 

  196. 			p17:gp13*diff_ramp		;trapezoidal gradient pulse
    197. 

  197. 			d2
    198. 

  198. 			d20				;gradient stabilisation time
    199. 

  199. 			d9 setnmr0^34^32^33			;tau
    200. 

  200.         	        p2:f1 ph20			;90 degree pulse
    201. 

  201.                         d11 setnmr0|34|32|33
    202. 

  202.                         d20
    203. 

  203. 			d2
    204. 

  204. 			
    205. 

  205. ;if (l11) {	d11 setnmr0|34|32|33				;unblank gradient amplifier
    206. 

  206. ;			d2
    207. 

  207. ;}			
    208. 

  208. ;if (l12) { 
    209. 

  209. ;			d5 setnmr0^34^32^33 setnmr2^0		;long tau
    210. 

  210. ;  			d11 setnmr0|34|32|33 setnmr2|0 	;unblank gradient amplifier
    211. 

  211. ;} else {
    212. 

  212. ;			d5 setnmr0^34^32^33			;long tau
    213. 

  213.  ;                       d15
    214. 

  214.  ; 			d11 setnmr0|34|32|33 			;unblank gradient amplifier
    215. 

  215. ;}
    216. 

  216. 	
    217. 

  217. 	                p17:gp7*diff_ramp		;trapezoidal gradient pulse
    218. 

  218. 	                p20:gp8*diff_ramp		;trapezoidal gradient pulse
    219. 

  219. 	                p17:gp9*diff_ramp		;trapezoidal gradient pulse
    220. 

  220. 	                d12				;gradient stabilisation time
    221. 

  221.   	                d9 setnmr0^34^32^33 		;tau
    222. 

  222. 			p2:f1 ph2 
    223. 

  223. 			d11 setnmr0|34|32|33
    224. 

  224. 			d12 
    225. 

  225. 			p17:gp17*diff_ramp		;trapezoidal gradient pulse
    226. 

  226. 			p21:gp18*diff_ramp		;trapezoidal gradient pulse
    227. 

  227. 			p17:gp19*diff_ramp		;trapezoidal gradient pulse
    228. 

  228. 			;d2				;gradient stabilisation time
    229. 

  229.   			d9 setnmr0^34^32^33 		;tau
    230. 

  230. 		go=start ph31
    231. 

  231.   		100u wr #0 if #0 zd
    232. 

  232. 		;ip1 
    233. 

  233. 		;lo to start times 2
    234. 

  234. 		;rp1
    235. 

  235. 		igrad diff_ramp
    236. 

  236.     	lo to start times l10 			;td1 = number of gradientsteps
    237. 

  237. 		100m
    238. 

  238. if (l12) { 
    239. 

  239.     	100m rf #0 setnmr2^0				;reset file pointer
    240. 

  240. } else {
    241. 

  241.     	100m rf #0 						;reset file pointer
    242. 

  242. }
    243. 

  243. 	lo to start times l1				;l1 = Number of repetitions
    244. 

  244. exit
    245. 

  245. 

  246. ph0=0
    247. 

  247. ph1=0          
    248. 

  248. ph11=0 1 0 1 1 1 1 0  
    249. 

  249. ph20=0 1 1 0 1 0 1 1
    250. 

  250. ph2 =0 1 0 1 0 0 0 1
    251. 

  251. ph31=0 2 2 0 2 2 0 0
    252.