summaryrefslogtreecommitdiff
path: root/1952/CH12/EX12.33/Ex33.sce
blob: 1c3e36bfaf84e69de074efb561b07f70466798cf (plain)
1
2
3
4
5
6
7
8
9
10
11
// Additional solved examples , Example 33 , pg 346
M1=199    //isotopic mass
Tc1=4.18    //critical temperature for M1   (in K)
Tc2=4.14    //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=%.4f ",M2)