From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 1019/CH6/EX6.13/Example_6_13.sce | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 1019/CH6/EX6.13/Example_6_13.sce

(limited to '1019/CH6/EX6.13')

diff --git a/1019/CH6/EX6.13/Example_6_13.sce b/1019/CH6/EX6.13/Example_6_13.sce
new file mode 100644
index 000000000..4f3c9c54b
--- /dev/null
+++ b/1019/CH6/EX6.13/Example_6_13.sce
@@ -0,0 +1,19 @@
+//Example 6.13
+clear;
+clc;
+
+//Given
+T=298;//temperature in K
+P=1;//pressure in atm
+I=1.9373;//moment of inertia in 10^(-46) kg m^2
+R=8.314;//gas constant in J K^-1 mol^-1
+h=6.626;//plancks constant in 10^(34) Js
+k=1.38;//in (10^(-23)) J K^-1
+
+//To determine the rotational contributions to entropy and free energy
+Qr=(8*(%pi^2)*I*k)/(20*(h^2));//rotational transition function
+Sr=R*(1+log(Qr*T));//rotational contributions to entropy in J K^-1 mol^-1
+Gr=((R*T)-(T*Sr))*0.001;//rotational contributions to free energy in J mol^-1
+mprintf('rotational contributions to entropy = %f J K^-1 mol^-1',Sr);
+mprintf('\n rotational contributions to free energy = %f kJ mol^-1',Gr);
+//end
\ No newline at end of file
-- 
cgit