diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /944/CH7/EX7.14/example7_14_TACC.sce | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '944/CH7/EX7.14/example7_14_TACC.sce')
| -rwxr-xr-x | 944/CH7/EX7.14/example7_14_TACC.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/944/CH7/EX7.14/example7_14_TACC.sce b/944/CH7/EX7.14/example7_14_TACC.sce new file mode 100755 index 000000000..20f6a446f --- /dev/null +++ b/944/CH7/EX7.14/example7_14_TACC.sce @@ -0,0 +1,19 @@ +//example 7.14
+
+clear;
+clc
+
+//Given:
+T=298;//Temperature[K]
+I=1.9373*10^-46;//moment of inertia of O2 gas [Kg/m2]
+h=6.626*10^-34;//Planck's constant[J.s]
+k=1.381*10^-23;//Boltzmann constant[J/K]
+R=8.314;//Universal gas constant[J/K/mol]
+u=2;//Homonuclear diatomic molecule
+
+
+//To find the rotational entropy and free energy for O2 gas
+Sr=R+R*log(8*3.14*3.14*I*k*T/(u*h*h));//[J/K/mol]
+Gr=-R*0.001*T*log(8*3.14*3.14*I*k*T/(u*h*h));//[KJ/mol]
+printf("The rotational entropy for O2 gas is %f J/K/mol",Sr);
+printf("\nThe rotational free energy for O2 gas is %f KJ/mol",Gr);
|