Lecture Notes of Dose distribution calculation inside phantom with ...

More documents

Recommendations

Info

! Maximum history number to write trajectory datamaxpict=50write(39,fmt="('01')")2.8 Step 8: Shower-callIn this part, subroutine shower is called 'ncases' (history number). Before calling shower,various source parameters are sampled. In this used code, it is supposed that a point isotropicpoint source exits at sposi cm from the phantom surface. If sposi is larger than 5cm (air thicknessin front of the phantom), starting source position at the surface of air region is determinedconsidering the beam width at the phantom surface.At each history, energy balance between the kinetic energy of source and absorbed energyin all region dened. Summation of weight squared of variables to be calculated together withspectrum information are also stored for statistical analysis.! -------------------------do jhist=1,ncases! Start of CALL SHOWER loop! -------------------------icases=jhist!--------------------------------------! Determine direction (isotropic)!--------------------------------------200 call randomset(w0)win=w0*(1.0-wimin)+wimincall randomset(phai0)phai=pi*(2.0*phai0-1.0)sinth=dsqrt(1.D0-win*win)uin=dcos(phai)*sinthvin=dsin(phai)*sinthdis=sposi/winxpf=dis*uinypf=dis*vinif (dabs(xpf).gt.xhbeam.or.dabs(ypf).gt.yhbeam) go to 200if (sposi.gt.zbound(2)-zbound(1)) thendisair=(sposi-(zbound(2)-zbound(1)))/winxin=disair*uinyin=disair*vinzin=zbound(1)elsexin=0.D0yin=0.D0zin=-sposiend ifdo i=1,imaxif (xbound(i+1).gt.xin) go to 210end do210 do j=1,jmaxif (ybound(j+1).gt.yin) go to 220end do! -------------! Input region! -------------220 k=1irin=1+i+(j-1)*imax! ----------------------! Select incident energy! ----------------------ekin = ekeinwtsum = wtsum + wtinetot = ekin + iabs(iqin)*RMavailke = etot + iqin*RM! Keep running sum of weights! Incident total energy (MeV)! Available K.E. (MeV) in system32
totke = totke + availkelatchi=0! Keep running sum of KE! ---------------------------------------------------! Print first NWRITE or NLINES, whichever comes first! ---------------------------------------------------if (ncount .le. nwrite .and. ilines .le. nlines) thenilines = ilines + 1write(6,230) etot,xin,yin,zin,uin,vin,win,iqin,irin,idin230 FORMAT(4G15.7/3G15.7,3I5)end if! -----------------------------------------------------------! Compare maximum energy of material data and incident energy! -----------------------------------------------------------if(etot+(1-iabs(iqin))*RM.gt.emaxe) thenwrite(6,fmt="(' Stopped in MAIN.',1 ' (Incident kinetic energy + RM) > min(UE,UP+RM).')")stopend if! ----------------------------------------------------! Verify the normarization of source direction cosines! ----------------------------------------------------if(abs(uin*uin+vin*vin+win*win-1.0).gt.1.e-6) thenwrite(6,fmt="(' Following source direction cosines are not',1 ' normarized.',3e12.5)")uin,vin,winstopend if! =========================================================call shower (iqin,etot,xin,yin,zin,uin,vin,win,irin,wtin)! =========================================================!----------------------------------! Sum variable and its square.!----------------------------------do k=1,kmaxdo j=1,jmaxdo i=1,imaxdepeh(i,j,k)=depeh(i,j,k)+depe(i,j,k)depeh2(i,j,k)=depeh2(i,j,k)+depe(i,j,k)*depe(i,j,k)depe(i,j,k)=0.D0end doend doend dofaexps=faexps+faexpfaexp2s=faexp2s+faexp*faexpfaexp=0.0fexpss=fexpss+fexpsfexps2s=fexps2s+fexps*fexpsfexps=0.0ncount = ncount + 1! ======================if (iwatch .gt. 0) call swatch(-1,iwatch)! ======================end do! Count total number of actual cases! -----------------------! End of CALL SHOWER loop! -----------------------2.8.1 Statistical uncertaintyThe uncertainty of obtained, x, is estimated using the method used in MCNP in this user code. Assume that the calculation calls for N \incident" particle histories.33
Page 1 and 2: KEK Internal 2011-8December 2011R/D
Page 3 and 4: Lecture Notes ofDose distribution c
Page 5 and 6: 2.8.1 Statistical uncertainty . . .
Page 7 and 8: 1 ucxyz phantom.f ucxyz phantom.f
Page 9 and 10: common/score/! Variables to score*
Page 11 and 12: emaxe = 0.D0 ! dummy value to extra
Page 13 and 14: vin=dsin(phai)*sinthdis=sposi/winxp
Page 15 and 16: 2.9 Step 9: Output of results ()wr
Page 17 and 18: ipeangswiedgeswiaugerswirayswipolar
Page 19 and 20: ! ---------------------------------
Page 21 and 22: end ifend ifend ifdnear(np)=dnearlr
Page 23 and 24: 4 ucxyz phantom.f (egs5job.out, e
Page 25 and 26: 4.2 1. cp ucxyz phantom1.f ucxyz ph
Page 27 and 28: call randomset(rnnow)do ie=1,nsebin
Page 29 and 30: Linux 4 ucxyz phantom3 25 Enter
Page 31 and 32: Linux ucxyz phantom5 , 4 25 "Doe
Page 33 and 34: 1 Outlines of sample user code ucxy
Page 35 and 36: common/score/! Variables to score*
Page 37: Output the material data and parame
Page 41 and 42: * rhor(irl),dose(i,j,kkk),doseun(i,
Page 43 and 44: Ifahistorynumberislessthanmaxpict,
Page 45 and 46: 3 Exercise problems3.1 Problem 1 :
Page 47 and 48: ! Source position from phantom surf
Page 49 and 50: At the above data, a first 201 is t
Page 51 and 52: &INP AE=0.521,AP=0.0100,UE=2.011,UP
Page 53 and 54: (b) Add new material (Iron).ChangeA
Page 55 and 56: !**********************************
Page 57 and 58: !----------------------------------
Page 59 and 60: faexp=0.D0faexps=0.D0faexp2s=0.D0fe
Page 61 and 62: ! =======================if (iwatch
Page 63 and 64: do k=kdosl(idose),kdosu(idose)do j=
Page 65 and 66: ! Record 10a ipeangsw, Switches for
Page 67 and 68: if (maxz.gt.LKMAX) thenwrite(ifto,'
Page 69 and 70: zbound(in+1)=zbound(in)+widthend do
Page 71 and 72: if(idosu(idgrp).le.0 .or. idosu(idg
Page 73 and 74: !--------------------------------if
Page 75 and 76: end ifend ifelse if (u(np) .lt. 0.0

Lecture Notes of Dose distribution calculation inside phantom with ...

Create successful ePaper yourself

Delete template?

Save as template?