diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3689/CH15/EX15.5/15_5.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3689/CH15/EX15.5/15_5.sce')
| -rw-r--r-- | 3689/CH15/EX15.5/15_5.sce | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/3689/CH15/EX15.5/15_5.sce b/3689/CH15/EX15.5/15_5.sce new file mode 100644 index 000000000..e5d59a5f1 --- /dev/null +++ b/3689/CH15/EX15.5/15_5.sce @@ -0,0 +1,30 @@ +////
+//Variable Declaration
+Mne = 0.0201797 //Molecular wt of ne, kg/mol
+Mkr = 0.0837980 //Molecular wt of kr, kg/mol
+Vmne = 0.0224 //Std. state molar volume of ne, m3
+Vmkr = 0.0223 //Std. state molar volume of kr, m3
+h = 6.626e-34 //Planks's Constant, J.s
+NA = 6.022e23 //Avagadro's Number, 1/mol
+k = 1.38e-23 //Boltzmann constant, J/K
+T = 298 //Std. state temeprature,K
+R = 8.314 //Ideal gas constant, J/(mol.K)
+n = 1.0 //Number of mole, mol
+
+//Calcualtions
+mne = Mne/NA
+mkr = Mkr/NA
+Labdane = sqrt(h**2/(2*%pi*mne*k*T))
+Labdakr = sqrt(h**2/(2*%pi*mkr*k*T))
+Sne = 5.*R/2 + R*log(Vmne/Labdane**3)-R*log(NA)
+Skr = 5.*R/2 + R*log(Vmkr/Labdakr**3)-R*log(NA)
+
+//Results
+printf("\n Thermal wave lengths for Ne is %4.2e m3",Labdane)
+
+printf("\n Std. Molar entropy for Ne is %4.2f J/(mol.K)",Sne)
+
+printf("\n Thermal wave lengths for Kr is %4.2e m3",Labdakr)
+
+printf("\n Std. Molar entropy for Kr is %4.2f J/(mol.K)",Skr)
+
|