;avance-version (05/03/14)
;CBC-HSQMBC

#include <Avance.incl>
#include <Grad.incl>
#include <Delay.incl>


"p2=p1*2"

"p4=p3*2"

"d0=3u"

"d9=1s/(cnst1*2)"

"d13=4u"
"d11=30m"

"DELTA=p16+d16+d13"


"FACTOR1=(d9/((p21+d20*2)*16))/2+0.5"
"d10=32*FACTOR1*(p21+d20*2)"
"l1=FACTOR1*2"

1 ze
  d10 UNBLKGRAD
2 d1 pl1:f1 pl2:f2 
 10u BLKGRAD
 (p1 ph1)

;first part of CPMG-transfer

4 d20 pl19:f1 pl20:f2
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2) 
  d20 pl1:f1 pl2:f2                         
  lo to 4 times l1


;CAGEBIRD-R,X-Filter

  d13
  p16:gp1
  d16

  (p1 ph2):f1

8  d20 pl19:f1 pl20:f2
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20 pl1:f1 pl2:f2
  lo to 8 times l8

  (center (p2 ph2):f1 (p4 ph2):f2)

9  d20 pl19:f1 pl20:f2
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20 pl1:f1 pl2:f2
  lo to 9 times l8

  (p1 ph4):f1

  d13
  p16:gp1
  d16

;second part of CPMG-transfer

5  d20 pl19:f1 pl20:f2
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph21):f1 (p21 ph21):f2)
   d20
   d20
  (center (p20 ph20):f1 (p21 ph20):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2)
   d20
   d20
  (center (p20 ph23):f1 (p21 ph23):f2)
   d20
   d20
  (center (p20 ph22):f1 (p21 ph22):f2)
   d20 pl1:f1 pl2:f2
  lo to 5 times l1

  p28 ph1
  d13

  (p1 ph2)
  50u UNBLKGRAD
  d13
  p16:gp3
  d16
  (p3 ph5):f2
  d0
  (p2 ph1)
  d0
  d13 
  p16:gp4*-1*EA
  d16
  (p4 ph1):f2
  DELTA
  (p3 ph6):f2
  d13
  p16:gp5
  d16
  (p1 ph1)
  d13
  p16:gp6
  d16
  (p2 ph1)
  DELTA
  go=2 ph31
  d11 mc #0 to 2 F1EA(igrad EA, id0 & ip5*2 & ip31*2)
  10u BLKGRAD
exit
 

ph1=0 
ph2=1
ph3=2
ph4=3
ph5=0 2
ph6=0 0 2 2
ph20=0
ph21=1
ph22=2
ph23=3
ph31=0 2 2 0
  

;pl1 : f1 channel - power level for pulse (default)
;pl2 : f2 channel - power level for pulse (default)
;pl19 : f1 channel - power level for MOCCA
;pl20 : f2 channel - power level for MOCCA
;p1 : f1 channel -  90 degree high power pulse
;p2 : f1 channel - 180 degree high power pulse
;p3 : f2 channel -  90 degree high power pulse
;p4 : f2 channel - 180 degree high power pulse
;p20 : f1 channel - 180 degree low power pulse
;p21 : f2 channel - 180 degree low power pulse
;p16: homospoil/gradient pulse
;p28: f1 channel - trim pulse
;d0 : incremented delay (2D)                  [3 usec]
;d1 : relaxation delay; 1-5 * T1
;d9 : Long-range polarization transfer delay
;d11: delay for disk I/O                      [30 msec]
;d13: short delay                             [4 usec]
;d16: delay for homospoil/gradient recovery   [100 usec] 
;d20: MOCCA delay                             [200 usec] 
;cnst1: = J(XH) Long-range
;in0: 1/(2 * SW(X)) = DW(X)
;nd0: 2
;NS: 1 * n
;DS: >= 16
;td1: number of experiments
;FnMODE: echo-antiecho


;use gradient ratio:	gp 1 : gp 2 : gp 3 : gp 4 : gp 5 : gp 6
;		 	 61  : 70.3 :  50  : 80   : 41.7 : 20.1  

;for z-only gradients:
;gpz1: 61%
;gpz2: 70.3%
;gpz3: 50%
;gpz4: 80%
;gpz5: 41.7%
;gpz6: 20.1%

;use gradient files:   
;gpnam1: SINE.100
;gpnam2: SINE.100
;gpnam3: SINE.100
;gpnam4: SINE.100
;gpnam5: SINE.100
;gpnam6: SINE.100



;$Id: invietgpsi,v 1.6 2000/05/08 11:40:23 eng Exp $