summaryrefslogtreecommitdiff
path: root/3845/CH32/EX32.1/Ex32_1.sce
blob: 15817e1661bfc16334d39550dee8cb8d652d3b7f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Example 32.1
//Activity R=1.00*10^-6 Ci=3.70*10^4 Bq=3.70*10^4 decays/s
m=2;//Mass (kg)
RBE=20;//Relative Biological Effectiveness, See Table 32.2
d=(3.70*10^4)*(3.16*10^7);//Number of decays per year=R*Number of seconds in a year
E=d*5.23*1.60*10^-13;//Ionisation energy deposited per year (J)
Dose1=(E/m)/1;//Dose (Gy)
Dose2=Dose1*20;//Dose (Sv)
printf('Dose in Gy = %0.3f Gy',Dose1)
printf('\nDose in Sv = %0.1f Sv',Dose2)
//Openstax - College Physics
//Download for free at http://cnx.org/content/col11406/latest