diff options
Diffstat (limited to '647/CH3/EX3.11')
-rwxr-xr-x | 647/CH3/EX3.11/Example3_11.sce | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/647/CH3/EX3.11/Example3_11.sce b/647/CH3/EX3.11/Example3_11.sce new file mode 100755 index 000000000..6ac349201 --- /dev/null +++ b/647/CH3/EX3.11/Example3_11.sce @@ -0,0 +1,22 @@ +clear;
+clc;
+
+// Example: 3.11
+// Page: 107
+
+printf("Example: 3.11 - Page: 107\n\n");
+
+// Solution
+
+//*****Data*****//
+Tc = 513.9;// [K]
+Pc = 61.48*10^5;// [Pa]
+//************//
+
+Tr = 0.7;
+T = Tr*Tc - 273.15;// [OC]
+P_sat = 10^(8.112 - (1592.864/(T + 226.184)));// [mm Hg]
+P_sat = P_sat*101325/760;// [Pa]
+Pr_sat = P_sat/Pc;// [Pa]
+omega = -1 - log10(Pr_sat);// [Acentric factor]
+printf("Acentric factor is %.4f",omega);
\ No newline at end of file |