pulseprogram

DTMK软件开发包,此为开源软件,是一款很好的医学图像开发资源.

# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg"
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg"
;****************************************************************
;
; $Source: /cvsroot/Insight/Insight/Testing/Data/Input/DCB120604.t61/11/pulseprogram,v $
;
; Copyright (c) 1995-2000
; BRUKER MEDICAL GMBH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
;****************************************************************

;derived from msme_tomo.gcu2 by mah 12.10.2000

# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;avance-version (02/08/12)


;switch between high and low stage oh H amplifier



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



;allow for 2H decoupling (lockswitch)



;turn lock-hold on/off (BSMS)



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



;select output for 19F (amplifier)



;homospoil on/off (BSMS)



;for Q-switch probes



;for mixing probe



;gating pulse for RX22, ADC and HPPR



















;not active












































;$Id: pulseprogram,v 1.1 2008-06-18 22:42:15 ibanez Exp $
# 15 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/DBX.include" 1
;****************************************************************
;
; $Source: /cvsroot/Insight/Insight/Testing/Data/Input/DCB120604.t61/11/pulseprogram,v $
;
; Copyright (c) 1996
; Bruker Medizintechnik GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
;
; $Locker:  $
; $State: Exp $
; $Revision: 1.1 $
; Revision 1.2  1996/02/01  07:44:13  fe
; removed dublicated RCS header
;
; Revision 1.1  1996/01/09  10:03:28  appadmin
; Autocheckin during RCSinit
;
;
;****************************************************************
;DBX.include
define delay aqq
"aqq=dw*td"
















define delay deparx
define delay derxadc
define delay rdeadc

"deparx=derx-depa"
"derxadc=deadc-derx"
"rdeadc=de-deadc"
# 16 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2


define delay dur2
define delay dur25
define delay dur27
define delay dur4
define delay aqqmde1
"dur2 = d2 - 10u*2"
"dur25= d25 - 10u*2"
"dur27= d27 + 10u - 10u*2" ; increased dur27 by 10u
"d25= d25 - 10u"		   ; decereased d25 by 10 u
"dur4=d4-de+de1"
"aqqmde1=td*dw+depa-de1"

"l1 = ds"

preset off

if (!IMND_hft_mode)
{
lgrad r2d<2d>=ACQ_size[1]      ; From XwinNmr3.0 on possible
}
if (IMND_hft_mode)
{
lgrad IMND_hft_grad<2d>=ACQ_size[1]      ; From XwinNmr3.0 on possible
}
lgrad r3d<3d>=L[17]

# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/MEDSPEC.include" 1
;MEDSPEC.include

	if (Coil_operation == Single_Coil)
	  {
          2u setnmr3|11           ;Single-Coil-Operation
	  }
	if (Coil_operation == Cross_Coil)
	  {
          2u setnmr3^11           ;Cross-Coil-Operation
	  }


         fq1b receive	;select DDSB for receive as default

         if (CONFIG_preemp_type >= GREAT_60)
         {
            200u setnmr0|34|33|32 ; Disable blanking pulse
         }

# 44 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2


start,	2m
if(IMND_evolution_trigger)
{
  if(ACQ_scan_type==Scan_Experiment)
  {
	10u
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/trigger" 1
;****************************************************************
;
; $Source: /cvsroot/Insight/Insight/Testing/Data/Input/DCB120604.t61/11/pulseprogram,v $
;
; Copyright (c) 1996
; Bruker Medizintechnik GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
;
; $Locker:  $
; $State: Exp $
; $Log: pulseprogram,v $
; Revision 1.1  2008-06-18 22:42:15  ibanez
; ENH: Adding Testing input data provided by Don Bigler.
;      This data is now used for testing the Bruker and Philips PAR/REC formats.
;
; Revision 3.4.2.2  2002/08/13 12:04:31  pfre
; Bugfix: 3229 replace setnmr by macros
;
; Revision 3.4.2.1  2002/08/06 11:00:38  dwe
; change trigger syntax
;
; Revision 3.4  2002/01/22 13:27:28  mah
; AvUnify:  Unified Pulseprograms for AV
;
; Revision 3.3  1997/09/30 14:01:58  gh
; Update from methods group
;
;
;****************************************************************

  ;trigger module
        10u     setnmr3|8       ;trigger enable on
        10u     trigpl1
        10u     setnmr3^8       ;trigger enable off, continue
        d7
# 52 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

  }
}
	zgrad	r3d

;----------------------------------------------------------------
; Start of 3D Loop 
;----------------------------------------------------------------

start3, 
if (!IMND_hft_mode)
{
	zgrad   r2d
}
if (IMND_hft_mode)
{
	zgrad   IMND_hft_grad
}
;----------------------------------------------------------------
; Start of 2D-Loop 
;----------------------------------------------------------------

start2,	10u
if (ACQ_rare_factor != 1)
{
  if (!IMND_hft_mode)
  {
	sgrad   r2d
  }
  if (IMND_hft_mode)
  {
	sgrad   IMND_hft_grad
  }
}
;----------------------------------------------------------------
; Start of NA-Loop 
;----------------------------------------------------------------

start1,
if (ACQ_trigger_enable)
{
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/trigger" 1
;****************************************************************
;
; $Source: /cvsroot/Insight/Insight/Testing/Data/Input/DCB120604.t61/11/pulseprogram,v $
;
; Copyright (c) 1996
; Bruker Medizintechnik GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
;
; $Locker:  $
; $State: Exp $
; $Log: pulseprogram,v $
; Revision 1.1  2008-06-18 22:42:15  ibanez
; ENH: Adding Testing input data provided by Don Bigler.
;      This data is now used for testing the Bruker and Philips PAR/REC formats.
;
; Revision 3.4.2.2  2002/08/13 12:04:31  pfre
; Bugfix: 3229 replace setnmr by macros
;
; Revision 3.4.2.1  2002/08/06 11:00:38  dwe
; change trigger syntax
;
; Revision 3.4  2002/01/22 13:27:28  mah
; AvUnify:  Unified Pulseprograms for AV
;
; Revision 3.3  1997/09/30 14:01:58  gh
; Update from methods group
;
;
;****************************************************************

  ;trigger module
        10u     setnmr3|8       ;trigger enable on
        10u     trigpl1
        10u     setnmr3^8       ;trigger enable off, continue
        d7
# 93 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

}
;----------------------------------------------------------------
; Start of Movie Loop
;----------------------------------------------------------------

movie, zgrad slice

;----------------------------------------------------------------
; Start of Slice Loop
;----------------------------------------------------------------

slice, 2m	fq8b:f1
if(IMND_mtcflag)
{
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/mtc" 1
;****************************************************************
; $Source: /cvsroot/Insight/Insight/Testing/Data/Input/DCB120604.t61/11/pulseprogram,v $
;
; Copyright (c) 1996
; Bruker Medizintechnik GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
;
; $Locker:  $
; $State: Exp $
; $Log: pulseprogram,v $
; Revision 1.1  2008-06-18 22:42:15  ibanez
; ENH: Adding Testing input data provided by Don Bigler.
;      This data is now used for testing the Bruker and Philips PAR/REC formats.
;
; Revision 3.4  2002/01/22 13:27:28  mah
; AvUnify:  Unified Pulseprograms for AV
;
; Revision 3.3  1997/09/30 14:01:50  gh
; Update from methods group
;
;
;****************************************************************

 ; mtc module
 ;
 ; dwe 6/4/95
 ;
        300u
	d8	fq3:f1
    mtc,d12	gatepulse 1
		p12:sp4	ph0
        lo to mtc times l12

# 108 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

}
if(IMND_suppression)
{
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/watersup" 1
;****************************************************************
;
; $Source: /cvsroot/Insight/Insight/Testing/Data/Input/DCB120604.t61/11/pulseprogram,v $
;
; Copyright (c) 1995-2000
; BRUKER MEDICAL GMBH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
;****************************************************************

;water suppression module
;
;derived from 'water' bye MAH 12.10.2000
;
    15m grad{ (-25,no_scale) | (-25,no_scale) | (-25,no_scale) } 
     4m groff  

     d8 fq3:f1
     5u
     p10:sp2
    15m grad{ (25,no_scale)  | (0)            | (0)            }
     4m groff

     d8 fq3:f1
     5u
     p10:sp2
    15m grad{ (0)            | (25,no_scale)  | (0)            }
     4m groff

     d8 fq3:f1
     5u
     p10:sp2
    15m grad{ (0)            | (0)            | (25,no_scale)  }
     4m groff
# 112 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

}
if(IMND_fatflag) 
{
     1m     fq3:f1