;2drestt2proj ; ; T2-relaxation encoded selective TOCSY (REST) ; measurement using PROJECT and ; DIPSI-2 with ZQF ; ; Modified 30/01/17 ; ; Guilherme Dal Poggetto and Laura Castaņar ; Univeristy of Manchester ; ;Avance II+/III Version ;Topspin 3.x ; ;$CLASS=HighRes ;$DIM=1D ;$TYPE= ;$SUBTYPE= ;$COMMENT= #include #include #include "p2=p1*2" "d11=30m" "d12=20u" "p3=p1" "FACTOR1=(d9/(p6*115.112))/2" "l1=FACTOR1*2" "acqt0=-p1*2/3.1416" "spoff32=0" "spoff34=0" "p33=1000000.0/(cnst53*4)" "cnst33= (p33/p1) * (p33/p1)" "spw32=plw1/cnst33" "p35=1000000.0/(cnst54*4)" "cnst35= (p35/p1) * (p35/p1)" "spw34=plw1/cnst35" 1 ze 2 d11 pl1:f1 10u UNBLKGRAD p8 ph21 p8 ph22 p18:gp8*-1 d18 BLKGRAD 50u LOCKH_OFF d1 50u LOCKH_ON 50u UNBLKGRAMP p1 ph1 3 d20 p2 ph2 d20 p3 ph3 d20 p2 ph2 d20 lo to 3 times c 4 p16:gp1 d16 pl0:f1 p12:sp12:f1 ph4 ;selective 180r p16:gp1 d16 pl1:f1 5 p1 ph5 20u gron0 (p32:sp32 ph7):f1 10u groff 100u pl10:f1 ;begin DIPSI2 6 p6*3.556 ph23 p6*4.556 ph25 p6*3.222 ph23 p6*3.167 ph25 p6*0.333 ph23 p6*2.722 ph25 p6*4.167 ph23 p6*2.944 ph25 p6*4.111 ph23 p6*3.556 ph25 p6*4.556 ph23 p6*3.222 ph25 p6*3.167 ph23 p6*0.333 ph25 p6*2.722 ph23 p6*4.167 ph25 p6*2.944 ph23 p6*4.111 ph25 p6*3.556 ph25 p6*4.556 ph23 p6*3.222 ph25 p6*3.167 ph23 p6*0.333 ph25 p6*2.722 ph23 p6*4.167 ph25 p6*2.944 ph23 p6*4.111 ph25 p6*3.556 ph23 p6*4.556 ph25 p6*3.222 ph23 p6*3.167 ph25 p6*0.333 ph23 p6*2.722 ph25 p6*4.167 ph23 p6*2.944 ph25 p6*4.111 ph23 lo to 6 times l1 ;end DIPSI2 p17:gp2 500u 10u gron10 (p34:sp34 ph7):f1 20u groff 10u pl1:f1 10u BLKGRAMP p1 ph6 go=2 ph31 d11 wr #0 if #0 ivc 50u LOCKH_OFF lo to 1 times td1 exit ph1=0 0 0 0 2 2 2 2 ph2=1 ph3=1 ph4=0 1 2 3 ph5=0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ph6=0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 ph7=0 ph21=0 ph22=1 ph23=3 ph25=1 ph29=0 ph31=0 2 0 2 2 0 2 0 1 3 1 3 3 1 3 1 2 0 2 0 0 2 0 2 3 1 3 1 1 3 1 3 2 0 2 0 0 2 0 2 3 1 3 1 1 3 1 3 0 2 0 2 2 0 2 0 1 3 1 3 3 1 3 1 ;POWER LEVEL ;pl0 : zero power (0W) ;pl1 : power level for pulse (default) ;pl10 : power level for TOCSY-spinlock ;sp10 : power level of double-chirp PSYCHE pulse element ;sp12 : power level of refocusing shaped pulse ;sp32 : power level of adiabatic pulse of first ZQF element ;sp34 : power level of adiabatic pulse of last ZQF element ;PULSE DURATION ;p1 : 90 degree high power pulse ;p2 : 180 degree high power pulse ;p6 : 90 degree low power pulse ;p8 : Saturation recovery pulse [1-1.5 msec] ;p12 : 180 degree refocusing shaped pulse ; choose p12 according to desired selectivity ;p32 : first ZQF 180 degree inversion shaped pulse (adiabatic) [10 msec] ;p34 : second ZQF 180 degree inversion shaped pulse (adiabatic) [30 msec] ;GRADIENT DURATION ;p16 : duration of CTP gradients for Selective pulse [1 msec] ;p17 : duration of CTP gradients for z-TOCSY [1 msec] ;p18 : saturation recovery gradient pulse [1 msec] ;DELAY ;d1 : relaxation delay; [2-10 s] ;d9 : TOCSY mixing time [50-200 ms] ;d11 : delay for disk I/O [30 msec] ;d16 : recovery delay for gradients of selective pulse CTP [1 ms] ;d17 : selective spin-echo delay in selective-TOCSY block [200 us] ;d20 : fixed echo time to allow elimination of J-mod. effects ; d20 should be << 1/J ,but > (50 * P2) [1-2 msec] ;PULSE SHAPE ;spnam12 : file name for the selective 180 refocusing shaped pulse [RSNOB or REBURP] ;spnam32 : file name for the adiabatic shaped pulse using in first ZQF [CHIRP] ; smoothed chirp (low to high, 20% smoothing, 1000 points, 20KHz) ;spnam34 : file name for the adiabatic shaped pulse using in last ZQF [CHIRP] ; smoothed chirp (low to high, 20% smoothing, 1000 points, 20KHz) ;GRADIENT SHAPE ;gpnam1 : SMSQ10.100 ;gpnam2 : SMSQ10.100 ;gpnam8 : SMSQ10.100 ;GRADIENT STRENGTH ;gpz0 : first ZQF gradient [3%] ;gpz1 : CTP gradient [13 or 23%] ;gpz2 : homospoil gradient [31%] ;gpz8 : saturation recovery gradient [31%] ;gpz10: last ZQF gradient [4%] ;CONSTANTS ;cnst12: chemical shift for selective pulse (offset, in ppm) ;cnst29: water chemical shift (in ppm) ;cnst53: GammaB1 of first adiabatic ZQF shaped pulse ;cnst54: GammaB1 of last adiabatic ZQF shaped pulse ;OTHER ;td1 : number of loops in VCLIST ;c : loop for T2 filter ;define VCLIST ;this pulse program produces a ser-file (PARMOD = 2D) ;NS: 16 * n, total number of scans: NS * TD0 ;DS: 16 ;vc : variable loop counter, taken from vc-list ;vc : vc should contain even numbers to provide ; for cancellation of 180 degree pulse errors