;2drestt1ir ; ; T1-relaxation encoded selective TOCSY (REST) ; measurement using inversion recover 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" "p3=p1" "FACTOR1=(d9/(p6*115.112))/2" "l1=FACTOR1*2" "d11=30m" "d12=20u" "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" "acqt0=-p1*2/3.1416" 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 p2 ph1 vd p1 ph2 p16:gp1 d16 pl0:f1 p12:sp12:f1 ph3 ;selective 180r p16:gp1 d16 pl1:f1 3 p1 ph4 20u gron0 (p32:sp32 ph5):f1 10u groff 100u pl10:f1 ;begin DIPSI2 4 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 4 times l1 ;end DIPSI2 p17:gp2 500u 10u gron10 (p34:sp34 ph5):f1 20u groff 10u pl1:f1 10u BLKGRAMP p1 ph6 go=2 ph31 d11 wr #0 if #0 ivd 50u LOCKH_OFF lo to 1 times td1 exit ph1= 0 0 0 0 2 2 2 2 ph2= 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 ph3= 0 1 2 3 ph4= 0 ph6= 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ph5= 0 ph21=0 ph22=1 ph23=3 ph25=1 ph31= 0 2 0 2 0 2 0 2 2 0 2 0 2 0 2 0 1 3 1 3 1 3 1 3 3 1 3 1 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] ;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 [37%] ;gpz8 : saturation recovery gradient [31%] ;gpz10: last ZQF gradient [4%] ;CONSTANTS ;cnst53: GammaB1 of first adiabatic ZQF shaped pulse ;cnst54: GammaB1 of last adiabatic ZQF shaped pulse ;OTHER ;td1 : number of delays in VDLIST ;vd : variable delay, taken from vd-list ;define VDLIST ;this pulse program produces a ser-file (PARMOD = 2D) ;NS: 16 * n, total number of scans: NS * TD0 ;DS: 16