⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 pulseprogram

📁 DTMK软件开发包,此为开源软件,是一款很好的医学图像开发资源.
💻
📖 第 1 页 / 共 2 页
字号:
🔍
12 
     d8	    gatepulse 1
     p11:sp3
     5m grad{ (0) | (0) | (t20, no_scale) }
     d4 groff
}
if(IMND_invflag )
{
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/inversion" 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
;
;****************************************************************

; inversion module
;
; MAH 12.10.2000
;

lgrad IMND_InvRecov_grad=L[12]
 
	200u
	200u zgrad IMND_InvRecov_grad
	d4 grad{(0)|(0)|IMND_InvRecov_grad(100,no_scale)}

inclist1,   20u	fq1:f1
		lo to inclist1 times l11
	d8 gatepulse 1
	p14:sp6	ph2		;Inversion
	4m
	d4 groff

	if(L[10]>0)
	{
inclist2,   20u	fq1:f1
		lo to inclist2 times l10
	}
# 124 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

		d6				;Correction-Time
}
if(IMND_FovSat_flag)
{
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/fovsat" 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
;
;****************************************************************

;fov saturation module 
;
;dervived from 'fovsat' by MAH 12.10.2000
; 
lgrad IMND_FovSat_grad = L[13]
	200u 
	zgrad IMND_FovSat_grad
fov,    d4 grad{IMND_FovSat_grad(100,direct_scale) | (0) | (0) } fq3:f1
    	d8		gatepulse 1
        p13:sp5		ph0
        4m grad{ (0) | (0) | IMND_FovSat_spoiler(100,no_scale) }
	igrad IMND_FovSat_grad
        lo to fov times l13
	d4 ph0 groff
# 129 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

}
if(IMND_InflowSat_flag)
{
# 1 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/inflowsat" 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
;
;****************************************************************

;inflow saturation module
;
;dervived from 'inflowsat' by MAH 12.10.2000
;
lgrad IMND_InflowSat_grad = L[14]

	zgrad IMND_InflowSat_grad
inflow,	d4 grad{ (0) | (0) | IMND_InflowSat_grad(100,no_scale) } fq2:f1
       	d8		gatepulse 1
       	p14:sp7		ph0
       	4m grad{ (0) |(0)  | IMND_InflowSat_spoiler(100,no_scale) }
	igrad IMND_InflowSat_grad
	lo to inflow times l14
	d4 ph0 groff
# 133 "/opt/Pv3.0.1/exp/stan/nmr/lists/pp/msme_tomo.ppg" 2

}
if(!IMND_invflag)
{	
	200u
}

	5m grad{ (t0,no_scale) | (0) | (0) }	fq1:f1	
	d4 grad{ (0) | (0) | (t20,no_scale) }	gatepulse 1	; slice-selection

	p1:sp0		ph0		;+90-Grad
	d1 grad{ (t1,no_scale) | (t11,no_scale) | (t21,no_scale) }

;----------------------------------------------------------------
; Rare/Echo Loop
;----------------------------------------------------------------
rare1,

if (ACQ_rare_factor != 1)
{
 if (!IMND_hft_mode)
  {
	0u rgrad   r2d
  }
  if (IMND_hft_mode)
  {
	0u rgrad   IMND_hft_grad
  }
}

rare,	d4 grad{ (0) | (0) | (t20,no_scale) }	gatepulse 1	; slice-selection
if(IMND_pulse_flag)
{
	d14
}
	p2:sp1		ph1		;180-Grad
if(IMND_pulse_flag)
{
	d14
}
if(!IMND_split)							; phase-encoding
{
  if(!IMND_hft_mode)
  {
    if (ACQ_rare_factor==1)
    {
	10u grad{ (t2,no) | r2d(t12,no) | (t22,no) + r3d(t19,no) }
    }
    if (ACQ_rare_factor!=1)
    {
	10u grad{ (t2,no) | (t11,no)+r2d(t12,no) | (t22,no) + r3d(t19,no) }
    }
  }								
  if(IMND_hft_mode)
  {
    if (ACQ_rare_factor==1)
    {
	10u grad{ (t2,no) | IMND_hft_grad(t12,no) | (t22,no) + r3d(t19,no) }
    }
    if (ACQ_rare_factor!=1)
    {
	10u grad{ (t2,no) | (t11,no)+IMND_hft_grad(t12,no) | (t22,no) + r3d(t19,no) }
    }
  }

	10u
	dur2    :e
}
if(IMND_split)
{
	10u grad{ (0) | (0) | (t22,no_scale) }
	10u
	dur25
	d26 groff
  if(!IMND_hft_mode)
  {
    if (ACQ_rare_factor==1)
    {
	d27 :e grad{ (t2,no_scale) | r2d(t12,no_scale) | r3d(t19,no_scale) }
    }
    if (ACQ_rare_factor!=1)
    {
	d27 :e grad{ (t2,no) | (t11,no) + r2d(t12,no) | r3d(t19,no) }
    }
  }
  if(IMND_hft_mode)
  {
    if (ACQ_rare_factor==1)
    {
	d27 :e grad{ (t2,no_scale) | IMND_hft_grad(t12,no_scale) | r3d(t19,no_scale) }
    }
    if (ACQ_rare_factor!=1)
    {
	d27 :e grad{ (t2,no) | (t11,no) + IMND_hft_grad(t12,no) | r3d(t19,no) }
    }
  }
}
 	dur4 :e grad{ (t0,no_scale) | (0) | (0) } 	;read grad
        deparx     adc ph4 setnmr3^4 syrec fqatofqb:f1 \n derxadc     ph1:r setnmr8|6 				\n rdeadc     setnmr3|0					; needs de time
        aqqmde1   

if(!IMND_split)
{
  if(!IMND_hft_mode)						; phase-decoding
  {
 	10u grad{ (t3,no) | r2d(t13,no) | (t23,no) + r3d(t18,no) }  
  }
  if(IMND_hft_mode)
  {
	10u grad{ (t3,no) | IMND_hft_grad(t13,no) | (t23,no) + r3d(t18,no) }  
  }
}
if(IMND_split)
{
  if(!IMND_hft_mode)						; phase-decoding
  {
 	10u     grad{ (t3,no) | r2d(t13,no) | r3d(t18,no) }
  }
  if(IMND_hft_mode)
  {
	10u     grad{ (t3,no) | IMND_hft_grad(t13,no) | r3d(t18,no) }
  }
}

if(!IMND_split)
{
        dur2
}
if (IMND_split)
{
	dur27
	d26 groff
	d25 grad{ (0) | (0) | (t23,no_scale) }
}
        1u 
 	1u  
	8u eoscnp

if (ACQ_rare_factor > 1)
{
  if (!IMND_hft_mode)
  {
	0u igrad   r2d
  }
  if (IMND_hft_mode)
  {
	0u igrad   IMND_hft_grad
  }
  lo to rare times ACQ_rare_factor

  lo to rare1 times NECHOES/ACQ_rare_factor
}
if (ACQ_rare_factor <= 1)
{
  lo to rare times NECHOES
}

;----------------------------------------------------------------
; Echo/Rare Loop finished
;----------------------------------------------------------------

if (IMND_flipback)				
{
    	d4 grad{ (0) | (0) | (t20,no_scale) }	gatepulse 1	; slice selection
  if(IMND_pulse_flag)
  {
	d14
  }
        p2:sp1:f1	ph1	;180-Grad
  if(IMND_pulse_flag)
  {
	d14
  }
    	d1 grad{ (t1,no) | (t11,no) | (t21,no) }		; read.t0 slice.t3
    	d4 grad{ (0) | (0) | (t20,no_scale) }	gatepulse 1	; slice selection
  if (IMND_invflag)
  {
	p1:sp0	ph0						; Back +90-Grad
  }
  if (!IMND_invflag)
  {
	p1:sp0	ph2	;Back -90-Grad
  }
}
	d20 grad { (t4,no_scale) | (t14,no_scale) | (t24,no) }	;long spoiler
	d21 groff
if(IMND_auto_adv)
{
  if(l15)
  {
fq1loop,1u	fq1:f1
	1u
	5u	fq8b:f1
	1u
    if(IMND_InflowSat_flag)
    {
	1u	fq2:f1
	5u
      if(L[16]==2)
      {
	1u	fq2:f1
	5u
      }
    }
	5u
	lo to fq1loop times l15
  }
}
	2.5u  igrad slice
	lo to slice times NSLICES;		Slice-Loop

;----------------------------------------------------------------
; Slice Loop finished
;----------------------------------------------------------------

	5u
	lo to movie times l26;			Movie-Loop

;----------------------------------------------------------------
; Movie Loop finished
;----------------------------------------------------------------

	2.5u		ipp0
	2.5u		ipp2
	2.5u		ip4*2
	lo to start1 times NA;			Averaging-Loop
;----------------------------------------------------------------
; NA Loop finished
;----------------------------------------------------------------
	2.5u		rpp0
	2.5u		rpp2
	2.5u		rp4
if(IMND_evolution)
{
        5u
 if (ACQ_rare_factor == 1)
 {
  if (!IMND_hft_mode)
  {
	5u igrad   r2d
  }
  if (IMND_hft_mode)
  {
	5u igrad   IMND_hft_grad
  }
 } 
 if (ACQ_rare_factor != 1)
 {
	5u
 }

        lo to start2 times l23                  ;2D-Loop with Evolution
}
if(!IMND_evolution)
{
        5u
	if "l1 == 0" goto skip
	"l1 = l1 - 1"
  if (ACQ_rare_factor > 1)
  { 
    if (!IMND_hft_mode)
    {	
	zgrad   r2d
    } 
    if (IMND_hft_mode)
    {	
	zgrad   IMND_hft_grad
    }
  }
	goto start2
skip,	5u      
 if (ACQ_rare_factor == 1)
 {
  if (!IMND_hft_mode)
  {
	5u igrad   r2d
  }
  if (IMND_hft_mode)
  {
	5u igrad   IMND_hft_grad
  }
 }
 if (ACQ_rare_factor != 1)
 {
	5u
 }
  if(IMND_auto_adv)
  {
	lo to start2 times l23
  }
  ;-------------------------------------------------------------
  ; Reloop incorrect
  ; correct: loto start2 times ACQ_size[1]/ACQ_rare_factor
  ;-------------------------------------------------------------
  if(!IMND_auto_adv)				; Normal 2D-Loop
  {
    if (ACQ_rare_factor > 0)
    {
      lo to start2 times ACQ_size[1]/ACQ_rare_factor
    }
    if (ACQ_rare_factor <= 0)
    {
      lo to start2 times ACQ_size[1]
    }
  }
} 
;----------------------------------------------------------------
; 2D Loop finished
;----------------------------------------------------------------
	5u      igrad r3d	
    	lo to start3 times l17;			3D-Loop

;----------------------------------------------------------------
; 3D Loop finished
;----------------------------------------------------------------

	vd	ivd
if(IMND_auto_adv)
{
	1u	fq1:f1
	1u
	5u	fq8b:f1
	1u
  if(IMND_InflowSat_flag)
  {
	5u	fq2:f1
	5u
    if(L[16] == 2)
    {
	5u	fq2:f1
	5u
    }
  }
}
	lo to start times NR;			Evolution-Loop
	5u
	goto start
exit

ph0 = 0 2
ph1 = 1
ph2 = 2 0
ph3 = 3
ph4 = 0
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -