initial commit / add all books

14 files changed, 349 insertions, 0 deletions

diff --git a/2175/CH6/EX6.1/6_1.sce b/2175/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..205e2ac47
--- /dev/null
+++ b/2175/CH6/EX6.1/6_1.sce
@@ -0,0 +1,20 @@
+clc;

+M_O=23.3/100;//kg

+M_N=76.7/100;//kg

+M_C=45/100;//kg

+R=8.3145;

+T=288;//K

+V=0.4;//m^3

+

+m_o=32;

+m_n=28;

+pO=M_O*R*T*10^3/(m_o*V*10^5);

+pN=M_N*R*T*10^3/(m_n*V*10^5);

+m_c=28;

+pC=M_C*R*T*10^3/(m_c*V*10^5);

+p=pO+pN+pC;

+

+disp("bar",pO,"partial pressure of Oxygen is:")

+disp("bar",pN,"partial pressure of Nitrogen is:")

+disp("bar",pC,"partial pressure of Carbon monoxide is:")

+disp("bar",p,"total pressure is:")

diff --git a/2175/CH6/EX6.10/6_10.sce b/2175/CH6/EX6.10/6_10.sce
new file mode 100755
index 000000000..b7177d94d
--- /dev/null
+++ b/2175/CH6/EX6.10/6_10.sce
@@ -0,0 +1,35 @@
+clc;

+pO=7;//bar

+VO=1.5;//m^3

+R_=8.3145;

+TO=313;//K

+nO=pO*VO*10^5/(R_*TO*10^3);

+

+pC=1;//bar

+VC=3;//m^3

+TC=288;//K

+nC=pC*VC*10^5/(R_*TC*10^3);

+

+cvO=21.07;

+cvC=20.86;

+U1=nO*cvO*TO+nC*cvC*TC;

+U2_T=nO*cvO+nC*cvC;

+

+T=U1/U2_T;

+

+p=(nO+nC)*R_*T*10^3/(VO+VC)/10^5;

+disp("final temperature and pressure of mixture is:");

+disp("bar",p,"K",T)

+

+//part(II)

+VA=4.5;//m^3

+SA_S1_O=nO*R_*log(VA/VO);

+SA_S2_O=nO*cvO*log(TO/T);

+q1=SA_S1_O-SA_S2_O;

+

+SA_S1_C=nC*R_*log(VA/VC);

+SA_S2_C=nC*cvC*log(TC/T);

+q2=SA_S1_C-SA_S2_C;

+

+disp("change in entropy is:");

+disp("kJ/k",q1+q2);

diff --git a/2175/CH6/EX6.11/6_11.sce b/2175/CH6/EX6.11/6_11.sce
new file mode 100755
index 000000000..be01c692e
--- /dev/null
+++ b/2175/CH6/EX6.11/6_11.sce
@@ -0,0 +1,18 @@
+clc;

+V=0.3;//m^3

+vg=4.133;//m^3/kg

+m=V/vg;

+disp("mass of water injected:");

+disp("kg",m)

+

+//part B

+pa=0.7;//bar

+pg=0.3855;//bar

+v=0.001026;

+ms=(V-[pa*v])/[vg-v];

+

+mw=pa-ms;

+V_d=ms*vg

+pa2=pa*V/V_d;

+disp("total pressure is:");

+disp("bar",pa2+pg);

diff --git a/2175/CH6/EX6.12/6_12.sce b/2175/CH6/EX6.12/6_12.sce
new file mode 100755
index 000000000..4bcd317d4
--- /dev/null
+++ b/2175/CH6/EX6.12/6_12.sce
@@ -0,0 +1,8 @@
+clc;

+ni!n=0.15;

+p=1.4;//bar

+x=ni!n*p;

+//saturation temperature corresponding to 0.21 bar is 61.15 C

+t=61.15;//C

+disp("Temperature required is:");

+disp("C",t)

diff --git a/2175/CH6/EX6.13/6_13.sce b/2175/CH6/EX6.13/6_13.sce
new file mode 100755
index 000000000..5a9e7be1a
--- /dev/null
+++ b/2175/CH6/EX6.13/6_13.sce
@@ -0,0 +1,27 @@
+clc;

+ma=0.3/1000;//kg

+Ra=0.287;

+T=311;//K

+V=21.63//m^3

+

+p=ma*Ra*T*10^3/(V*10^5);

+

+T2=36+273;//K

+p2=0.0594;//bar

+vg=23.97;//m^3/kg

+pt=0.6624;//bar

+pa=pt-p2;

+mf=20000*0.3/1000;

+

+Vr=mf*Ra*T2*10^3/(pa*10^5);

+

+ms=Vr/vg

+

+T3=300;//K

+P3=0.0306;

+v=mf*(Ra)*T3*10^3/(P3*10^5)

+

+vg1=38.81;

+steam=v/vg1;

+disp("steam removed is:");

+disp("kg/H",steam)

diff --git a/2175/CH6/EX6.14/6_14.sce b/2175/CH6/EX6.14/6_14.sce
new file mode 100755
index 000000000..e4a83debb
--- /dev/null
+++ b/2175/CH6/EX6.14/6_14.sce
@@ -0,0 +1,30 @@
+clc;

+capacity_ac=778;//m^3/h

+capacity=168.9;//m^3/h

+

+red=(capacity_ac-capacity)*100/capacity_ac

+disp("percentage reduction in air pump is:");

+disp("%",red);

+

+ms2=4.35;//kg/h

+ms1=20000;//kg/h

+ma1=6;//kg/h

+ma2=ma1;

+mc=20000;//apprx

+

+hs2=2550.3;

+hc=150.7;

+hs1=2570.1;

+

+cp=1.005;

+T1=38;

+T2=27;

+ha1_ha2=cp*(T1-T2);

+

+Q=ms2*hs2+{ma1*ha1_ha2}+mc*hc-ms1*hs1;

+

+//mass of cooling water required

+disp("mass of cooling water required");

+t=5.5

+M=-Q/(t*4.182);

+disp("kg/h",M)

diff --git a/2175/CH6/EX6.2/6_2.sce b/2175/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..e89f35eec
--- /dev/null
+++ b/2175/CH6/EX6.2/6_2.sce
@@ -0,0 +1,24 @@
+clc;

+R=8.3145;

+m_o=31.999;

+m_n=28.013;

+m_a=39.948;

+m_c=44.010;

+

+R_O=R/m_o;

+R_N=R/m_n;

+R_A=R/m_a;

+R_C=R/m_c;

+

+miO=0.2314;

+miN=0.7553;

+miA=0.0128;

+miC=0.0005;

+

+R_=(miO*R_O)+(miN*R_N)+(miA*R_A)+(miC*R_C);

+

+m_=R/R_

+disp("specific gas constant of air is:")

+disp(R_)

+disp("molar mass of gas is:");

+disp(m_)

diff --git a/2175/CH6/EX6.3/6_3.sce b/2175/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..aa803566e
--- /dev/null
+++ b/2175/CH6/EX6.3/6_3.sce
@@ -0,0 +1,34 @@
+clc;

+miO=0.2314;//kg/kmole

+miN=0.7553;//kg/kmole

+miA=0.0128;//kg/kmole

+miC=0.0005;//kg/kmole

+

+m_O=31.999;//kg/kmole

+m_N=28.013;//kg/kmole

+m_A=39.948;//kg/kmole

+m_C=44.010;//kg/kmole

+

+niO=miO/m_O;//kmole

+niN=miN/m_N;//kmole

+niA=miA/m_A;//kmole

+niC=miC/m_C;//kmole

+

+n=niO+niN+niA+niC;//kmole

+

+V_O=niO*100/n;

+V_N=niN*100/n;

+V_A=niA*100/n;

+V_C=niC*100/n;

+

+p=1;

+piO=V_O*p/100;

+piN=V_N*p/100;

+piA=V_A*p/100;

+piC=V_C*p/100;

+

+disp("analysis of volume of Oxygen, Nitrogen, Argon and Carbon dioxide respectively are");

+disp(V_C,V_A,V_N,V_O);

+

+disp("partial pressure of Oxygen, Nitrogen, Argon and Carbon dioxide respectively are");

+disp(piC,piA,piN,piO);

diff --git a/2175/CH6/EX6.4/6_4.sce b/2175/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..e74d43502
--- /dev/null
+++ b/2175/CH6/EX6.4/6_4.sce
@@ -0,0 +1,41 @@
+clc;

+VO=0.21;

+VN=0.79;

+n=3.5;

+

+nO=VO*n;

+nN=VN*n

+nC=1;

+

+m_O=32;

+m_N=28;

+m_C=44;

+

+mO=m_O*nO;

+mN=m_N*nN;

+mC=m_C*nC;

+

+m=mO+mN+mC;

+disp("total mass is:");

+disp("kg",m);

+

+//percentage of carbon is

+mc=12;

+P=mc*100/m;

+disp("percentage of carbon is:");

+disp("%",P)

+

+

+n=nO+nN+nC;

+m_=[nO*m_O/n]+[nN*m_N/n]+[nC*m_C/n]

+

+R_=8.3145;

+R=R_/m_;

+disp("specific gas constant for the mix is:");

+disp("kJ/kg K",R);

+

+T=288;//K

+p=1;//bar

+v=R*T*10^3/(p*10^5);

+disp("specific volume of the mix at 1 bar and 15 C is");

+disp("m^3/kg",v)

diff --git a/2175/CH6/EX6.5/6_5.sce b/2175/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..6701b2e19
--- /dev/null
+++ b/2175/CH6/EX6.5/6_5.sce
@@ -0,0 +1,15 @@
+clc;

+nH=0.5;//kmole

+m_O=32;

+VH!VO=2;

+x=m_O*nH/VH!VO;

+disp("mass of oxygen required is:");

+disp("kg",x)

+nO=x/m_O;

+n=nH+nO;

+R_=8.3145;

+T=288;//K

+p=1;//bar

+V=n*R_*T*10^3/(p*10^5);

+disp("Volume of container is:");

+disp("m^3",V);

diff --git a/2175/CH6/EX6.6/6_6.sce b/2175/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..7f4e9392a
--- /dev/null
+++ b/2175/CH6/EX6.6/6_6.sce
@@ -0,0 +1,15 @@
+clc;

+m_H=2;

+m_CO=28;

+xH=0.8;

+xCO=0.2;

+

+m_=xH*m_H+xCO*m_CO;

+

+x=(xH-0.5)*9;

+disp("mass of mixture removed is:");

+disp("kg",x)

+

+y=28/7.2*x;

+disp("mass of CO added");

+disp("kg",y)

diff --git a/2175/CH6/EX6.7/6_7.sce b/2175/CH6/EX6.7/6_7.sce
new file mode 100755
index 000000000..25754d6fb
--- /dev/null
+++ b/2175/CH6/EX6.7/6_7.sce
@@ -0,0 +1,39 @@
+clc;

+nC=0.120;//kmol

+nO=0.115;//kmol

+nN=0.765;//kmol

+

+m_C=44;//kg/kmol

+m_O=32;//kg/kmol

+m_N=28;//kg/kmol

+

+miC=m_C*nC;//kg

+miO=m_O*nO;//kg

+miN=m_N*nN;//kg

+

+m=miC+miO+miN;

+

+cpC=1.271;//kJ/kgK

+cpO=1.110;//kJ/kgK

+cpN=1.196;//kJ/kgK

+

+cp=cpC*(miC/m)+cpO*(miO/m)+cpN*(miN/m);

+

+R_=8.3145;//kJ/kg K

+

+R=(miC/m)*(R_/m_C)+(miO/m)*(R_/m_O)+(miN/m)*(R_/m_N);

+

+cv=cp-R;

+

+T1=1000+273;

+v1!v2=1/7;

+n=1.25;

+T2=T1*(v1!v2)^(n-1);

+

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

+disp("Work done by th gas mixture is:");

+disp("kJ/kg",-W,R,T2);

+

+disp("heat supplied is:");

+Q=[cv*(T2-T1)]-W;

+disp("kJ/kg",Q);

diff --git a/2175/CH6/EX6.8/6_8.sce b/2175/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..f834d2004
--- /dev/null
+++ b/2175/CH6/EX6.8/6_8.sce
@@ -0,0 +1,12 @@
+clc;

+R=0.274;

+T1=1000+273;

+v1!v2=1/7;

+n=1.25;

+T2=T1*(v1!v2)^(n-1);

+sA_s1=R*log(1/v1!v2);

+

+cv=0.925;

+sA_s2=cv*log(T1/T2);

+disp("change of entropy of mixture is:");

+disp("kJ/kg K",sA_s1-sA_s2);

diff --git a/2175/CH6/EX6.9/6_9.sce b/2175/CH6/EX6.9/6_9.sce
new file mode 100755
index 000000000..1c96b64ae
--- /dev/null
+++ b/2175/CH6/EX6.9/6_9.sce
@@ -0,0 +1,31 @@
+clc;

+cp_CO=29.27;//kJ/kmol K

+cp_H=28.89;//kJ/kmol K

+cp_CH4=35.80;//kJ/kmol K

+cp_CO2=37.22;//kJ/kmol K

+cp_N=29.14;//kJ/kmol K

+

+niCO=0.29;

+niH=0.12;

+niCH4=0.03;

+niCO2=0.04;

+niN=0.52;

+

+cp_=cp_CO*niCO+cp_H*niH+cp_CH4*niCH4+cp_CO2*niCO2+cp_N*niN;

+

+R_=8.3145;

+cv_=cp_-R_;

+

+m_CO=28;

+m_H=2;

+m_CH4=16;

+m_CO2=44;

+m_N=28;

+

+m_=niCO*m_CO+niH*m_H+niCH4*m_CH4+niCO2*m_CO2+niN*m_N;

+

+cp=cp_/m_;

+cv=cv_/m_;

+

+disp("the values of cp_,cv_,cp and cv respectively are:");

+disp("kJ/kg K",cv,"kJ/kg K",cp,"kJ/kg K",cv_,"kJ/kg K",cp_)