3 files changed, 135 insertions, 0 deletions
diff --git a/2762/CH11/EX11.1.1/11_1_1.sce b/2762/CH11/EX11.1.1/11_1_1.sce
new file mode 100755
index 000000000..c37cc919d
--- /dev/null
+++ b/2762/CH11/EX11.1.1/11_1_1.sce
@@ -0,0 +1,78 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 11
+//Example 11.1-1
+//Vapour Liquid Seperation Processes
+//given data
+pa=[116.9 135.5 155.7 179.2 204.2 240]
+pb=[46 54 63.3 74.3 86 101.32]
+P=101.32
+//eq: paxa+pb(1-xa)=P
+xa=[];
+ya=[];
+for i=1:6
+    xa(i)=(P-pb(1,i))/(pa(1,i)-pb(1,i))
+    ya(i)=((pa(1,i))*xa(i))/P
+end
+xa(7)=1;
+ya(7)=1;
+m=linspace(0,1,10)
+n=linspace(0,1,10)
+plot(m,n)
+plot2d(xa,ya,rect=[0 0 1 1])
+xtitle("raolts law","xa","ya")
+mprintf("xa=%f",xa);
+mprintf("ya=%f",ya);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/2762/CH11/EX11.2.1/11_2_1.sce b/2762/CH11/EX11.2.1/11_2_1.sce
new file mode 100755
index 000000000..ae61d0ced
--- /dev/null
+++ b/2762/CH11/EX11.2.1/11_2_1.sce
@@ -0,0 +1,40 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 11
+//Example 11.3-1
+//Vapour Liquid Seperation Processes
+//given data
+//suffix d means values are theoretical. other values withoud d are graphical values
+ya2d=0.4;//mole fraction of benzene
+xa0d=0.3;
+V2=100;//100 kg mol mixture of benzene and toluene 
+L0=110;//mixed with 110 kg mol of benzene and toluene
+L1=L0;//as the 2 streams are in equilibrium with each other
+V1=V2;
+//material balance on A
+//L0xa0+V2ya2=L1xa1+V1ya1
+//assuming xa1=0.2
+xa=[];
+ya=[];
+xa1d=0.2;
+ya1d=(L0*xa0d+V2*ya2d-L1*xa1d)/V1
+xa1dd=0.4;
+ya1dd=(L0*xa0d+V2*ya2d-L1*xa1dd)/V1
+xa1ddd=0.3;
+ya1ddd=(L0*xa0d+V2*ya2d-L1*xa1ddd)/V1
+xad=[xa1d xa1dd xa1ddd];
+yad=[ya1d ya1dd ya1ddd];
+plot(xad,yad,rec=[0,0,1,1])
+pa=[116.9 135.5 155.7 179.2 204.2 240]
+pb=[46 54 63.3 74.3 86 101.32]
+P=101.32;//dew point pressure
+//eq: paxa+pb(1-xa)=P
+m=linspace(0,1,10)
+n=linspace(0,1,10)
+for i=1:6
+    xa(i)=(P-pb(1,i))/(pa(1,i)-pb(1,i))
+    ya(i)=((pa(1,i))*xa(i))/P
+end
+plot(m,n)
+plot2d(xa,ya,rect=[0 0 1 1])
+xtitle("equilibrium diagram for benzene-toluene system","xa","ya")
+disp("from the graph intersection we can say ya1=0.455 and xa1=0.25")
diff --git a/2762/CH11/EX11.3.1/11_3_1.sce b/2762/CH11/EX11.3.1/11_3_1.sce
new file mode 100755
index 000000000..49d52f990
--- /dev/null
+++ b/2762/CH11/EX11.3.1/11_3_1.sce
@@ -0,0 +1,17 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 11
+//Example 11.3-1
+//Vapour Liquid Seperation Processes
+//given data
+//85 deg C
+Pa1=116.9;
+Pb1=46;
+alpha1=Pa1/Pb1;
+// 105 deg C
+Pa2=204.2;
+Pb2=86;
+alpha2=Pa2/Pb2;
+mprintf("alpha at 85 deg C = %f",alpha1);
+mprintf(" alpha at 105 deg C = %f",alpha2);
+p=((alpha1-alpha2)/alpha2)*100;
+mprintf(" percentage variation=%f",p)