diff options
Diffstat (limited to '1952/CH9/EX9.2/ex9_2.sce')
| -rwxr-xr-x | 1952/CH9/EX9.2/ex9_2.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1952/CH9/EX9.2/ex9_2.sce b/1952/CH9/EX9.2/ex9_2.sce new file mode 100755 index 000000000..b807e1585 --- /dev/null +++ b/1952/CH9/EX9.2/ex9_2.sce @@ -0,0 +1,10 @@ +// chapter 9 , Example9.2 , pg 255
+M1=199.5 //isotopic mass
+Tc1=4.185 //critical temperature for M1 (in K)
+Tc2=4.133 //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)
|