initial commit / add all books

8 files changed, 80 insertions, 0 deletions

diff --git a/632/CH6/EX6.1/example6_1.sce b/632/CH6/EX6.1/example6_1.sce
new file mode 100755
index 000000000..27d5acedf
--- /dev/null
+++ b/632/CH6/EX6.1/example6_1.sce
@@ -0,0 +1,13 @@
+//clc()

+P = 500;//kPa

+SV = 0.2813;//m^3/kg

+Vsaturatedl = 1.093 * 10^-3;//m^3/kg

+Vsaturatedv = 0.3747;//m^3/kg

+// let the fraction of vapour be y

+//(1-y)*Vsaturatedl + y*Vsaturatedv = SV

+//then we get, (1-y)*(1.093*10^-3) + y*(0.3747) = 0.2813

+y = (SV - Vsaturatedl)/(Vsaturatedv - Vsaturatedl);

+P1 = y * 100;

+P2 = 100 - P1;

+disp("%",P1,"Percentage of Vapour = ")

+disp("%",P2,"Percentage of Liquid = ")
\ No newline at end of file
diff --git a/632/CH6/EX6.2/example6_2.sce b/632/CH6/EX6.2/example6_2.sce
new file mode 100755
index 000000000..9f310b769
--- /dev/null
+++ b/632/CH6/EX6.2/example6_2.sce
@@ -0,0 +1,9 @@
+//clc()

+T1 = 363;//K

+T2 = 373;//K

+P2s = 101.3;//kPa

+J = 2275 * 18;//kJ/kmol

+R = 8.314;//kJ/kmolK

+//ln (P2s/P1s) = J * (1/T1 - 1/T2) / R

+P1s = P2s/exp(J * (1/T1 - 1/T2) / R);

+disp("kPa",P1s,"Vapour pressure of water at 363 K = ")
\ No newline at end of file
diff --git a/632/CH6/EX6.3/example6_3.sce b/632/CH6/EX6.3/example6_3.sce
new file mode 100755
index 000000000..30fd26b18
--- /dev/null
+++ b/632/CH6/EX6.3/example6_3.sce
@@ -0,0 +1,17 @@
+//clc()

+P1s = 194.9;//kPa

+P2s = 8.52;//kPa

+T1 = 353;//K

+T2 = 273;//K

+T3 = 300;//K

+Pair = 101.3;//kPa

+//log (P2s/P1s) = J * (1/T1 - 1/T2) / R

+//let J / R = L

+L = log (P2s/P1s)/(1/T1 - 1/T2);

+P3s = P1s * exp(L * (1/T1 - 1/T3)) ;

+Ptotal = P3s + Pair;//at saturation vapour pressure = partial pressure

+disp("kPa",Ptotal,"(a)Final pressure of the mixture = ")

+MP = P3s * 100 / Ptotal;

+// mole percent = moles of acetone * 100 / total moles

+//= Partial pressure of acetone * 100 / total Pressure

+disp("%",MP,"(b)Mole percent of acetone in the final mixture = ")
\ No newline at end of file
diff --git a/632/CH6/EX6.4/example6_4.sce b/632/CH6/EX6.4/example6_4.sce
new file mode 100755
index 000000000..3409c63d8
--- /dev/null
+++ b/632/CH6/EX6.4/example6_4.sce
@@ -0,0 +1,13 @@
+//clc()

+A = 13.8587;

+B = 2911.32;

+C = 56.56;

+T1 = 325;//K

+//Pressure at normal condition = 101.3kPa

+P2 = 101.3;//kPa

+//Antoine equation - lnP = A - B / (T - C)

+lnP = A - (B / (T - C));

+P1 = exp(lnP);

+disp("kPa",P1,"(a)Vapour pressure of n-heptane at 325K = ")

+T2 = B/(A - log(P2)) + C;

+disp("K",T2,"(b)Normal boiling point of n-heptane = ")
\ No newline at end of file
diff --git a/632/CH6/EX6.5/example6_5.png b/632/CH6/EX6.5/example6_5.png
new file mode 100755
index 000000000..febf5c960
--- /dev/null
+++ b/632/CH6/EX6.5/example6_5.png
diff --git a/632/CH6/EX6.5/example6_5.sce b/632/CH6/EX6.5/example6_5.sce
new file mode 100755
index 000000000..fc6cf4d74
--- /dev/null
+++ b/632/CH6/EX6.5/example6_5.sce
@@ -0,0 +1,9 @@
+//clc()

+T = [273 293 313 323 333 353 373];

+Ps = [0.61 2.33 7.37 12.34 19.90 47.35 101.3];

+plot2d('ll',T,Ps,rect=[250,0.1,380,195]);

+P = get("hdl");

+xtitle('Construction of cox chart','Temperature, K','Pressure, kPa');

+T1 = [273 353]

+Ps1 = [8.52 194.9]

+plot2d('ll',T1,Ps1);
\ No newline at end of file
diff --git a/632/CH6/EX6.6/example6_6.jpeg b/632/CH6/EX6.6/example6_6.jpeg
new file mode 100755
index 000000000..4fb5749e1
--- /dev/null
+++ b/632/CH6/EX6.6/example6_6.jpeg
diff --git a/632/CH6/EX6.6/example6_6.sce b/632/CH6/EX6.6/example6_6.sce
new file mode 100755
index 000000000..076ec1bc5
--- /dev/null
+++ b/632/CH6/EX6.6/example6_6.sce
@@ -0,0 +1,19 @@
+//clc()

+Pswater1 = 6.08;//kPa 

+T1 = 313;//K

+//lnPs = 16.26205 - 3799.887/(T - 46.854)

+Tb1 =3799.887/(16.26205 - log(Pswater1)) + 46.854;

+disp("K",Tb1,"boiling point of water at 6.08kPa vapour pressure = ")

+Pswater2 = 39.33;//kPa

+T2 = 353;//K

+Tb2 =3799.887/(16.26205 - log(Pswater2)) + 46.854;

+disp("K",Tb2,"boiling point of water at 39.33 kPa vapour pressure = ")

+Tb = [Tb1 Tb2];

+T = [T1 T2];

+plot(T,Tb);

+xtitle('Equal pressure reference plot for sulphuric acid','Boiling point of solution,K','Boiling point of water, K');

+T3 = 333;//K

+//corresponding to T3 on x axis, on y we get

+Tb3 = 329;//K

+Pswater3 = exp(16.26205 - 3799.887/(Tb3 - 46.854));

+disp("kPa",Pswater3,"Vapour pressure of solution at 333K")