diff options
Diffstat (limited to '3689/CH15/EX15.2/15_2.sce')
| -rw-r--r-- | 3689/CH15/EX15.2/15_2.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3689/CH15/EX15.2/15_2.sce b/3689/CH15/EX15.2/15_2.sce new file mode 100644 index 000000000..d46c1df83 --- /dev/null +++ b/3689/CH15/EX15.2/15_2.sce @@ -0,0 +1,14 @@ +////
+//Variable Declaration
+U = 1.00e3 //Total internal energy, J
+hnu = 1.00e-20 //Energy level separation, J
+NA = 6.022e23 //Avagadro's Number, 1/mol
+k = 1.38e-23 //Boltzmann constant, J/K
+n = 1 //Number of moles, mol
+
+//Calcualtions
+T = hnu/(k*log(n*NA*hnu/U-1.))
+
+//Results
+printf("\n For Internal energy to be %4.1f J temperature will be %4.1f K",U,T)
+
|