initial commit / add all books

9 files changed, 135 insertions, 0 deletions

diff --git a/2354/CH4/EX4.1/4_1.sce b/2354/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..92ca77bb3
--- /dev/null
+++ b/2354/CH4/EX4.1/4_1.sce
@@ -0,0 +1,21 @@
+//example 4.1

+clc; funcprot(0);

+// Initialization of Variable

+V=0.5;//volume

+P1=1;//pressure

+P2=0.5;

+vf1=1.0432/1000;

+vf2=1.0582/1000;

+x=0.5;

+T1=99.63;

+v1=vf1+0.5*(1.694-vf1);

+v2=v1;

+T2=111.4;//from table

+disp(T2,"temperature in degree celcius");

+m=V/v1;

+mg1=x*m;

+disp(mg1,"mass of vapor in kg");

+x2=(v1-vf2)/(1.159-vf2);

+mg2=x2*m;

+disp(mg2,"mass of vapor in kg");

+clear()

diff --git a/2354/CH4/EX4.10/4_10.sce b/2354/CH4/EX4.10/4_10.sce
new file mode 100755
index 000000000..5914047a9
--- /dev/null
+++ b/2354/CH4/EX4.10/4_10.sce
@@ -0,0 +1,16 @@
+//example 4.10

+clc; funcprot(0);

+// Initialization of Variable

+m1=2;

+m2=8;

+T1=350;

+T2=300;

+P1=0.7;//bar

+P2=1.2;//bar

+Tf=315;//K

+cv=0.745;//heat capacity

+pf=(m1+m2)*Tf/(m1*T1/P1+m2*T2/P2);

+disp(pf,"final pressure in bar");

+Q=m1*cv*(Tf-T1)+m2*cv*(Tf-T2);

+disp(Q,"heat transfer into the system in kJ");

+clear()

diff --git a/2354/CH4/EX4.11/4_11.sce b/2354/CH4/EX4.11/4_11.sce
new file mode 100755
index 000000000..0ded27bd2
--- /dev/null
+++ b/2354/CH4/EX4.11/4_11.sce
@@ -0,0 +1,16 @@
+//example 4.11

+clc; funcprot(0);

+// Initialization of Variable

+P2=5.0;

+P1=1.0;

+n=1.3;

+T1=530;

+R=1.986;

+u2=131.88;

+u1=90.33;

+T2=T1*(P2/P1)^(.3/n);

+k1=R*(T2-T1)/(1-n)/28.97;//k1=W/m

+disp(k1,"W/m in Btu/lb");

+k2=k1+u2-u1;//k2=Q/m

+disp(k2,"Q/m in Btu/lb");

+clear()

diff --git a/2354/CH4/EX4.2/4_2.sce b/2354/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..a44e8cd19
--- /dev/null
+++ b/2354/CH4/EX4.2/4_2.sce
@@ -0,0 +1,14 @@
+//example 4.2

+clc; funcprot(0);

+// Initialization of Variable

+m=0.1;

+v1=2.2661;

+P2=20;//pressure

+v2=2.6704;

+V1=m*v1;

+disp(V1,"volume in ft^3");

+V2=m*v2;

+disp(V2,"volume in ft^3");

+W=P2*(V2-V1)*144/778;

+disp(W,"Work done in Btu");

+clear()

diff --git a/2354/CH4/EX4.3/4_3.sce b/2354/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..12d9fd69a
--- /dev/null
+++ b/2354/CH4/EX4.3/4_3.sce
@@ -0,0 +1,11 @@
+//example 4.3

+clc; funcprot(0);

+// Initialization of Variable

+V=10.0;//ft^3

+v1=26.8;//ft^3/lb

+u1=1077.6;//btu/lb

+u2=1161.6;//Btu/lb;

+m=V/v1;

+W=-m*(u2-u1);

+disp(W,"Work done in Btu");

+clear()

diff --git a/2354/CH4/EX4.4/4_4.sce b/2354/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..ee77c492b
--- /dev/null
+++ b/2354/CH4/EX4.4/4_4.sce
@@ -0,0 +1,16 @@
+//example 4.4

+clc; funcprot(0);

+// Initialization of Variable

+P=10;//pressure

+v2=0.1944;//volume

+v1=0.3066;//volume

+uf3=631.68;

+v3=0.1944;

+vg3=0.3928;

+vf3=1.0905/1000;

+x3=(v3-vf3)/(vg3-vf3);

+u3=uf3+x3*(2559.5-uf3);

+k1=P*(v2-v1)*100;//k=W/m

+k2=u3-2957.3+k1;//k2=Q/m

+disp(k2,"Q/m in kJ/kg");

+clear()

diff --git a/2354/CH4/EX4.6/4_6.sce b/2354/CH4/EX4.6/4_6.sce
new file mode 100755
index 000000000..8816cb512
--- /dev/null
+++ b/2354/CH4/EX4.6/4_6.sce
@@ -0,0 +1,17 @@
+//example 4.6

+clc; funcprot(0);

+// Initialization of Variable

+Tr1=793.0/647.3;

+Pr1=22.0/22.09;

+Rbar=8314.0;

+M=18.02;

+T1=793.0;

+P1=20.0e6;

+pr2=0.69;

+v1=0.83*Rbar/M/P1*T1;

+disp(v1,"Specific weight in m^3/kg");

+vrdash=v1*22.09e6/Rbar*M/647.3;

+Tr2=673/647.3;

+P2=22.09e6*pr2;

+disp(P2/10^6,"Pressure in Mpa");

+clear()

diff --git a/2354/CH4/EX4.7/4_7.sce b/2354/CH4/EX4.7/4_7.sce
new file mode 100755
index 000000000..d2fa6b7e3
--- /dev/null
+++ b/2354/CH4/EX4.7/4_7.sce
@@ -0,0 +1,14 @@
+//example 4.7

+clc; funcprot(0);

+// Initialization of Variable

+p2=2;//pressure

+p1=1;//pressure

+T1=540;//temperature

+Rbar=1545;

+M=28.97;

+P1=14.7*144;

+T2=p2/p1*T1;

+disp(T2,"temperature in degreeR");

+v3=Rbar/M*T2/P1;

+disp(v3,"specific volume in ft^3/lb");

+clear()

diff --git a/2354/CH4/EX4.8/4_8.sce b/2354/CH4/EX4.8/4_8.sce
new file mode 100755
index 000000000..e2660d5e8
--- /dev/null
+++ b/2354/CH4/EX4.8/4_8.sce
@@ -0,0 +1,10 @@
+//example 4.8

+clc; funcprot(0);

+// Initialization of Variable

+Q=-20;

+m=2;

+u2=143.98;

+u1=92.04;

+W=Q-m*(u2-u1);

+disp(W,"work done on the system in Btu");

+clear()