summaryrefslogtreecommitdiff
path: root/446/CH12/EX12.4/12_4.sce
blob: 1777de95ce57456ec20f9ac9b99abeae6576b9e0 (plain)
1
2
3
4
5
6
7
8
9
clear
clc
disp('Exa-12.4');
N=30;Z=26;A=56;Mn=1.008665;Mp=1.007825;m=55.934939;c2=931.5; //given values and constants for case-1
B=((N*Mn)+(Z*Mp)-(m))*c2;                                  //binding energy(per nucleon)
printf('Binding nergy per nucleon for 26,56Fe30 is %.3f MeV\n',B/A);
N=146;Z=92;A=238;Mn=1.008665;Mp=1.007825;m=238.050785;c2=931.5;      //given values and constants for case-2
B=((N*Mn)+(Z*Mp)-(m))*c2;                             //binding energy(per nucleon)
printf('Binding nergy per nucleon for 26,56Fe30 is %.3f MeV',B/A);