blob: fa8c6e33ce46810149aeb6244d7ffdf93498a110 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Given that
Nn = 70
Np = 50
A = Nn+Np
//Sample Problem 43-3
txt = mopen('Example43_3_result.txt','wt')
mfprintf(txt, '**Sample Problem 43-3**\n')
Msn = 119.902199 //in Atomic mass unit
uCsqure = 931.5 //in Mev
Mp = 1.007825 //in Atomic mass unit
Mn = 1.008625 //in Atomic mass unit
deltaE = (Np*Mp + Nn*Mn - Msn)*uCsqure/A
mfprintf(txt, 'The binding energy per nucleon of Sn is %fMev/nucleon', deltaE)
mclose(txt)
|
