3 3.1 Co-60 Co-60 1.173MeV 1.333MeV 3.2 100kV X 100kV X (xray.dat ) 3.3 3cm 3-13cm 0.3g/cm 3 ) 3cm 100kVX 3.4 3cm 2cm X-, Y-100kVX 3.5 20cm 5cm-6cm 100kVX 3.6 X 1cm 16
4 ucxyz <strong>phantom</strong>.f (egs5job.out, egs5job.pic) ( xyz <strong>phantom</strong>.out, xyz <strong>phantom</strong>.pic) 4.1 1. cp ucxyz <strong>phantom</strong>.f ucxyz <strong>phantom</strong>1.f2. cp ucxyz <strong>phantom</strong>.data ucucxyz <strong>phantom</strong>1.data3. cp ucucxyz <strong>phantom</strong>.inp ucucxyz <strong>phantom</strong>1.inp4. ucucxyz <strong>phantom</strong>1.f real*8* depeh(LIMAX,LJMAX,LKMAX),depeh2(LIMAX,LJMAX,LKMAX),* dose(LIMAX,LJMAX,LKMAX),doseun(LIMAX,LJMAX,LKMAX)real*8* depeh(LIMAX,LJMAX,LKMAX),depeh2(LIMAX,LJMAX,LKMAX),* dose(LIMAX,LJMAX,LKMAX),doseun(LIMAX,LJMAX,LKMAX)* ,esbin(MXEBIN),espdf(MXEBIN),escdf(MXEBIN) integer* i,ii,iii,icases,idin,idose,ie,ipage,irl,j,jhist,jj,jl,ju,k,* kkk,nlist,nperpginteger* i,ii,iii,icases,idin,idose,ie,ipage,irl,j,jhist,jj,jl,ju,k,* kkk,nlist,nperpg,nsebin open open(6,file='egs5job.out',status='unknown')open(6,file='egs5job.out',status='unknown')open(2,file='co60.inp',status='unknown') co60.inp 1.173,1.3330.5,0.5 cdf ! Source position from <strong>phantom</strong> surface in cm.sposi=10.017
- 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: end ifend ifend ifdnear(np)=dnearlr
- 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 and 38: Output the material data and parame
- Page 39 and 40: totke = totke + availkelatchi=0! Ke
- 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