summaryrefslogtreecommitdiff
path: root/1952/CH12/EX12.32/Ex32.sce
blob: c9c5217598bf34e11dfbb57a32cf16a915a9d630 (plain)
1
2
3
4
5
6
7
8
9
10
11
// Additional solved examples , Example 32 , pg 346
M1=198.5    //isotopic mass
Tc1=4.175    //critical temperature for M1   (in K)
Tc2=4.213    //critical temperature for M2   (in K)
alpha=0.5

//M^alpha * Tc=constant
M2=((M1^alpha*Tc1)/Tc2)^(1/alpha)
printf("Isotopic mass at critical temperature 4.133K\n")
printf("M2=%.3f ",M2)