diff options
Diffstat (limited to '3689/CH14/EX14.6/14_6.sce')
| -rw-r--r-- | 3689/CH14/EX14.6/14_6.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/3689/CH14/EX14.6/14_6.sce b/3689/CH14/EX14.6/14_6.sce new file mode 100644 index 000000000..d2f1e07ba --- /dev/null +++ b/3689/CH14/EX14.6/14_6.sce @@ -0,0 +1,15 @@ +////Variable Declarations
+h = 6.626e-34 //Planks constant, J.s
+k = 1.38e-23 //Boltzman constant, J/K
+c = 3.0e8 //speed of light, m/s
+B = 0.0374 //Spectrum for H2, 1/cm
+T = 100.0 //Temperture of Hydrogen, K
+sigma = 2.
+
+//Calculations
+ThetaR = h*c*100*B/k
+qR = T/(sigma*ThetaR)
+
+//Results
+printf("\n Rotation partition function of H2 at %4.0f K is %4.3f",T,qR)
+
|