5 files changed, 136 insertions, 0 deletions
diff --git a/1052/CH20/EX20.2/202.sce b/1052/CH20/EX20.2/202.sce
new file mode 100755
index 000000000..e478eae1a
--- /dev/null
+++ b/1052/CH20/EX20.2/202.sce
@@ -0,0 +1,32 @@
+clc;
+//Example 20.2
+//page no 269
+printf("\n Example 20.2 page no 269\n\n");
+//ventilation required in an indoor work area where a toluene containing adhesive in a nanotechnology process is used.
+//equation  for estimate the dilution air requirement 
+C_a=80e-6//concentration of toluene
+q=3/8//volumatric flow rate, gal/h
+v=0.4//adhesive contains 4 volume % toluene
+S_g=0.87//specific gravity
+printf("\n C_a concentration of toluene=%f \n q  volumatric flow rate q=%f gal/h \n S_g specific gravity=%f ",C_a,q,S_g);
+//mass flow rate of toluene 
+m_dot_tol=q*v*S_g*(8.34)//factor 8.34 for lb
+printf("\n mass flow rate m_dot-tol=%f lb/h",m_dot_tol);
+m_dot_g=m_dot_tol*(454/60)//unit conversion of mass flow rate in g/min
+printf("\n mass flow rate in g/min m_dot_g=%f g/min",m_dot_g);
+M_w=92//molecular weight of toluene
+n_dot_tol=m_dot_g/M_w//no. of gm moles of toluene/min
+printf("\n no. of moles n_dot_tol=%f gmol/min",n_dot_tol);
+//resultant toluene vapor volumatric flow rate q_tol is directly calculated from th eidal gas law
+//applying ideal gas law
+R=0.08206//gas constant 
+P=1//standard pressure
+T=293//standard temperature
+printf("\n R gas constant=%f atm.L/(gmol.K)\n T temperature=%f K\n P pressure =%f atm",R,T,P);
+q_tol=n_dot_tol*R*T/P//toluene vapor volumatric flow rate 
+printf("\n toluene vapor vol. flow rate q_tol=%f L/min",q_tol);
+q_tol=2.15//round off value
+//the required diluent volumatric flow rtae
+K=5//dimensionless mixing factor 
+q_dil=K*q_tol/(C_a)//diluent vol. flow rate
+printf("\n diluent vol. flow rate q_dil=%f L/min",q_dil);
diff --git a/1052/CH20/EX20.3/203.sce b/1052/CH20/EX20.3/203.sce
new file mode 100755
index 000000000..5d2845415
--- /dev/null
+++ b/1052/CH20/EX20.3/203.sce
@@ -0,0 +1,33 @@
+clc;
+//Example 20.3
+//page no 270
+printf("Example 20.3 page no 270 \n\n");
+// a certain poorly ventilated room chemical stroage room has a ceiling fan
+//inside this room bottle of iron(3) sulfide sits next to a bottle sulfuric acid  containg 1 lb H2SO4 in water
+// an earthquake sends the botlles on the shelf crashing to the floor where bottles break and their contant mix and react to form iron(3) sulfate and hydrogen sulfide
+//we have to calculate maximum H2S concentration that could be reached in the room
+Mw_Fe2S3=208//mol. weight of Fe2S3
+Mw_H2SO4=98//mol. weight of H2SO4
+Mw_H2S=34//mol. weight of H2S
+Mw_air=29//mol. weight of air
+//balancing chemical reaction 
+// from the stiochiometric of the reaction ,sulfuric acid is the limiting reagent
+// 0.030 lbmol of Fe2S3 is required to react with 0.010 lbmol of H2SO4\
+v_r=1600//volume of room,ft^3
+n_H2SO4=0.010// lbmol of H2SO4
+Stoi_c_H2SO4=3//stoichiometric coeff. of H2SO4
+Stoi_c_H2S=3//stoichiometric coeff. of H2S
+n_H2S=n_H2SO4*(Stoi_c_H2S/Stoi_c_H2SO4)//lbmol of H2S
+printf("\n lbmol of H2S n_H2S=%f lbmol",n_H2S);
+m_H2S=n_H2S*Mw_H2S//conversion of moles into mass of H2S
+printf("\n mass of H2S m_H2S=%f lb",m_H2S);
+//at 32 degF and i atm pressure an ideal gas occupies 359 ft^3 volume then,at 51 deg F occupies
+T_r=51//temperature of air in the room
+T_st=32//standard temperature
+v_st=359//standard volume
+printf("\n stand. temperature T_st=%f F\n temperature of air in room T_r=%f F\n stand. volume v_st=%f ft^3",T_st,T_r,v_st); 
+V_a=v_st*(460+T_r)/(460+T_st)//volume of air
+printf("\n volume of air at 51deg F V_a=%f ft^3",V_a);
+//the final concentration of H2S in the room in ppm C_H2S
+C_H2S=m_H2S*(V_a/Mw_air)*1e+6/(v_r)
+printf("\n conc. of H2S in ppm C_H2S=%f ppm",C_H2S);
diff --git a/1052/CH20/EX20.4/204.sce b/1052/CH20/EX20.4/204.sce
new file mode 100755
index 000000000..91de443a7
--- /dev/null
+++ b/1052/CH20/EX20.4/204.sce
@@ -0,0 +1,33 @@
+clc;
+//Example 20.4
+//Page no 271
+printf("Example 20.4 page no 271\n\n");
+//vinyl chloride application
+//calculation of density by using ideal gas law
+Mw=78//molecular weight of vinyl chloride
+R=82.06//gas constant,cm^3.atm/mol.K 
+T=298//temperature,K 
+P=1//pressure ,atm
+rho=P*Mw/(R*T)//density of vinyl chloride
+printf("\n rho density of vinyl chloride=%f g/cm^3",rho);
+//given
+m_dot=10//mass flow rate,g/min
+q=m_dot/rho//volumatric flow rate
+printf("\n vol. flow rate q=%f cm^3/min",q);
+q_acfm=0.1107//vol flow rate in acfm
+//cal. the air flow rate in acfm q_air required to meet the 1.0 ppm constraint with the equation 
+q_air=q_acfm/1e-6
+printf("\n vol.flow rate q_air=%f acfm",q_air);
+S_factor=10//correct for mixing by employing a saftey factor
+//apply saftey factor to calculate the actual air flow rate for dilution ventilation 
+q_dil=S_factor*q_air
+printf("\n air flow rate for dilution q_dil=%f acfm",q_dil);
+//now consider the local exhaust ventilation by first calculating the face area
+H=30//height of hood,in
+W=25//width of hood,in
+S=H*W/144//surface area of hood ,ft^2
+//the air flow rate in acfm q_air,exh required for a face velocity of 100 ft/min is then
+v=100//face velocity,ft/min
+q_exh=round(S*v)
+printf("\n air flow rate q_exh=%f acfm",q_exh); 
+
diff --git a/1052/CH20/EX20.7/207.sce b/1052/CH20/EX20.7/207.sce
new file mode 100755
index 000000000..355a45fa0
--- /dev/null
+++ b/1052/CH20/EX20.7/207.sce
@@ -0,0 +1,18 @@
+clc;
+//Example 20.7
+//page no 276
+printf("\n Example 20.7 page no 276\n\n");
+//refer to illustrative Example 20.5
+//(1)
+//we have to calculate minimum air ventilation flow rate into the room containing 10 ng/m^3 of a toxic chemical
+//ng means nanograms
+rV=250//chemical generated in the laboratory,ng/min
+c_o=10//room containg toxic chemical of 10ng/m^3 
+c=35//limit of chemical concentration,ng/m^3
+//applicable modal in this case
+//q_o(c_o-c) + rV  =V*dc/dt
+//substituting gives
+q_o=(-rV)/(c_o-c)//minimum air ventilation flow rate
+printf("\n q_o min. air ventilation flow rate=%f m^3/min",q_o);
+
+
diff --git a/1052/CH20/EX20.8/208.sce b/1052/CH20/EX20.8/208.sce
new file mode 100755
index 000000000..c433c59f9
--- /dev/null
+++ b/1052/CH20/EX20.8/208.sce
@@ -0,0 +1,20 @@
+clc;
+//Example 20.8 page no 277
+printf(" Example 20.8 page no 277\n\n");
+//refer to example no 20.5 and 20.7
+V=142//volume of room,m^3
+q=12.1// flow rate of air,m^3/min
+tou=V/q//time ,min
+r=30//rate of generation of chemical,ng/min
+k=r/V//ng/(m^3.min)
+c_i=85//intial concentration in laboratory,ng/m^3
+c_o=10//given concentration in room
+c=20.7//final concentration in room
+//by using  trial and error mthod we get 
+function y=f(t)
+  y=c_i*(exp(-t/tou))+ (c_o+k*tou)*(1-exp(-t/tou)) - c
+endfunction
+t=fsolve(30,f);
+//by using trail and error method we get
+t=29
+printf("\n t=%f min ",t);