蒙特卡罗背散射能谱模拟程序源代码

蒙特卡罗背散射能谱模拟程序源代码程序主函数：void initialization() int i,j,k; /calculate the PI*1.0e-11*Fluence/SimNumber Coeff=PI*1.0e-11*Fluence/ParticleNumber; /initialization-1. generate random number cout|=1. generating random number. =|endl; generaterandomnumber(randomlist,azilist,CosOmega,SinOmega,loglist,erfinvtable); /initialization-2. collision parameters cout|=2. collision parameters initialization. =|endl; for(i=0;iTarLayerNumber;i+) collision(ion,targeti,collisiontar0i); for(j=0;jProductNumber;j+) collision(emitj,targeti,collisiontarj+1i); for(i=0;iFoilLayerNumber;i+) for(j=0;jProductNumber;j+) collision(emitj,foili,collisionfoilj+1i); /initialization-3. stopping power and straggling cout|=3. stopping power and initialization. =|endl; for(i=0;iTarLayerNumber;i+) stoppingtable(ion,targeti,chu,stoppingtar0i); for(j=0;jProductNumber;j+) stoppingtable(emitj,targeti,chu,stoppingtarj+1i); for(i=0;iFoilLayerNumber;i+) for(j=0;jProductNumber;j+) stoppingtable(emitj,foili,chu,stoppingfoilj+1i); /initialization-4. scattering angle in lab system cout|=4. scattering angle in lab system =|endl; for(i=0;iTarLayerNumber;i+) scatterangle(ion,targeti,ScatteringMatrix,anglelabtar0i); for(j=0;jProductNumber;j+) scatterangle(emitj,targeti,ScatteringMatrix,anglelabtarj+1i); for(i=0;iFoilLayerNumber;i+) scatterangle(ion,foili,ScatteringMatrix,anglelabfoil0i); for(j=0;jCorteo k=sqrt(1.0-n*n); /得到粒子的出射方向余弦 DireOut0=l*costheta+sintheta/k*(l*n*cosomega+m*sinomega); DireOut1=m*costheta+sintheta/k*(m*n*cosomega-l*sinomega); DireOut2=n*costheta-k*sintheta*cosomega; /= void running() int num,i,j,k,l,n,ch,nn; int nx=ParticleNumber/100; int iran=0,iazim=0,ilog=0,ierf=0,npoint; double position3,direction3; int ionstatus,detstatus,ilayer,ielem; double dens,DireOut3,PositionOut3,DetPosition3; double Yield,Emean,Ekout,Energy; double reactionangle; ofstream write; write.open(Output/output.dat); for(i=0;iTarLayerNumber;i+) /layer for(j=0;jtargeti.elementnum;j+) /element for(k=0;k1024;k+) Countsijk=0.0; for(i=0;i3;i+) DetPositioni= EmitDirectioni*DistanceDecSurface; for(num=1;numParticleNumber+1;num+) position0=0.0,position1=0.0,position2=0.0; direction0=InciDirection0,direction1=InciDirection1,direction2=InciDirection2; if(num%nx=0) coutsetw(5)num/nx %=arraymax) coutwarning.endl; continue; /So we get the collision events,now calculate the scattering for(i=0;inpoint;i+) ilayer=nlayeri; if(i=0) Emean=Ein0/1000.0; else Emean=0.5*(Eini+Eini-1)/1000.0; /calculate the scattering for(ielem=0;ielemtargetilayer.elementnum;ielem+) /eV to keVdens=targetilayer.numdens*targetilayer.ratioielem;for(l=0;lintercept*1000.0&reactionangle65 degree) event! NO REASON_2015.04.18 Detector(PositionOut,DireOut,EmitDirection,DetPosition,DetectorRadius,detstatus); if(detstatus=1) Ekout=Ekout/1000.0; ch=int(Ekout-intercept)/slope); if(ch=1024) ch=1023; Countsilayerielemch=Countsilayerielemch+Yield; /convolution nn=int(6.0*EnerRes/slope); for(i=0;iTarLayerNumber;i+) for(j=0;jtargeti.elementnum;j+) for(k=10;k1024;k+)for(l=k-nn;l=k+nn;l+) if(l=1024) break; CountOutijl=CountOutijl+3.98942280401432703e-01/EnerRes*Countsijl*exp(-pow(double(k-l)*slope,2.0)/(2.0*EnerRes*EnerRes)*slope; /Convolution is finished f