From 476705d693c7122d34f9b049fa79b935405c9b49 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Tue, 14 Apr 2020 10:19:27 +0530 Subject: Initial commit --- .../10-Streamlineflow_and_steam_convection.ipynb | 406 ++++++++ .../11-Calculations_for_process_conditions.ipynb | 759 ++++++++++++++ .../12-Condensation_of_single_vapor.ipynb | 966 +++++++++++++++++ .../13-Condensation_of_Mixed_vapors.ipynb | 1089 ++++++++++++++++++++ .../14-Evopartion.ipynb | 623 +++++++++++ .../15-Vaporizers_Evoparators_and_Reboilers.ipynb | 972 +++++++++++++++++ .../16-Extended_Surfaces.ipynb | 549 ++++++++++ .../17-Cooling_Towers.ipynb | 501 +++++++++ .../18-Batch_and_unsteady_process.ipynb | 460 +++++++++ .../19-Furnace_Calculations.ipynb | 286 +++++ .../2-Conduction.ipynb | 216 ++++ .../20-Additional_applications.ipynb | 664 ++++++++++++ .../4-Radiation.ipynb | 155 +++ .../5-Temperature.ipynb | 285 +++++ .../6-CounterflowDouble_pipe_exchangers.ipynb | 349 +++++++ ...lel_Counterflow_Shell_and_Tube_Excahngers.ipynb | 749 ++++++++++++++ ..._Arrangements_for_increased_heat_recovery.ipynb | 294 ++++++ Process_Heat_Transfer_by_D_Q_Kern/9-Gases.ipynb | 276 +++++ 18 files changed, 9599 insertions(+) create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/10-Streamlineflow_and_steam_convection.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/11-Calculations_for_process_conditions.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/12-Condensation_of_single_vapor.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/13-Condensation_of_Mixed_vapors.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/14-Evopartion.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/15-Vaporizers_Evoparators_and_Reboilers.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/16-Extended_Surfaces.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/17-Cooling_Towers.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/18-Batch_and_unsteady_process.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/19-Furnace_Calculations.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/2-Conduction.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/20-Additional_applications.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/4-Radiation.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/5-Temperature.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/6-CounterflowDouble_pipe_exchangers.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/7-Parallel_Counterflow_Shell_and_Tube_Excahngers.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/8-Flow_Arrangements_for_increased_heat_recovery.ipynb create mode 100644 Process_Heat_Transfer_by_D_Q_Kern/9-Gases.ipynb (limited to 'Process_Heat_Transfer_by_D_Q_Kern') diff --git a/Process_Heat_Transfer_by_D_Q_Kern/10-Streamlineflow_and_steam_convection.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/10-Streamlineflow_and_steam_convection.ipynb new file mode 100644 index 0000000..bba60fb --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/10-Streamlineflow_and_steam_convection.ipynb @@ -0,0 +1,406 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 10: Streamlineflow and steam convection" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 10.1: Crude_Oil_Heater.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 10.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=250; // outlet hot fluid,F\n", +"t1=95; // inlet cold fluid,F\n", +"t2=145; // outlet cold fluid,F\n", +"W=16000; // lb/hr\n", +"w=410; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for crude \n');\n", +"c=0.485; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for crude is : %.2e Btu/hr \n',Q);\n", +"printf('\t for steam \n');\n", +"l=945.5; // Btu/(lb)\n", +"Q=((w)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"printf('\t On the assumption that the fluids are mixed between passes, each pass must be solved independently. Since only two passes are present in this exchanger, it is simply a matter of assuming the temperature at the end of the first pass. More than half the heat load must be transferred in the first pass; therefore assume ti at the end of the first pass is 125°F \n');\n", +"ti=125; // F\n", +"tc=((t1)+(ti))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,steam \n');\n", +"ho=(1500); // condensation of steam Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,crude \n');\n", +"Nt=86;\n", +"n=2; // number of passes\n", +"L=12; //ft\n", +"at1=0.594; // flow area, in^2,from table 10\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(W/(.177)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=2.95*2.42; // at 145F,lb/(ft)*(hr)\n", +"D=(0.87/12); // ft\n", +"Ret1=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.0f \n',Ret1);\n", +"mu3=4.8*2.42; // at 110F,lb/(ft)*(hr)\n", +"D=(0.87/12); // ft\n", +"Ret2=((D)*(Gt)/mu3); // reynolds number\n", +"printf('\t reynolds number is : %.0f \n',Ret2);\n", +"c=0.485; // Btu/(lb)*(F),at 120F,from fig.2\n", +"k=0.0775; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Pr=((c)*(mu3)/k); // prandelt number\n", +"printf('\t prandelt number is : %.1f \n',Pr);\n", +"Hi=((1.86)*(k/D)*((Ret2*(D/L)*Pr)^(1/3))); // using eq.6.1,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t Hi is : %.1f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"muw=1.2*2.42; // lb/(ft)*(hr),at 249F from fig.14\n", +"phyt=(mu3/muw)^0.14;\n", +"printf('\t phyt is : %.1f \n',phyt); // from fig.24\n", +"hi=(Hi)*(phyt); // from eq.6.37\n", +"printf('\t Correct hi to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"tp=(tc)+(((ho)/(hi+ho))*(T1-tc)); // from eq.5.31\n", +"printf('\t tp is : %.0f F \n',tp);\n", +"delt=tp-tc; //F\n", +"printf('\t delt is : %.0f F \n',delt);\n", +"Ai1=0.228 // internal surface per foot of length,ft\n", +"Ai=(Nt*L*Ai1/2); // ft^2\n", +"printf('\t total surface area is : %.1f ft^2 \n',Ai);\n", +"delt3=((hi*Ai*delt)/(W*c)); // delt3=ti-t1, F\n", +"printf('\t delt3 is : %.1f F \n',delt3);\n", +"ti=t1+delt3; // F\n", +"printf('\t ti is : %.1f F \n',ti);\n", +"printf('\t The oil now enters the second pass at 126.9°F \n');\n", +"// end\n", +"\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 10.2: Kerosene_Heater.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 10.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=250; // outlet hot fluid,F\n", +"t1=95; // inlet cold fluid,F\n", +"t2=145; // outlet cold fluid,F\n", +"W=16000; // lb/hr\n", +"w=423; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for kerosene \n');\n", +"c=0.5; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for kerosene is : %.0f Btu/hr \n',Q);\n", +"printf('\t for steam \n');\n", +"l=945.5; // Btu/(lb)\n", +"Q=((w)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"tc=((t1)+(t2))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,steam \n');\n", +"ho=(1500); // condensation of steam Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,kerosene \n');\n", +"Nt=86;\n", +"n=2; // number of passes\n", +"L=12; //ft\n", +"at1=0.594; // flow area, in^2,from table 10\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(W/(.177)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=1.36*2.42; // at 145F,lb/(ft)*(hr)\n", +"D=(0.87/12); // ft\n", +"Ret1=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.0f \n',Ret1);\n", +"mu3=1.75*2.42; // at 120F,lb/(ft)*(hr)\n", +"D=(0.87/12); // ft\n", +"Ret2=((D)*(Gt)/mu3); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Ret2);\n", +"Z1=331; // Z1=(L*n/D)\n", +"jH=3.1; // from fig 24\n", +"mu4=1.75; // cp and 40 API\n", +"Z2=0.24; // Z2=((k)*(c*mu4/k)^(1/3)), from fig 16\n", +"Hi=((jH)*(1/D)*(Z2)); // using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t Hi is : %.2f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"ID=0.87; // ft\n", +"OD=1; //ft\n", +"Hio=(Hi*(ID/OD)); //Btu/(hr)*(ft^2)*(F), from eq.6.5\n", +"printf('\t Hio is : %.2f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"tw=(tc)+(((ho)/(Hio+ho))*(T1-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"muw=1.45; // lb/(ft)*(hr),at 249F from fig.14\n", +"phyt=(mu3/muw)^0.14;\n", +"printf('\t phyt is : %.1f \n',phyt); // from fig.24\n", +"hio=(Hio)*(phyt); // from eq.6.37\n", +"printf('\t Correct hio to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"delt=tw-tc; //F\n", +"printf('\t delt is : %.0f F \n',delt);\n", +"printf('\t Since the kerosene has a viscosity of only 1.75 cp at the caloric temperature and delt=129F, free convection should be investigated. \n');\n", +"s=0.8;\n", +"row=50; // lb/ft^3, from fig 6\n", +"s1=0.810; // at 95F\n", +"s2=0.792; // at 145F\n", +"bita=((s1^2-s2^2)/(2*(t2-t1)*s1*s2)); // /F\n", +"printf('\t beta is : %.6f /F \n',bita);\n", +"G=((D^3)*(row^2)*(bita)*(delt)*(4.18*10^8)/(mu3^2));\n", +"printf('\t G is : %.1e \n',G);\n", +"psy=((2.25)*(1+(0.01*G^(1/3)))/(log10(Ret2)));\n", +"printf('\t psy is : %.2f \n',psy);\n", +"hio1=(hio*psy);\n", +"printf('\t corrected hio1 is : %.1f Btu/(hr)*(ft^2)*(F) \n',hio1);\n", +"Uc=((hio1)*(ho)/(hio1+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.2618; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.2f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"// end\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 10.3: Gas_Oil_Heater_Using_Cores.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 10.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=250; // outlet hot fluid,F\n", +"t1=105; // inlet cold fluid,F\n", +"t2=130; // outlet cold fluid,F\n", +"w=50000; // lb/hr\n", +"W=622; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for gas oil \n');\n", +"c=0.47; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for gas oil is : %.2e Btu/hr \n',Q);\n", +"printf('\t for steam \n');\n", +"l=945.5; // Btu/(lb)\n", +"Q=((W)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"tc=((t1)+(t2))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"printf('\t hot fluid:shell side,steam \n');\n", +"ID=15.25; // in\n", +"C=0.25; // clearance\n", +"B=15; // baffle spacing,in\n", +"PT=1.25;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2, eq 7.1\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(6220/as); // mass velocity,lb/(hr)*(ft^2), calculation mistake\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.0314; // at 250F,lb/(ft)*(hr), from fig.15\n", +"De=0.060; // from fig.29,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number, calculation mistake\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"ho=1500; //Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,crude oil \n');\n", +"d1=0.5; // in\n", +"d2=0.87; // in\n", +"at1=((3.14*(d2^2-d1^2))/4);\n", +"printf('\t at1 is : %.1f in^2 \n',at1);\n", +"Nt=86;\n", +"n=2; // number of passes\n", +"L=12; //ft\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gt);\n", +"De=(d2^2-d1^2)/(12*d2);\n", +"printf('\t De is : %.4f ft \n',De);\n", +"mu2=16.7; // at 117F,lb/(ft)*(hr)\n", +"Ret=((De)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=3.1; // from fig.24\n", +"Z=0.35; // Z=(K*(c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft), at mu3=6.9cp and 28 API\n", +"Hi=((jH)*(1/De)*(Z)); //Hi=(hi/phyp),using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t Hi is : %.1f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"ID=0.87; // ft\n", +"OD=1; //ft\n", +"Hio=((Hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct Hi0 to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"muw=4.84; // lb/(ft)*(hr), from fig.14\n", +"phyt=(mu2/muw)^0.14;\n", +"printf('\t phyt is : %.2f \n',phyt); // from fig.24\n", +"hio=(Hio)*(phyt); // from eq.6.37\n", +"printf('\t Correct hi0 to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"tw=(tc)+(((ho)/(hio+ho))*(T1-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A=270; // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(LMTD)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0016; // friction factor for reynolds number 25300, using fig.29\n", +"s=0.00116; // for reynolds number 25300,using fig.6\n", +"Ds=15.25/12; // ft\n", +"phys=1;\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(19600^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys)))/(2); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"dt=(d2-d1)/(12); // ft\n", +"printf('\t dt is : %.4f ft \n',dt);\n", +"Ret2=(dt*Gt/mu2);\n", +"printf('\t Ret2 is : %.0f \n',Ret2);\n", +"f=0.00066; // friction factor for reynolds number 8220, using fig.26\n", +"phyt=1.35; // fig 6\n", +"printf('\t phyt is : %.2f \n',phyt);\n", +"s=0.85;\n", +"delPt=((f*(420000^2)*(L)*(n))/(5.22*(10^10)*(0.0309)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"printf('\t delPr is negligible \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 10.4: Calculation_of_a_Heating_Bundle_for_an_Aniline_Storage_Tank.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 10.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"t1=100; // F\n", +"t2=0; // F\n", +"T1abs=100+460; // R\n", +"T2abs=460; //R\n", +"delt=t1-t2;\n", +"printf('\t delt is : %.f F \n',delt);\n", +"hc=0.3*(delt^0.25); // convection loss, Btu/(hr)*(ft^2)*(°F)\n", +"printf('\t convection loss is : %.2f Btu/(hr)(ft^2)(F) \n',hc);\n", +"e=0.8; // emissivity\n", +"hr=((0.173*e*((T1abs/100)^4-(T2abs/100)^4))/(T1abs-T2abs)); // radiation rate, from 4.32, Btu/(hr)(ft^2)(F)\n", +"printf('\t radiation loss is : %.2f Btu/(hr)(ft^2)(F) \n',hr);\n", +"hl=hc+hr; // combined loss, Btu/(hr)(ft^2)(F)\n", +"printf('\t combined loss is : %.1f Btu/(hr)(ft^2)(F) \n',hl);\n", +"D=5; // ft\n", +"L=12; // ft\n", +"A1=((2*3.14*D^2)/(4))+(3.14*D*L); // total tank area\n", +"printf('\t total tank area is : %.1f ft^2 \n',A1);\n", +"Q=(hl*A1*delt); // total heat loss\n", +"printf('\t total heat loss : %.2e Btu/hr \n',Q);\n", +"printf('\t This heat must be supplied by the pipe bundle,Assuming exhaust steam to be at 212°F \n');\n", +"d0=1.32;\n", +"X=(delt/d0);\n", +"tf=((t1+212)/2); // F\n", +"printf('\t X is : %.0f \n',X);\n", +"printf('\t tf is : %.0f F \n',tf);\n", +"hio=48; // from fig 10.4, Btu/(hr)(ft^2)(F)\n", +"ho=1500; // condensation of steam,Btu/(hr)(ft^2)(F)\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=0.02; // dirt factor, (hr)(ft^2)(F)/Btu\n", +"UD=((Uc)/((1)+(Uc*Rd))); // design overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"A2=((Q)/((UD)*(212-100))); // total surface,ft^2\n", +"printf('\t total surface is : %.1f ft^2 \n',A2);\n", +"A3=2.06; // area/pipe\n", +"N=(A2/A3);\n", +"printf('\t number of pipes are : %.0f \n',N);\n", +"//end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/11-Calculations_for_process_conditions.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/11-Calculations_for_process_conditions.ipynb new file mode 100644 index 0000000..1602df5 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/11-Calculations_for_process_conditions.ipynb @@ -0,0 +1,759 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 11: Calculations for process conditions" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 11.1: Calculation_of_a_Straw_Oil_Naphtha_Exchanger.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 11.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=340; // inlet hot fluid,F\n", +"T2=240; // outlet hot fluid,F\n", +"t1=200; // inlet cold fluid,F\n", +"t2=230; // outlet cold fluid,F\n", +"W=29800; // lb/hr\n", +"w=103000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for straw oil \n');\n", +"c=0.58; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for straw oil is : %.2e Btu/hr \n',Q);\n", +"printf('\t for naphtha \n');\n", +"c=0.56; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for naphtha is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.1f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.885 \n'); // from fig 18\n", +"delt=(0.885*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"X=((delt1)/(delt2));\n", +"printf('\t ratio of two local temperature difference is : %.3f \n',X);\n", +"L=16;\n", +"Fc=0.405; // from fig.17\n", +"Kc=0.23; // crude oil controlling\n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"UD1=70; // assume, from table 8a\n", +"A1=((Q)/((UD1)*(delt)));\n", +"printf('\t A1 is : %.0f ft^2 \n',A1);\n", +"a1=0.1963; // ft^2/lin ft\n", +"N1=(A1/(16*a1));\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=124; // assuming two tube passes, from table 9\n", +"A2=(N2*L*a1); // ft^2\n", +"printf('\t total surface area is : %.1e ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(delt)));\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t hot fluid:shell side,straw oil \n');\n", +"ID=15.25; // in\n", +"C=0.25; // clearance\n", +"B=3.5; // minimum baffle spacing,from eq 11.4,in\n", +"PT=1;\n", +"as=((ID*C*B)/(144*PT)); // flow area,from eq 7.1,ft^2\n", +"printf('\t flow area is : %.4f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,from eq 7.2,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=3.63; // at 280.5F,lb/(ft)*(hr), from fig.14\n", +"De=0.95/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.0e \n',Res);\n", +"jH=46; // from fig.28\n", +"Z=0.224; // Z=(K*(c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft), at mu3=1.5cp and 35 API\n", +"Ho=((jH)*(1/De)*(Z)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"phys=1;\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,naphtha \n');\n", +"Nt=124;\n", +"n=2; // number of passes\n", +"L=16; //ft\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=1.31; // at 212F,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=102; // from fig.24\n", +"Z=0.167; // Z=(K*(c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft), at mu4=0.54cp and 48 API\n", +"Hi=((jH)*(1/D)*(Z)); //Hi=(hi/phyp),using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t Hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"Hio=((Hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct Hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"phyt=1;\n", +"hio=(Hio)*(phyt); // from eq.6.37\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.00225; // friction factor for reynolds number 7000, using fig.29\n", +"s=0.76; // for reynolds number 7000,using fig.6\n", +"Ds=15.25/12; // ft\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.0002; // friction factor for reynolds number 31300, using fig.26\n", +"s=0.72;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t The first trial is disqualified because of failure to meet the required dirt factor \n');\n", +"printf('\t Proceeding as above and carrying the viscosity correction and pressure drops to completion the new summary is given using a 17.25in. ID shell with 166 tubes on two passes and a 3.5in. baffle space \n');\n", +"UD1=60; // assumption for 2 tube passes,3.5 baffle spacing and 17.25in ID\n", +"UC1=74.8;\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UC1);\n", +"UD2=54.2;\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD2);\n", +"Rd1=0.005; \n", +"printf('\t actual Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd1);\n", +"delPs1=4.7;\n", +"printf('\t delPs is : %.1f psi \n',delPs1);\n", +"delPt1=2.1;\n", +"printf('\t delPt is : %.1f psi \n',delPt1);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 11.2: Calculation_of_a_Flue_Gas_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 11.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n'); \n", +"T1=350; // inlet hot fluid,F\n", +"T2=160; // outlet hot fluid,F\n", +"t1=100; // inlet cold fluid,F\n", +"t2=295; // outlet cold fluid,F\n", +"W=84438; // lb/hr\n", +"w=86357; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for lean oil \n');\n", +"c=0.56; // Btu/(lb)*(F)\n", +"Qh=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for lean oil is : %.2e Btu/hr \n',Qh);\n", +"printf('\t for rich oil \n');\n", +"c=0.53; // Btu/(lb)*(F)\n", +"Qc=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for rich oil is : %.2e Btu/hr \n',Qc);\n", +"Q=(Qh+Qc)/(2);\n", +"printf('\t Q is : %.2e V \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.3f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.2f \n',S);\n", +"printf('\t FT is 0.875 \n'); // for 4-8 exchanger,from fig 21\n", +"delt=(0.875*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"X=((delt1)/(delt2));\n", +"printf('\t ratio of two local temperature difference is : %.2f \n',X);\n", +"Fc=0.48; // from fig.17\n", +"Kc=0.32; // crude oil controlling\n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f \n',tc);\n", +"UD1=50; // assume, from table 8a\n", +"A1=((Q)/((UD1)*(delt)));\n", +"printf('\t A1 is : %.2e ft^2 \n',A1);\n", +"a1=0.1963; // ft^2/lin ft\n", +"N1=(A1/(16*a1*2)); // 2-4 exchanger in series\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=580; // assuming six tube passes,31in ID, from table 9\n", +"A2=(N2*16*a1*2); // ft^2\n", +"printf('\t total surface area is : %.2e ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(delt)));\n", +"printf('\t correct design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t hot fluid:inner tube side,lean oil \n');\n", +"Nt=580;\n", +"n=6; // number of passes\n", +"L=16; //ft\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(W/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=2.13; // at 212F,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=36.5; // from fig.24\n", +"Z=0.185; // Z=(K*(c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft), at mu4=0.88cp and 35 API\n", +"Hi=((jH)*(1/D)*(Z)); //Hi=(hi/phyp),using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t Hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"Hio=((Hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct Hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"phyt=1;\n", +"hio=(Hio)*(phyt); // from eq.6.37\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"printf('\t cold fluid:shell side,rich oil \n');\n", +"ID=31; // in\n", +"C=0.25; // clearance\n", +"B=12; // minimum baffle spacing,from eq 11.4,in\n", +"PT=1;\n", +"as=((ID*C*B)/(144*PT))/(2); // flow area,from eq 7.1,ft^2\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(w/as); // mass velocity,from eq 7.2,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=3.15; // at 193.5F,lb/(ft)*(hr), from fig.14\n", +"De=0.95/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=45; // from fig.28\n", +"Z=0.213; // Z=(K*(c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft), at mu3=1.3cp and 35 API\n", +"Ho=((jH)*(1/De)*(Z)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"phys=1;\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00027; // friction factor for reynolds number 10100, using fig.26\n", +"s=0.77;\n", +"delPt=((2*f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.024; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*2*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0023; // friction factor for reynolds number 6720, using fig.29\n", +"s=0.79; // for reynolds number 6720,using fig.6\n", +"Ds=31/12; // ft\n", +"De=0.0792;\n", +"N=(4*12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t The initial assumptions have provided an exchanger which very nearly meets all the requirements. Eight-pass units would meet the heat-transfer requirement but would give a tube-side pressure drop of 14 psi. The trial exchanger will be somewhat less suitable when the value of Q, is also taken into account. If the minimum dirt factor of 0.0040 is to be taken literally, it will be necessary to try the next size shell \n');\n", +"printf('\t Assume a 33 in. ID shell with six1 tube passes and baffies spaced 12-in. apart, since the pressure drop increases with the diameter of the shell for a given mass velocity. \n');\n", +"UC1=52.3;\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UC1);\n", +"UD2=42;\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD2);\n", +"Rd1=0.0047; \n", +"printf('\t calculated Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd1);\n", +"Rd2=0.004; \n", +"printf('\t actual Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd2);\n", +"delPs1=4.4;\n", +"printf('\t delPs is : %.1f psi \n',delPs1);\n", +"delPT1=7.9;\n", +"printf('\t delPt is : %.1f psi \n',delPT1);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 11.3: Calculation_of_a_Caustic_Solution_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 11.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=190; // inlet hot fluid,F\n", +"T2=120; // outlet hot fluid,F\n", +"t1=80; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"W=100000; // lb/hr\n", +"w=154000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for caustic \n');\n", +"c=0.88; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for caustic is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.2f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.815 \n'); // for 4-8 exchanger,from fig 21\n", +"delt=(0.815*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"Tc=((T2)+(T1))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f \n',tc);\n", +"UD1=250; // assume, from table 8\n", +"A1=((Q)/((UD1)*(delt)));\n", +"printf('\t A1 is : %.0f ft^2 \n',A1);\n", +"a1=0.2618; // ft^2/lin ft\n", +"L=16;\n", +"N1=(A1/(16*a1));\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=140; // assuming four tube passes,19.25in ID, from table 9\n", +"A2=(N2*L*a1); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(delt)));\n", +"printf('\t correct design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t hot fluid:shell side,caustic \n');\n", +"ID=19.25; // in\n", +"C=0.25; // clearance\n", +"B=7; // minimum baffle spacing,from eq 11.4,in\n", +"PT=1.25;\n", +"as=((ID*C*B)/(144*PT)); // flow area,from eq 7.1,ft^2\n", +"printf('\t flow area is : %.4f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,from eq 7.2,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=1.84; // at 155F,lb/(ft)*(hr), from fig.14\n", +"De=0.72/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=75; // from fig.28\n", +"Z=0.575; // Z=(K*(c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft)\n", +"Ho=((jH)*(1/De)*(Z)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"phys=1; // low viscosity\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"Nt=140;\n", +"n=4; // number of passes\n", +"L=16; //ft\n", +"at1=0.546; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=Gt/(3600*62.5);\n", +"printf('\t V is %.2f fps \n',V);\n", +"mu2=1.74; // at 100F,lb/(ft)*(hr)\n", +"D=0.0695; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=1240*0.94; // from fig 25\n", +"printf('\t Hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.834; // ft\n", +"OD=1; //ft\n", +"hio=((hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0019; // friction factor for reynolds number 17400, using fig.29\n", +"s=1.115; // for reynolds number 17400,using fig.6\n", +"Ds=19.25/12; // ft\n", +"De=0.06;\n", +"N=(12*L/B)+1; // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.0f psi \n',delPs);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00018; // friction factor for reynolds number 46300, using fig.26\n", +"s=1;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.18; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t Adjustment of the baffie space to use the full 10 psi will still not permit the exchanger to make the 0.002 dirt factor. The value of UD has been assumed too high \n');\n", +"printf('\t Try a 21.25in.ID shell with four tube passes and a 6in.baffie·space.This corresponds to 170 tubes \n');\n", +"UC1=390;\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UC1);\n", +"UD2=200;\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD2);\n", +"Rd1=0.0024; \n", +"printf('\t calculated Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd1);\n", +"Rd2=0.002; \n", +"printf('\t actual Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd2);\n", +"delPs1=9.8;\n", +"printf('\t delPs is : %.1f psi \n',delPs1);\n", +"delPT1=4.9;\n", +"printf('\t delPt is : %.1f psi \n',delPT1);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 11.4: Calculation_of_an_Alcohol_Heater.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 11.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=225; // inlet hot fluid,F\n", +"T2=225; // outlet hot fluid,F\n", +"t1=80; // inlet cold fluid,F\n", +"t2=200; // outlet cold fluid,F\n", +"W=10350; // lb/hr\n", +"w=115000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for steam \n');\n", +"l=962; // Btu/(lb)\n", +"Qh=((W)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Qh);\n", +"printf('\t for alcohol \n');\n", +"c=0.72; // Btu/(lb)*(F)\n", +"Qc=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for alcohol is : %.2e Btu/hr \n',Qc);Q=(Qh+Qc)/(2);\n", +"Q=(Qh+Qc)/(2);\n", +"printf('\t Q is : %.2e V \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"Tc=((T2)+(T1)); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2)); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f \n',tc);\n", +"L=12;\n", +"UD1=200; // assume, from table 8\n", +"A1=((Q)/((UD1)*(LMTD)));\n", +"printf('\t A1 is : %.0f ft^2 \n',A1);\n", +"a1=0.2618; // ft^2/lin ft\n", +"N1=(A1/(12*a1));\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=232; // assuming two tube passes,23.25in ID, from table 9\n", +"A2=(N2*L*a1); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(LMTD)));\n", +"printf('\t correct design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t hot fluid:inner tube side,steam \n');\n", +"Nt=232;\n", +"n=2; // number of passes\n", +"L=12; //ft\n", +"at1=0.546; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(W/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=0.0314; // at 225F,lb/(ft)*(hr)\n", +"D=0.0695; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Ret);\n", +"hio=1500; // condensation of steam\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"printf('\t cold fluid:shell side,alcohol \n');\n", +"ID=23.25; // in\n", +"C=0.25; // clearance\n", +"B=7; // minimum baffle spacing,from eq 11.4,in\n", +"PT=1.25;\n", +"as=((ID*C*B)/(144*PT)); // flow area,from eq 7.1,ft^2\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(w/as); // mass velocity,from eq 7.2,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=1.45; // at 193.5F,lb/(ft)*(hr), from fig.14\n", +"De=0.72/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Res);\n", +"jH=83; // from fig.28\n", +"Z=0.195; // Z=(K*(c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft)\n", +"Ho=((jH)*(1/De)*(Z)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"phys=1;\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000175; // friction factor for reynolds number 52000, using fig.26\n", +"s=0.00076;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(1)))/(2); // using eq.7.45,psi\n", +"printf('\t delPt is : %.2f psi \n',delPt);\n", +"printf('\t delPr is negligible \n');\n", +"printf('\t allowable delPa is negligible \n');\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0018; // friction factor for reynolds number 21000, using fig.29\n", +"s=0.78; // for reynolds number 21000,using fig.6\n", +"Ds=1.94; // ft\n", +"De=0.06;\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.6f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t This is clearly an instance in which UD was assumed too high.It is now a question of how much too high. With the aid of the summary it is apparent thatin a larger shell a clean overall coefficient of about 200 may be expected \n');\n", +"printf('\t Assume a 27in. ID shell with 2 tube passes,334 tubes and baffies spaced 7in. apart, since the pressure drop increases with the diameter of the shell for a given mass velocity. \n');\n", +"UC1=214;\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UC1);\n", +"UD2=138.5;\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD2);\n", +"Rd1=0.0025; \n", +"printf('\t calculated Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd1);\n", +"Rd2=0.002; \n", +"printf('\t actual Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd2);\n", +"delPs1=0.23;\n", +"printf('\t delPs is : %.2f psi \n',delPs1);\n", +"delPT1=7.1;\n", +"printf('\t delPt is : %.1f psi \n',delPT1);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 11.5: Calculation_of_a_Flue_Gas_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 11.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=125; // outlet hot fluid,F\n", +"t1=80; // inlet cold fluid,F\n", +"t2=100; // outlet cold fluid,F\n", +"W=41300; // lb/hr\n", +"w=64500; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for gas \n');\n", +"c=0.25; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for gas is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.2f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.935 \n'); // from fig 18\n", +"delt=(0.935*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"Tc=((T2)+(T1))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"UD1=15; // assume, from table 8\n", +"A1=((Q)/((UD1)*(delt)));\n", +"printf('\t A1 is : %.0f ft^2 \n',A1);\n", +"a1=0.2618; // ft^2/lin ft\n", +"N1=(A1/(12*a1));\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=358; // assuming 12 tube passes, from table 9\n", +"L=12;\n", +"A2=(N2*L*a1); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(delt)));\n", +"printf('\t correct design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t When solved in a manner identical with the preceding examples and using the smallest integral number of bundle crosses (five) corresponding to a 28.8in.spacing \n');\n", +"UC1=22.7;\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UC1);\n", +"UD2=14;\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD2);\n", +"Rd1=0.027; \n", +"printf('\t calculated Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd1);\n", +"Rd1=0.005; \n", +"printf('\t required Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd1);\n", +"delPs1=5.2;\n", +"printf('\t delPs is : %.1f psi \n',delPs1);\n", +"delPt1=1.0;\n", +"printf('\t delPt is : %.1f psi \n',delPt1);\n", +"printf('\t The first trial is disqualified because of failure to meet the required dirt factor and the the pressure drop is five times greater than the allowable \n');\n", +"printf('\t This would be unsatisfactory, since gases require large inlet connections and the flow distribution on the first and third bundle crosses would be poor and the conditions of allowable pressure drop would still not be met \n');\n", +"UD1=15; // assume, from table 8\n", +"A1=((Q)/((UD1)*(delt)));\n", +"printf('\t A1 is : %.0f ft^2 \n',A1);\n", +"a1=0.2618; // ft^2/lin ft\n", +"N1=(A1/(12*a1));\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=340; // assuming eight tube passes, from table 9\n", +"A2=(N2*L*a1); // ft^2\n", +"printf('\t total surface area is : %.2e ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(delt)));\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t hot fluid:shell side,gas \n');\n", +"ID=31; // in\n", +"C=0.25; // clearance\n", +"B=24; // baffle spacing,in\n", +"PT=1.25;\n", +"as=((ID*C*B)/(144*PT)); // flow area,from eq 7.1,ft^2\n", +"printf('\t flow area is : %.2f ft^2 \n',as);\n", +"Gs=(W/as)/(2); // mass velocity,from eq 7.2,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.0e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.050; // at 187.5F,lb/(ft)*(hr), from fig.15\n", +"De=0.99/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Res);\n", +"jH=105; // from fig.28\n", +"k=0.015; // Btu/(hr)(ft^2)(°F/ft)\n", +"Z=0.94; // Z=((c*mu3/k)^(1/3)),Btu/(hr)(ft^2)(F/ft)\n", +"Ho=((jH)*(k/De)*(Z)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"phys=1;\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,crude oil \n');\n", +"Nt=340;\n", +"n=12; // number of passes\n", +"L=12; //ft\n", +"at1=0.546; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=1.96; // at 90F,lb/(ft)*(hr)\n", +"D=0.0695; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=667; //Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.83; // ft\n", +"OD=1; //ft\n", +"hio=((hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio); // calculation mistake\n", +"phyt=1;\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0017; // friction factor for reynolds number 33000, using fig.29\n", +"s=0.0012; // for reynolds number 33000,using fig.6\n", +"Ds=31/12; // ft\n", +"N=(3); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00022; // friction factor for reynolds number 21300, using fig.26\n", +"s=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.052; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/12-Condensation_of_single_vapor.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/12-Condensation_of_single_vapor.ipynb new file mode 100644 index 0000000..09dfb63 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/12-Condensation_of_single_vapor.ipynb @@ -0,0 +1,966 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 12: Condensation of single vapor" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 12.1: Calculation_of_a_Horizontal_n_Propanol_Condenser.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 12.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=244; // inlet hot fluid,F\n", +"T2=244; // outlet hot fluid,F\n", +"t1=85; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"W=60000; // lb/hr\n", +"w=488000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for propanol \n');\n", +"l=285; // Btu/(lb)\n", +"Q=((W)*(l)); // Btu/hr\n", +"printf('\t total heat required for propanol is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"Tc=((T2)+(T1))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"UD1=100; // assume, from table 8\n", +"A1=((Q)/((UD1)*(LMTD)));\n", +"printf('\t A1 is : %.0f ft^2 \n',A1);\n", +"a1=0.1963; // ft^2/lin ft\n", +"N1=(A1/(8*a1));\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=766; // assuming 4 tube passes, from table 9\n", +"A2=(N2*8*a1); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(LMTD)));\n", +"printf('\t correct design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t hot fluid:shell side,propanol \n');\n", +"ID=31; // in\n", +"C=0.1875; // clearance\n", +"B=31; // baffle spacing,in\n", +"PT=0.937;\n", +"L=8; // ft\n", +"as=((ID*C*B)/(144*PT)); // flow area,from eq 7.1,ft^2\n", +"printf('\t flow area is : %.2f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,from eq 7.2,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"G1=(W/(L*N2^(2/3))); // from eq.12.43\n", +"printf('\t G1 is : %.1f lb/(hr)*(lin ft) \n',G1);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"Nt=766;\n", +"n=4; // number of passes\n", +"L=8; //ft\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=1.74; // at 102.5F,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=1300; //Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio); // calculation mistake\n", +"ho=200; // assumption\n", +"tw=(tc)+(((ho)/(hio+ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"tf=(Tc+tw)/(2); // from eq 12.19\n", +"printf('\t tf is : %.1f F \n',tf);\n", +"kf=0.094; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"sf=0.8; // from table 6\n", +"muf=0.62; // cp, from fig 14\n", +"ho=172; // Btu/(hr)*(ft^2)*(F), from fig 12.9\n", +"printf('\t Correct ho to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t Based on h=172 instead of the assumed 200 a new value of tw,and tf could be obtained to give a more exact value of h based on fluid properties at a value of tf more nearly correct \n');\n", +"printf('\t pressure drop for annulus \n');\n", +"mu1=0.0242; // lb/(ft)*(hr), fir 15\n", +"De=0.0458; // fig 28\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"f=0.00141; // friction factor for reynolds number 84600, using fig.29\n", +"s=0.00381; // for reynolds number 84600,using fig.6\n", +"Ds=31/12; // ft\n", +"phys=1;\n", +"N=(3); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys)))/(2); // using eq.12.47,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPa is 2 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00019; // friction factor for reynolds number 36200, using fig.26\n", +"s=1;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.2; // X1=((V^2)/(2*g)),using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 12.2: Design_of_a_Vertical_n_Propanol_Condenser.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 12.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=244; // inlet hot fluid,F\n", +"T2=244; // outlet hot fluid,F\n", +"t1=85; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"W=60000; // lb/hr\n", +"w=488000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for propanol \n');\n", +"l=285; // Btu/(lb)\n", +"Q=((W)*(l)); // Btu/hr\n", +"printf('\t total heat required for propanol is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"Tc=((T2)+(T1))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"UD1=70; // assume, from table 8\n", +"A1=((Q)/((UD1)*(LMTD)));\n", +"printf('\t A1 is : %.2e ft^2 \n',A1);\n", +"N2=766; // assuming 4 tube passes, from table 9\n", +"a1=0.1963; // ft^2/lin ft\n", +"L=(A1/(N2*a1));\n", +"printf('\t L is : %.1f ft \n',L);\n", +"A2=(N2*12*a1); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(LMTD)));\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"printf('\t hot fluid:shell side,propanol \n');\n", +"Do=0.0625; // ft\n", +"G1=(W/(3.14*N2*Do)); // from eq.12.36\n", +"printf('\t G1 is : %.0f lb/(hr)*(lin ft) \n',G1);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"Nt=766;\n", +"n=4; // number of passes\n", +"L=12; //ft\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=1.74; // at 102.5F,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=1300; //Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"ho=100; // assumption\n", +"tw=(tc)+(((ho)/(hio+ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.1f F \n',tw);\n", +"tf=(Tc+tw)/(2); // from eq 12.19\n", +"printf('\t tf is : %.0f F \n',tf);\n", +"kf=0.0945; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"sf=0.76; // from table 6\n", +"muf=0.65; // cp, from fig 14\n", +"ho=102; // Btu/(hr)*(ft^2)*(F), from fig 12.9\n", +"printf('\t Correct ho to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t pressure drop for annulus \n');\n", +"ID=31; // in\n", +"C=0.1875; // clearance\n", +"B=29; // baffle spacing,in\n", +"PT=0.937;\n", +"as=((ID*C*B)/(144*PT)); // flow area,from eq 7.1,ft^2\n", +"printf('\t flow area is : %.2f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,from eq 7.2,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.0242; // lb/(ft)*(hr), fig 15\n", +"De=0.0458; // fig 28\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Res);\n", +"f=0.0014; // friction factor for reynolds number 91000, using fig.29\n", +"s=0.00381; // for reynolds number 91000,using fig.6\n", +"Ds=31/12; // ft\n", +"phys=1;\n", +"N=(5); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys)))/(2); // using eq.12.47,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPa is 2 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00019; // friction factor for reynolds number 36200, using fig.26\n", +"s=1;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.2; // X1=((V^2)/(2*g)),using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,eq 6.38,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // eq 6.13,(hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.5f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 12.3: Calculation_of_a_Butane_Desuperheater_condenser.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 12.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=200; // inlet hot fluid,F\n", +"T2=130; // outlet hot fluid,F\n", +"T3=125; // after condensation\n", +"t1=65; // inlet cold fluid,F\n", +"t3=100; // outlet cold fluid,F\n", +"W=27958; // lb/hr\n", +"w=135500; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for butane \n');\n", +"c=0.44; // Btu/(lb)(F)\n", +"qd=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for desuperheating of butane is : %.1e Btu/hr \n',qd);\n", +"HT2=309; // enthalpy at T2, Btu/lb\n", +"HT3=170; // enthalpy at T3, Btu/lb\n", +"qc=(W*(HT2-HT3)); // for condensation\n", +"printf('\t total heat required for condensing of butane is : %.2e Btu/hr \n',qc);\n", +"Q=qd+qc;\n", +"printf('\t total heat required for butane is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t3-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"deltw=(qc/w);\n", +"printf('\t deltw is : %.1f F \n',deltw);\n", +"t2=t1+deltw;\n", +"printf('\t t2 is : %.1f F \n',t2)\n", +"printf('\t for desuperheating \n');\n", +"delt1=T2-t2; //F\n", +"delt2=T1-t3; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTDd=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTDd);\n", +"w1=(qd/LMTDd);\n", +"printf('\t w1 is : %.3e lb/hr \n',w1);\n", +"printf('\t for condensing \n');\n", +"delt3=T3-t1; //F\n", +"delt4=T2-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt3);\n", +"printf('\t delt2 is : %.0f F \n',delt4);\n", +"LMTDc=((delt4-delt3)/((2.3)*(log10(delt4/delt3))));\n", +"printf('\t LMTD is :%.0f F \n',LMTDc);\n", +"w2=(qc/LMTDc);\n", +"printf('\t w1 is : %.2e lb/hr \n',w2);\n", +"delt=(Q/(w1+w2));\n", +"printf('\t delt is : % .1f F \n',delt);\n", +"Tc=((T3)+(T2))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+(t3))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"printf('\t hot fluid:shell side,butane \n');\n", +"ID=23.25; // in\n", +"C=0.25; // clearance\n", +"B=12; // baffle spacing,in\n", +"PT=1;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"printf('\t desuperheating \n');\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.0242; // at 165F,lb/(ft)*(hr), from fig.15\n", +"De=0.73/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=239; // from fig.28\n", +"k=0.012; // Btu/(hr)*(ft^2)*(F/ft), from table 5\n", +"Z=0.96; // Z=((c)*(mu1)/k)^(1/3)\n", +"ho=((jH)*(k/De)*(Z)); // H0=(h0/phya),using eq.6.15b,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"Nt=352;\n", +"n=4; // number of passes\n", +"L=16; //ft\n", +"at1=0.302; // flow area,table 10, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=2.11; // at 82.5F, fig 14,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=800; // fig 25,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hio to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"Ud=((hio)*(ho)/(hio+ho)); // clean overall coefficient,eq 6.38,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Ud);\n", +"Ad=(qd/(Ud*LMTDd));\n", +"printf('\t clean surface required for desuperheating : %.0f ft^2 \n',Ad);\n", +"printf('\t for condensaton \n');\n", +"Lc=16*0.6; // condensation occurs 60% of the tube length\n", +"G1=(W/(Lc*Nt^(2/3))); // from eq.12.43\n", +"printf('\t G1 is : %.1f lb/(hr)*(lin ft) \n',G1);\n", +"ho=200; // assumption\n", +"tw=(tc)+(((ho)/(hio+ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"tf=(Tc+tw)/(2); // from eq 12.19\n", +"printf('\t tf is : %.0f F \n',tf);\n", +"kf=0.075; // Btu/(hr)*(ft^2)*(F/ft)\n", +"sf=0.55; // from table 6\n", +"muf=0.14; // cp, from fig 14\n", +"ho=207; // Btu/(hr)*(ft^2)*(F), from fig 12.9\n", +"printf('\t Correct ho to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Ac=(qc/(Uc*LMTDc));\n", +"printf('\t clean surface required for desuperheating : %.0f ft^2 \n',Ac);\n", +"AC=Ad+Ac;\n", +"printf('\t total clean surface : %.0f ft^2 \n',AC);\n", +"lc=(Ac/(Ac+Ad));\n", +"printf('\t assumed condensing length percentage : %.2f \n',lc);\n", +"UC=((Ud*Ad)+(Uc*Ac))/(AC);\n", +"printf('\t weighted clean overall coefficient : %.0f Btu/(hr)*(ft^2)*(F) \n',UC);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((UC-UD)/((UD)*(UC))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"printf('\t desuperheating \n');\n", +"Ld=6.4; //ft\n", +"De=0.0608; // fig 28\n", +"f=0.0013; // friction factor for reynolds number 145000, using fig.29\n", +"Ds=1.94; // ft\n", +"phys=1;\n", +"N=(12*Ld/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"row=(58.1/((359)*(625/492)*(14.7/99.7)));\n", +"printf('\t row is %.3f lb/ft^3 \n',row);\n", +"s=(row/62.5);\n", +"printf('\t s is %.4f \n',s);\n", +"delPsd=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPsd);\n", +"printf('\t condensation \n');\n", +"N=(12*Lc/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPsc=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys)))/(2); // using eq 12.47,psi\n", +"printf('\t delPsc is : %.1f psi \n',delPsc);\n", +"delPS=delPsd+delPsc;\n", +"printf('\t delPS is : %.0f psi \n',delPS);\n", +"printf('\t allowable delPa is 2 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00023; // friction factor for reynolds number 17900, using fig.26\n", +"s=1;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.0f psi \n',delPt);\n", +"X1=0.075; // X1=((V^2)/(2*g)),using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 12.4: Calculation_of_a_Vertical_Condenser_subeooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 12.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=130; // inlet hot fluid,F\n", +"T2=125; // outlet hot fluid,F\n", +"T3=100; // after sucooling\n", +"t1=80; // inlet cold fluid,F\n", +"t3=100; // outlet cold fluid,F\n", +"W=21000; // lb/hr\n", +"w=167000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for pentane \n');\n", +"HT1=315; // enthalpy at T1, Btu/lb\n", +"HT2=170; // enthalpy at T2, Btu/lb\n", +"qc=(W*(HT1-HT2)); // for condensation\n", +"printf('\t total heat required for condensing of pentane is : %.2e Btu/hr \n',qc);\n", +"c=0.57; // Btu/(lb)(F)\n", +"qs=((W)*(c)*(T2-T3)); // Btu/hr\n", +"printf('\t total heat required for subcooling of pentane is : %.0e Btu/hr \n',qs);\n", +"Q=qs+qc;\n", +"printf('\t total heat required for pentane is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t3-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"deltw=(qc/w);\n", +"printf('\t deltw is : %.1f F \n',deltw);\n", +"t2=t3-deltw;\n", +"printf('\t t2 is : %.1f F \n',t2)\n", +"printf('\t for condensing \n');\n", +"delt1=T2-t2; //F\n", +"delt2=T1-t3; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTDc=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTDc);\n", +"w1=(qc/LMTDc);\n", +"printf('\t w1 is : %.2e lb/hr \n',w1);\n", +"printf('\t subcooling \n');\n", +"delt3=T3-t1; //F\n", +"delt4=T2-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt3);\n", +"printf('\t delt2 is : %.0f F \n',delt4);\n", +"LMTDs=((delt4-delt3)/((2.3)*(log10(delt4/delt3))));\n", +"printf('\t LMTD is :%.1f F \n',LMTDs);\n", +"w2=(qs/LMTDs);\n", +"printf('\t w1 is : %.2e lb/hr \n',w2);\n", +"delt=(Q/(w1+w2));\n", +"printf('\t delt is : % .1f F \n',delt);\n", +"Tc=((T1)+(T2))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+(t3))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,pentane \n');\n", +"printf('\t for condensaton \n');\n", +"Do=0.0625; // ft\n", +"Nt=370; // number of tubes\n", +"G1=(W/(3.14*Nt*Do)); // from eq.12.42\n", +"printf('\t G1 is : %.1e lb/(hr)*(lin ft) \n',G1);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"n=4; // number of passes\n", +"L=16; //ft\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=1.98; // at 90F,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=940; //Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hio to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"ho=125; // assumption\n", +"tw=(tc)+(((ho)/(hio+ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"tf=(Tc+tw)/(2); // from eq 12.19\n", +"printf('\t tf is : %.0f F \n',tf);\n", +"kf=0.077; // Btu/(hr)*(ft^2)*(F/ft), table 4\n", +"sf=0.6; // from table 6\n", +"muf=0.19; // cp, from fig 14\n", +"ho=120; // Btu/(hr)*(ft^2)*(F), from fig 12.9\n", +"printf('\t Correct ho to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Ac=(3040000/(104*36.4));\n", +"printf('\t clean surface required for dcondensation : %.0f ft^2 \n',Ac);\n", +"printf('\t subcooling \n');\n", +"ID=25; // in\n", +"C=0.25; // clearance\n", +"B=12; // baffle spacing,in\n", +"PT=1;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.46; // at 112.5F,lb/(ft)*(hr), from fig.14\n", +"De=0.95/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=46.5; // from fig.28\n", +"k=0.077; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Z=1.51; // Z=((c)*(mu1)/k)^(1/3)\n", +"ho=((jH)*(k/De)*(Z)); // using eq.6.15b,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Us=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Us);\n", +"As=(qs/(Us*LMTDs));\n", +"printf('\t clean surface required for desuperheating : %.1f ft^2 \n',As);\n", +"AC=As+Ac;\n", +"printf('\t total clean surface : %.0f ft^2 \n',AC);\n", +"UC=((Us*As)+(Uc*Ac))/(AC);\n", +"printf('\t weighted clean overall coefficient : %.1f Btu/(hr)*(ft^2)*(F) \n',UC);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((UC-UD)/((UD)*(UC))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"printf('\t condensation \n');\n", +"Lc=13.4; //ft\n", +"De=0.0792; // fig 28\n", +"f=0.0012; // friction factor for reynolds number 193000, using fig.29\n", +"mu3=0.0165; // at 127.5F\n", +"Ds=2.08; // ft\n", +"phys=1;\n", +"Res1=(De*Gs/mu3);\n", +"printf('\t reynolds number is %.2e \n',Res1);\n", +"rowvap=(72.2/((359)*(590/492)*(14.7/25)));\n", +"printf('\t rowvapour is %.3f ld/ft^3 \n',rowvap);\n", +"s=(rowvap/62.5);\n", +"printf('\t s is %.5f \n',s);\n", +"N=(12*Lc/B)+(1); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPsc=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys)))/(2); // using eq.12.47,psi\n", +"printf('\t delPsc is : %.1f psi \n',delPsc);\n", +"printf('\t delPss is negligible \n');\n", +"printf('\t allowable delPa is 2 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00022; // friction factor for reynolds number 22500, using fig.26\n", +"s=1;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.1; // X1=((V^2)/(2*g)),using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 12.5: Calculation_of_a_Horizontal_Condenser_subcooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 12.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=130; // inlet hot fluid,F\n", +"T2=125; // outlet hot fluid,F\n", +"T3=100; // after subcooling\n", +"t1=80; // inlet cold fluid,F\n", +"t3=100; // outlet cold fluid,F\n", +"W=21000; // lb/hr\n", +"w=167000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for pentane \n');\n", +"c=0.57; // Btu/(lb)(F)\n", +"qs=((W)*(c)*(T2-T3)); // Btu/hr\n", +"printf('\t total heat required for subcooling of pentane is : %.0e Btu/hr \n',qs);\n", +"HT1=315; // enthalpy at T1, Btu/lb\n", +"HT2=170; // enthalpy at T2, Btu/lb\n", +"qc=(W*(HT1-HT2)); // for condensation\n", +"printf('\t total heat required for condensing of pentane is : %.2e Btu/hr \n',qc);\n", +"Q=qs+qc;\n", +"printf('\t total heat required for pentane is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t3-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"deltw=18.2;\n", +"printf('\t deltw is : %.1f F \n',deltw);\n", +"t2=t3-deltw;\n", +"printf('\t t2 is : %.1f F \n',t2)\n", +"printf('\t for condensing \n');\n", +"delt1=T2-t2; //F\n", +"delt2=T1-t3; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTDc=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTDc);\n", +"w1=(qc/LMTDc);\n", +"printf('\t w1 is : %.2e lb/hr \n',w1);\n", +"printf('\t subcooling \n');\n", +"delt3=T3-t1; //F\n", +"delt4=T2-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt3);\n", +"printf('\t delt2 is : %.0f F \n',delt4);\n", +"LMTDs=((delt4-delt3)/((2.3)*(log10(delt4/delt3))));\n", +"printf('\t LMTD is :%.1f F \n',LMTDs);\n", +"w2=(qs/LMTDs);\n", +"printf('\t w1 is : %.2e lb/hr \n',w2);\n", +"delt=(Q/(w1+w2));\n", +"printf('\t delt is : % .1f F \n',delt);\n", +"Tc=((T1)+(T2))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+(t3))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,pentane \n');\n", +"C1=0.198; // for 0.3Ds\n", +"Ds=25; // in\n", +"L=16; // ft\n", +"N=370\n", +"a=(C1*Ds^2);\n", +"printf('\t a is : %.0f in^2 \n',a);\n", +"N1=((N*a*4)/(3.14*Ds^2));\n", +"printf('\t number of submerged tubes are : %.0f \n',N1);\n", +"Nt=N-N1;\n", +"printf('\t number of tubes for condensation are : %.0f \n',Nt);\n", +"Af=(N1/N);\n", +"printf('\t flooded surface : %.2f \n',Af);\n", +"printf('\t for condensaton \n');\n", +"G1=(W/(L*Nt^(2/3))); // from eq.12.43\n", +"printf('\t G1 is : %.1f lb/(hr)*(lin ft) \n',G1);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"n=4; // number of passes\n", +"L=16; //ft\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=1.98; // lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=940; //Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hio to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"ho=251; // Btu/(hr)*(ft^2)*(F), from fig 12.9\n", +"printf('\t Correct ho to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Ac=(qc/(Uc*LMTDc));\n", +"printf('\t clean surface required for dcondensation : %.0f ft^2 \n',Ac);\n", +"printf('\t subcooling \n');\n", +"ho=50; // Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Us=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Us);\n", +"As=(qs/(Us*LMTDs));\n", +"printf('\t clean surface required for desuperheating : %.0f ft^2 \n',As);\n", +"AC=As+Ac;\n", +"printf('\t total clean surface : %.0f ft^2 \n',AC);\n", +"UC=((Us*As)+(Uc*Ac))/(AC);\n", +"printf('\t weighted clean overall coefficient : %.0f Btu/(hr)*(ft^2)*(F) \n',UC);\n", +"A=1160; // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((UC-UD)/((UD)*(UC))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"printf('\t condensation \n');\n", +"printf('\t It will be necessary to spread the batHes to a spacing of 18in.to compensate for the reduction in crossfiow area due to the flooded subcooling zone. The tube-side pressure drop will be the same as before. Assume bundle flooded to 0.3Ds.\n');\n", +"As=0.547; // ft^2\n", +"Gs=(W/(As)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gs);\n", +"De=0.0792; // fig 28\n", +"Res=((De)*(Gs)/0.0165); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"f=0.00121; // friction factor for reynolds number 193000, using fig.29\n", +"s=0.00454; // for reynolds number 193000,using fig.6\n", +"Ds=2.08; // ft\n", +"B=18\n", +"phys=1;\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPsc=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys)))/(2); // using eq.12.47,psi\n", +"printf('\t delPsc is : %.1f psi \n',delPsc);\n", +"printf('\t delPss is negligible \n');\n", +"printf('\t allowable delPa is 2 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 12.6: Calculation_of_Vertical_Reflux_type_CSo_Condenser.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 12.6 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=176; // inlet hot fluid,F\n", +"T2=176; // outlet hot fluid,F\n", +"t1=85; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"W=30000; // lb/hr\n", +"w=120000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for carbon disulfide \n');\n", +"l=140; // Btu/(lb)\n", +"Q=((W)*l); // Btu/hr\n", +"printf('\t total heat required for carbon disulfide is : %.1e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.0f Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"Tc=((T2)+T1)/2; // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"printf('\t hot fluid:inner tube side,carbon disulfide \n');\n", +"hio=300; // Btu/(hr)*(ft^2)*(F)\n", +"printf('\t cold fluid:shell side,water \n');\n", +"ID=17.25; // in\n", +"C=0.25; // clearance\n", +"B=6; // baffle spacing,in\n", +"PT=1;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2\n", +"printf('\t flow area is : %.2f ft^2 \n',as);\n", +"Gs=(w/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=1.7; // at 280F,lb/(ft)*(hr), from fig.14\n", +"De=0.0792; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Res);\n", +"jH=103; // from fig.28\n", +"k=0.36; // Btu/(hr)*(ft^2)*(F/ft), from fig.1\n", +"Z=1.68; // Z=((c)*(mu1)/k)^(1/3); // prandelt number\n", +"ho=((jH)*(k/De)*(Z)); // using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"tw=(tc)+(((hio)/(hio+ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.1f F \n',tw);\n", +"tf=(Tc+tw)/(2); // from eq 12.19\n", +"printf('\t tf is : %.1f F \n',tf);\n", +"printf('\t hot fluid:inner tube side,carbon disulfide \n');\n", +"kf=0.09; // Btu/(hr)*(ft^2)*(F/ft), from fig 14\n", +"sf=1.26; // from table 6\n", +"rowf=78.8; // lb/ft^3\n", +"muf=0.68; // cp, from fig 24\n", +"Nt=177;\n", +"D=0.0517; // ft\n", +"G1=(W/(3.14*Nt*D));\n", +"printf('\t G1 is : %.f lb/(hr)*(lin ft) \n',G1);\n", +"Ret=((4)*(G1)/muf); // reynolds number\n", +"printf('\t reynolds number is : %.0f \n',Ret);\n", +"hi=(0.251*(((kf^3)*(rowf^2)*(4.17*10^8))/(muf^2))^(1/3)); // hi*(((kf^3)*(rowf^2)*(4.17*10^8))/(muf^2))^(-1)=0.251, from fig 12.12\n", +"printf('\t hi is : %.0e Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.62; // ft\n", +"OD=.75; //ft\n", +"hio1=((hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct hio1 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio1);\n", +"Uc=((hio1)*(ho)/(hio1+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"L=16;\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(LMTD)));\n", +"printf('\t actual design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.5f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"n=1; // number of passes\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(30000/(0.372)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=0.029; // at inlet,lb/(ft)*(hr)\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"row=(76.1/((359)*(636/492)*(14.7/39.7)));\n", +"printf('\t row is %.3f ld/ft^3 \n',row);\n", +"s=(row/62.5);\n", +"printf('\t s is %.4f \n',s);\n", +"f=0.000138; // friction factor for reynolds number 143000, using fig.26\n", +"delPt=((f*(Gt^2)*(16)*(1))/(5.22*(10^10)*(0.0517)*(s)))/(2); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"printf('\t allowable delPa is negligible psi \n');\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0017; // friction factor for reynolds number 31000, using fig.29\n", +"s=1; // for reynolds number 31000,using fig.6\n", +"Ds=17.25/12; // ft\n", +"B=6;\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 12.7: Calculation_of_a_Surface_Condenser.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 12.7 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"V=7.5; // fps\n", +"W=250000;\n", +"CCl=0.85;\n", +"CT=1;\n", +"CL=1;\n", +"Ct=263;\n", +"UD=(CCl*CT*CL*Ct*(V^(1/2)));\n", +"printf('\t design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"A=(W/8);\n", +"printf('\t area is : %.0f ft^2 \n',A);\n", +"a1=0.229; // ft^2/ft, table 10\n", +"at=0.475; // in^2, table 10\n", +"t1=70;\n", +"Ts=91.72; //F\n", +"n=2;\n", +"L=26;\n", +"t2=(Ts)-((Ts-t1)/((10)^(0.000279*UD*L*n*a1/(V*at)))); \n", +"printf('\t t2 is : %.1f F \n',t2); // calculation mistake in book\n", +"Go=(W*950)/((t2-t1)*500);\n", +"printf('\t circulation rate is : %.0f gpm \n',Go);\n", +"// end\n", +"" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/13-Condensation_of_Mixed_vapors.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/13-Condensation_of_Mixed_vapors.ipynb new file mode 100644 index 0000000..867d9c2 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/13-Condensation_of_Mixed_vapors.ipynb @@ -0,0 +1,1089 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 13: Condensation of Mixed vapors" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 13.1: Calculation_of_the_Bubble_Point.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 13.1 \n');\n", +"// at atmospheric pressure,Pt=760 mm Hg\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"x(1)=0.077; // mole fraction of C4\n", +"x(2)=0.613; // mole fraction of C5\n", +"x(3)=0.310; // mole fraction of C6\n", +"printf('\t for T 100 F \n');\n", +"Pp(1)=3170; // vapour pressure of C4, from fig 13.3\n", +"Pp(2)=790; // vapour pressure of C5,from fig 13.3\n", +"Pp(3)=250; // vapour pressure of C6,from fig 13.3\n", +"i=1;\n", +"while(i<4)\n", +" p(i)=(Pp(i)*x(i));\n", +" printf(' \n x(i) Pp(i) p(i) \n '+string(x(i))+' '+string(Pp(i))+' '+string(p(i))+' \n');\n", +"i=i+1;\n", +"end\n", +"pt=p(1)+p(2)+p(3);\n", +"printf('\t total pressure is : %.1f mm Hg \n',pt);\n", +"printf('\t pressure is too high \n');\n", +"printf('\t for T 96 F \n');\n", +"Pp(1)=2990; // vapour pressure of C4, from fig 13.3\n", +"Pp(2)=725; // vapour pressure of C5,from fig 13.3\n", +"Pp(3)=229; // vapour pressure of C6,from fig 13.3\n", +"i=1;\n", +"while(i<4)\n", +" p(i)=(Pp(i)*x(i));\n", +" printf(' \n x(i) Pp(i) p(i) \n '+string(x(i))+' '+string(Pp(i))+' '+string(p(i))+' \n');\n", +"i=i+1;\n", +"end\n", +"pt=p(1)+p(2)+p(3);\n", +"printf('\t total pressure is : %.1f mm Hg \n',pt);\n", +"printf('\t pressure is too low \n');\n", +"printf('\t for T 97 F \n');\n", +"Pp(1)=3040; // vapour pressure of C4, from fig 13.3\n", +"Pp(2)=740; // vapour pressure of C5,from fig 13.3\n", +"Pp(3)=234; // vapour pressure of C6,from fig 13.3\n", +"i=1;\n", +"while(i<4)\n", +" p(i)=(Pp(i)*x(i));\n", +" printf(' \n x(i) Pp(i) p(i) \n '+string(x(i))+' '+string(Pp(i))+' '+string(p(i))+' \n');\n", +"i=i+1;\n", +"end\n", +"pt=p(1)+p(2)+p(3);\n", +"printf('\t total pressure is : %.1f mm Hg \n',pt);\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(Pp(i)*x(i)/pt);\n", +" printf('\n x(i) y(i) \n '+string(x(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"printf('\t solution for b \n');\n", +"// Similarly at what temperature will the mixture start to boil if the system is under a pressure of 35 psia\n", +"printf('\t for T 150 F \n');\n", +"Pp(1)=6100; // vapour pressure of C4, from fig 13.3\n", +"Pp(2)=1880; // vapour pressure of C5,from fig 13.3\n", +"Pp(3)=680; // vapour pressure of C6,from fig 13.3\n", +"i=1;\n", +"while(i<4)\n", +" p(i)=(Pp(i)*x(i));\n", +" printf(' \n x(i) Pp(i) p(i) \n '+string(x(i))+' '+string(Pp(i))+' '+string(p(i))+' \n');\n", +"i=i+1;\n", +"end\n", +"pt=p(1)+p(2)+p(3);\n", +"printf('\t total pressure is : %.0f mm Hg \n',pt);\n", +"printf('\t pressure is too high \n');\n", +"printf('\t for T 149F \n');\n", +"Pp(1)=6050; // vapour pressure of C4, from fig 13.3\n", +"Pp(2)=1850; // vapour pressure of C5,from fig 13.3\n", +"Pp(3)=670; // vapour pressure of C6,from fig 13.3\n", +"i=1;\n", +"while(i<4)\n", +" p(i)=(Pp(i)*x(i));\n", +" printf(' \n x(i) Pp(i) p(i) \n '+string(x(i))+' '+string(Pp(i))+' '+string(p(i))+' \n');\n", +"i=i+1;\n", +"end\n", +"pt=p(1)+p(2)+p(3);\n", +"printf('\t total pressure is : %.0f mm Hg \n',pt);\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(Pp(i)*x(i)/pt);\n", +" printf('\n x(i) y(i) \n '+string(x(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"printf('\t solution for c \n');\n", +"printf('\t for T 95F \n');\n", +"K(1)=3.13; // fig 7\n", +"K(2)=0.92; // fig 7\n", +"K(3)=0.30; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(K(i)*x(i));\n", +" printf('\n x(i) K(i) y(i) \n '+string(x(i))+' '+string(K(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"yt=y(1)+y(2)+y(3);\n", +"printf('\t yt is : %.3f \n',yt);\n", +"printf('\t yt is too low \n');\n", +"printf('\t for T 100F \n');\n", +"K(1)=3.35; // fig 7\n", +"K(2)=1; // fig 7\n", +"K(3)=0.335; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(K(i)*x(i));\n", +" printf('\n x(i) K(i) y(i) \n '+string(x(i))+' '+string(K(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"yt=y(1)+y(2)+y(3);\n", +"printf('\t yt is : %.3f \n',yt);\n", +"printf('\t yt is too low \n');\n", +"printf('\t for T 102F \n');\n", +"K(1)=3.45; // fig 7\n", +"K(2)=1.02; // fig 7\n", +"K(3)=0.35; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(K(i)*x(i));\n", +" printf('\n x(i) K(i) y(i) \n '+string(x(i))+' '+string(K(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"yt=y(1)+y(2)+y(3);\n", +"printf('\t yt is : %.3f \n',yt);\n", +"printf('\t solution for d \n');\n", +"// The use of K values gives y, directly and permits use of the total mol fraction of yt = 1.00 as the criterion for equilibrium\n", +"printf('\t for T 150F \n');\n", +"K(1)=2.8; // fig 7\n", +"K(2)=1.01; // fig 7\n", +"K(3)=0.4; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(K(i)*x(i));\n", +" printf('\n x(i) K(i) y(i) \n '+string(x(i))+' '+string(K(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"yt=y(1)+y(2)+y(3);\n", +"printf('\t yt is : %.3f \n',yt);\n", +"printf('\t yt is too low \n');\n", +"printf('\t for T 153F \n');\n", +"K(1)=2.90; // fig 7\n", +"K(2)=1.06; // fig 7\n", +"K(3)=0.415; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(K(i)*x(i));\n", +" printf('\n x(i) K(i) y(i) \n '+string(x(i))+' '+string(K(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"yt=y(1)+y(2)+y(3);\n", +"printf('\t yt is : %.3f \n',yt);\n", +"printf('\t solution for e at pt=760mm Hg \n');\n", +"y(1)=0.077; // mole fraction of C4\n", +"y(2)=0.613; // mole fraction of C5\n", +"y(3)=0.310; // mole fraction of C6\n", +"printf('\t for T 130F \n');\n", +"K(1)=5; // fig 7\n", +"K(2)=1.65; // fig 7\n", +"K(3)=0.62; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" x(i)=(y(i)/K(i));\n", +" printf('\n y(i) K(i) x(i) \n '+string(y(i))+' '+string(K(i))+' '+string(x(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"xt=x(1)+x(2)+x(3);\n", +"printf('\t xt is : %.3f \n',xt);\n", +"printf('\t xt is too low \n');\n", +"printf('\t for T 120F \n');\n", +"K(1)=4.4; // fig 7\n", +"K(2)=1.4; // fig 7\n", +"K(3)=0.51; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" x(i)=(y(i)/K(i));\n", +" printf('\n y(i) K(i) x(i) \n '+string(y(i))+' '+string(K(i))+' '+string(x(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"xt=x(1)+x(2)+x(3);\n", +"printf('\t xt is : %.3f \n',xt);\n", +"printf('\t xt is high \n');\n", +"printf('\t for T 123F \n');\n", +"K(1)=4.6; // fig 7\n", +"K(2)=1.49; // fig 7\n", +"K(3)=0.545; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" x(i)=(y(i)/K(i));\n", +" printf('\n y(i) K(i) x(i) \n '+string(y(i))+' '+string(K(i))+' '+string(x(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"xt=x(1)+x(2)+x(3);\n", +"printf('\t xt is : %.3f \n',xt);\n", +"printf('\t dew point at 760mm is 123F \n');\n", +"printf('\t dew point at 35psia \n');\n", +"printf('\t for T 174F \n');\n", +"K(1)=3.7; // fig 7\n", +"K(2)=1.38; // fig 7\n", +"K(3)=0.58; // fig 7\n", +"i=1;\n", +"while(i<4)\n", +" x(i)=(y(i)/K(i));\n", +" printf('\n y(i) K(i) x(i) \n '+string(y(i))+' '+string(K(i))+' '+string(x(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"xt=x(1)+x(2)+x(3);\n", +"printf('\t xt is : %.3f \n',xt);\n", +"printf('\t dew point is 174F \n');\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 13.2: Calculation_of_the_Bubble_Point_and_Vapor_Composition_by_Relative.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 13.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"printf('\t bubble point at 95F and 14.7psia \n');\n", +"x(1)=0.077; // mole fraction of C4\n", +"x(2)=0.613; // mole fraction of C5\n", +"x(3)=0.310; // mole fraction of C6\n", +"K(1)=3.13; // fig 7\n", +"K(2)=0.92; // fig 7\n", +"K(3)=0.3; // fig 7\n", +"a(1)=3.4; // a= alpha\n", +"a(2)=1; \n", +"a(3)=0.326;\n", +"i=1;\n", +"while(i<4)\n", +" Z(i)=(a(i)*x(i)); \n", +" i=i+1;\n", +"end\n", +"Zt=Z(1)+Z(2)+Z(3);\n", +"printf('\t Zt is : %.3f \n',Zt);\n", +"i=1;\n", +"while(i<4)\n", +" y(i)=(a(i)*x(i)/(Zt));\n", +" printf(' \n x(i) K(i) a(i) Z(i) y(i) \n '+string(x(i))+' '+string(K(i))+' '+string(a(i))+' '+string(Z(i))+' '+string(y(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"yt=y(1)+y(2)+y(3);\n", +"printf('\t yt is : %.3f \n',yt);\n", +"K2=(y(2)/x(2));\n", +"printf('\t K2 is : %.3f \n',K2);\n", +"printf('\t bubble point is 102 \n'); // from fig 7 , comparing K2 value\n", +"printf('\t dew point at 130F and 14.7psia \n');\n", +"y(1)=0.077; // mole fraction of C4\n", +"y(2)=0.613; // mole fraction of C5\n", +"y(3)=0.310; // mole fraction of C6\n", +"K(1)=5; // fig 7\n", +"K(2)=1.65; // fig 7\n", +"K(3)=0.62; // fig 7\n", +"a(1)=3.03; // a= alpha\n", +"a(2)=1; \n", +"a(3)=0.376;\n", +"i=1;\n", +"while(i<4)\n", +" Z(i)=(y(i)/a(i));\n", +" i=i+1;\n", +"end\n", +"Zt=Z(1)+Z(2)+Z(3);\n", +"printf('\t Zt is : %.3f \n',Zt);\n", +"i=1;\n", +"while(i<4)\n", +" x(i)=(Z(i)/Zt);\n", +" printf(' \n y(i) K(i) a(i) Z(i) x(i) \n '+string(y(i))+' '+string(K(i))+' '+string(a(i))+' '+string(Z(i))+' '+string(x(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"xt=x(1)+x(2)+x(3);\n", +"printf('\t xt is : %.0f \n',xt);\n", +"K2=(y(2)/x(2));\n", +"printf('\t K2 is : %.2f \n',K2);\n", +"printf('\t dew point is 122F \n'); // from fig 7, comparing K2 value\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 13.3: Condenser_Calculations_for_a_Multicomponent_Mixture.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 13.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"printf('\t for condensing range \n');\n", +"V(1)=170.5; // volume of C3,Mol/hr\n", +"V(2)=284; // volume of C4,Mol/hr\n", +"V(3)=56.8; // volume of C6,Mol/hr\n", +"V(4)=341.1; // volume of C7,Mol/hr\n", +"V(5)=284; // volume of C8,Mol/hr\n", +"Tw=283; // dew point assumption\n", +"Tb=120; // bubble point assumption\n", +"K(1)=13.75 // at 283F\n", +"K(2)=6.18 // at 283F\n", +"K(3)=1.60 // at 283F\n", +"K(4)=0.825 // at 283F\n", +"K(5)=0.452 // at 283F\n", +"i=1;\n", +"while(i<6)\n", +" Z(i)=(V(i)/K(i));\n", +" i=i+1;\n", +"end\n", +"Vt=V(1)+V(2)+V(3)+V(4)+V(5);\n", +"Zt=Z(1)+Z(2)+Z(3)+Z(4)+Z(5);\n", +"L(1)=170.5; // volume of C3,Mol/hr\n", +"L(2)=284; // volume of C4,Mol/hr\n", +"L(3)=56.8; // volume of C6,Mol/hr\n", +"L(4)=341.1; // volume of C7,Mol/hr\n", +"L(5)=284; // volume of C8,Mol/hr\n", +"Kl(1)=4.1 // at 283F\n", +"Kl(2)=1.39 // at 283F\n", +"Kl(3)=0.17 // at 283F\n", +"Kl(4)=0.06 // at 283F\n", +"Kl(5)=0.023 // at 283F\n", +"i=1;\n", +"while(i<6)\n", +" Zl(i)=(L(i)*Kl(i));\n", +" printf(' \n V(i) K(i) Z(i) L(i) Kl(i) Zl(i) \n '+string(V(i))+' '+string(K(i))+' '+string(Z(i))+' '+string(L(i))+' '+string(Kl(i))+' '+string(Zl(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"Lt=L(1)+L(2)+L(3)+L(4)+L(5);\n", +"Zlt=Zl(1)+Zl(2)+Zl(3)+Zl(4)+Zl(5);\n", +"printf('\t total volume in vapour phase : %.1f \n',Vt);\n", +"printf('\t total Zt in vapour phase : %.1f \n',Zt);\n", +"printf('\t total volume in liquid phase : %.1f \n',Lt);\n", +"printf('\t total Zlt in liquid phase : %.1f \n',Zlt);\n", +"// Range: 283 to 270°F\n", +"// Trial: Assume V /L = 4.00.\n", +"R=4; // R=(V/L), assumption\n", +"K(1)=12.75 // at 270F\n", +"K(2)=5.61 // at 270F\n", +"K(3)=1.40 // at 270F\n", +"K(4)=0.705 // at 270F\n", +"K(5)=0.375 // at 270F\n", +"i=1;\n", +"Y(i)=V(i);\n", +"while(i<6)\n", +" P(i)=(K(i)*R);\n", +" L1(i)=(V(i)/(1+P(i))); // V(i)=Y(i)\n", +" printf(' \n Y(i) K(i) P(i) L1(i) \n '+string(V(i))+' '+string(K(i))+' '+string(P(i))+' '+string(L1(i))+' \n');\n", +" i=i+1;\n", +"end\n", +"L1t=L1(1)+L1(2)+L1(3)+L1(4)+L1(5);\n", +"V1t=(Vt-L1t);\n", +"R1=(V1t/L1t);\n", +"printf('\t total liquid at 270F : %.0f \n',L1t);\n", +"printf('\t total vapour at 270F : %.0f \n',V1t);\n", +"printf('\t R1 is : %.0f \n',R1);\n", +"// If the assumed and calculated values of V /L had not checked, a new value would have been assumed.\n", +"printf('\t for condensing curve \n');\n", +"R270=4; // V/L at 270, from table 13.2\n", +"R270=1.567; // V/L at 250, from table 13.2\n", +"R270=0.916; // V/L at 230, from table 13.2\n", +"R270=0.520; // V/L at 200, from table 13.2\n", +"R270=0.226; // V/L at 160, from table 13.2\n", +"H270=30835500; // 4th table in solution ,enthalpies calculated from fig 10\n", +"printf('\t heat load at 270F is : %.0f Btu/hr \n',H270);\n", +"H250=27042400; // 5th table in solution ,enthalpies calculated from fig 10\n", +"printf('\t heat load at 250F is : %.0f Btu/hr \n',H250);\n", +"Q=H270-H250;\n", +"printf('\t heat load for interval 270-250F : %.0f Btu/hr \n',Q);\n", +"qt=21203000; // 6th table in solution, calculated from fig 10\n", +"printf('\t heat load for entire range is : %.0f Btu/hr \n',qt);\n", +"M=210410; // M=sum(U*A), 6th table in solution, calculated from fig 10\n", +"w=(qt/(120-80));\n", +"printf('\t water flow rate : %.1e lb/hr \n',w);\n", +"W=95450; // flow rate of feed,lb/hr\n", +"delt=(qt/M);\n", +"printf('\t weighted delt is : %.1f F \n',delt);\n", +"q1=[0 3.4765 7.2696 10.109 13.468 17.399 21.203];\n", +"T1=[283 270 250 230 200 160 120];\n", +"plot2d(q1,T1,style=3,rect=[0,0,25,300]);\n", +"q2=[0 21.203];\n", +"T2=[283 120];\n", +"plot2d(q2,T2,style=5,rect=[0,0,25,300]);\n", +"xtitle('condensing curve','heat load,Btu/hr','temperature,F');\n", +"legend('green-differential vapour','red-vapour');\n", +"printf('\t calculation of the exchanger \n');\n", +"T1=283; // inlet hot fluid,F\n", +"T2=120; // outlet hot fluid,F\n", +"t1=80; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"L=16;\n", +"Nt=774;\n", +"n=4;\n", +"row=62.5;\n", +"Qs=21203000; // Btu/hr\n", +"Qw=(w*1*(120-80));\n", +"printf('\t heat absorbed by water : %.4e Btu/hr \n',Qw);\n", +"Mavg=84; // This corresponds very closely to hexane (mol. Wt. = 86.2) whose properties will be used throughout.\n", +"Qc=W*(0.6/2)*(283-120);\n", +"printf('\t condensate sensible heat load: %.2e Btu/hr \n',Qc);\n", +"S=(Qc*(100/Qs));\n", +"printf('\t submergence : %.0f \n',S);\n", +"Tc=((T1+T2)/2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1+t2)/2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shellside,vapour \n');\n", +"Nts=(774*(1-.22)); // as submergence is 22%\n", +"printf('\t unmerged tubes : %.0f \n',Nts);\n", +"Gs=(W/(L*(Nts^(2/3)))); // eq 12.43\n", +"printf('\t Gs is : %.1f \n',Gs);\n", +"Ho=200; // assumption\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*row));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"hi=1355; // fig 25\n", +"ID=0.62;\n", +"OD=0.75;\n", +"hio=((hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct hio to the surface at the OD is : %.2e Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"tw=(tc)+(((Ho)/(hio+Ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"tf=(Tc+tw)/(2); // from eq 12.19\n", +"printf('\t tf is : %.0f F \n',tf);\n", +"kf=0.077; //table 4, Btu/(hr)*(ft^2)*(F/ft)\n", +"sf=0.60; // from table 6\n", +"muf=0.21; // cp, from fig 14\n", +"ho=206; // Btu/(hr)*(ft^2)*(F), from fig 12.9\n", +"printf('\t Correct ho to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Ac=(Qw/(174*delt));\n", +"printf('\t clean surface required for condensation : %.2e ft^2 \n',Ac);\n", +"As=1210*0.22;\n", +"printf('\t clean surface required for subcooling : %.0f ft^2 \n',As);\n", +"AG=As+Ac;\n", +"printf('\t total clean surface : %.0f ft^2 \n',AG);\n", +"UC=(Qw/(AG*delt));\n", +"printf('\t weighted clean overall coefficient : %.0f Btu/(hr)*(ft^2)*(F) \n',UC);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.2e ft^2 \n',A);\n", +"UD=((Qw)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((UC-UD)/((UD)*(UC))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.5f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"B=30;\n", +"as=33*0.25*(30/144)*1; // eq 7.1\n", +"printf('\t as is : %.2f ft^2 \n',as);\n", +"Gs=(W/as);\n", +"printf('\t Gs is : %.2e lb/(hr)*(ft^2) \n',Gs); // eq 7.2\n", +"mu1=0.0218; // at 283F\n", +"De=0.0608; // ft, from fig 15\n", +"Res=(De*Gs)/(mu1);\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"f=0.00125; // fig 29\n", +"N=(12*L/B); // eq 7.43\n", +"printf('\t number crosses : %.0f \n',N);\n", +"row1=0.527; //lb/ft^3\n", +"s=0.00844;\n", +"Ds=2.75; // ft\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(1)))/(2); // using eq 12.47,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"mu2=1.74; // fig 14\n", +"D=0.0517; // ft\n", +"s=1;\n", +"Ret=(D*Gt/mu2);\n", +"printf('\t reynolds number : %.2e \n',Ret);\n", +"f=0.00019; // ft^2/in^2\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(1)*(1))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.23; // X1=((V^2)/(2*g)),using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 13.4: Vapor.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 13.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"vA=2*3.7+(7.4); // for steam\n", +"vB=14.8+(2*7.4); // for CO2\n", +"MA=18;\n", +"MB=44;\n", +"T=403; // K\n", +"Pt=3.04; // atm\n", +"kd=(0.0166)*(((403^(3/2))/(3.04*(14.8^(1/3)+29.6^(1/3))^(2)))*((1/18)+(1/44))^(1/2)); // eq 13.31\n", +"printf('\t diffusivity is : %.2f ft^2/hr \n',kd);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 13.5: Calculation_of_a_Steam_Carbon_Dioxide_Condenser.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 13.5 \n');\n", +"// for a Basis of one Hour\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"c(1)=1544; // Flow rate of CO2, Lb/hr\n", +"h(1)=4500; // Flow rate of H20, Lb/hr\n", +"\n", +"c(2)=35; //Flow rate of CO2, Mol/hr\n", +"h(2)=250;//Flow rate of H20, Mol/hr\n", +"\n", +"t(1)=c(1)+h(1); //Total flow rate , Lb/hr\n", +"t(2)=c(2)+h(2); //Total flow rate, Mol/hr\n", +"\n", +"Pt = (30+14.7)/(14.7); //Total Pressure in atm\n", +"printf('\t Pt is %.2f\n',Pt);\n", +"Pw = ( h(2)/t(2) )*Pt; //Partial pressure of Water in atm\n", +"\n", +"printf('\t Partial Pressure of Water: %.2f atm \n',Pw);\n", +"\n", +"Tw = 267; // from table 7 at 2.68atm\n", +"Mm = (t(1)/t(2));\n", +"\n", +"printf('\t mean molecular weight : %.1f \n',Mm);\n", +"// weighted temperature difference\n", +"// overall balance\n", +"//for Inlet\n", +"Pv=2.68; // water vapour pressure, atm\n", +"Pg=Pt-Pv; // Inert pressure\n", +"//for Exit\n", +"Pw1 = 0.1152 // Partial pressure of water at 120 F\n", +"Pv1 = 0.115; // Water vapor pressure\n", +"Pg1 = 2.935; // Inert pressure\n", +"\n", +"w1 = 250; //Pound mols steam inlet\n", +"w2 = c(2)*(Pv1/Pg1);\n", +"printf('\tPound mols steam exit:%.2f\n',w2);\n", +"w3 = w1 - w2;\n", +"printf('\tPound mols steam condessed:%.2f\n',w3);\n", +"//Assume points at 267, 262, 255,225,150,120 deg F\n", +"//For the interval from 267 to 262 F\n", +"\n", +"Pv2 = 2.49; // From table 7 at 262 F\n", +"Pg2 = Pt - Pv2; //Inert pressure\n", +"printf('\tPg is %.2f',Pg2);\n", +"\n", +"w4 = c(2) * (Pv2/Pg2); //Mol steam remaining\n", +"w5 = h(2) - w4; //Mol steam condensed\n", +"\n", +"printf('\tMol steam remaining:%.0f\n',w4);\n", +"printf('\tMol steam condensed:%.0f\n',w5);\n", +"\n", +"h1 = (w5*18*937.3) + (0.46*(267-262) * w5 * 18); //Heat of condensation\n", +"h2 = (w4 * 18 * 0.46*(267-262)); //Heat from uncondensed steam\n", +"h3 = c(1)*0.22*5.0; //Heat from noncondensable\n", +"\n", +"printf('\tHeat of condensation:%.2e\n',h1);\n", +"printf('\tHeat from uncondensed steam:%.2e\n',h2);\n", +"printf('\tHeat from noncondensable:%.1e\n',h3);\n", +"\n", +"ht = h1+h2+h3;//Total heat\n", +"printf('\tTotal heat:%.0f\n',ht);\n", +"\n", +"//Similarily calculating the Heat balance for other intervals\n", +"printf('\tInterval,F\tTotal Heat\n\t267-262\t1,598,000\n\t262-255\t1,104,000\n\t255-225\t1,172,000\n\t225-150\t751,000\n\t150-120\t177,000\n\tTotal\t4,802,000\n');\n", +"\n", +"w=4802000/(115-80); //Total water\n", +"printf('\tTotal water: %.2e\n',w);\n", +"//Water coefficient\n", +"Nt = 246;\n", +"at1 = 0.302;\n", +"n = 4;\n", +"\n", +"at = Nt * (at1/(144*n)); // From eq 7.48\n", +"printf('\tat is %.3f ft^2\n',at);\n", +"Gt = w/at;\n", +"printf('\tGt is %.2e lb/(hr)(ft^2)\n',Gt);\n", +"ro = 62.5; \n", +"V = Gt/(3600*ro);\n", +"printf('\tV is %.2f fps\n',V);\n", +"hi = 1120; // From fig. 25\n", +"ID = 0.62;\n", +"OD = 0.75;\n", +"hi0= hi *(ID/OD); //From eq 6.5\n", +"printf('\thi0 is %.0f\n',hi0);\n", +"//Mean properties at 267 F\n", +"c = ((c(1)*0.22)+(h(1)*0.46))/t(1); // Calculation mistake in Book\n", +"printf('\tMean c:%.3f Btu/(lb)(F)\n',c);\n", +"\n", +"k = ((c(1)*0.0128)+(h(1)*0.015))/t(1); // Calculation mistake in Book\n", +"printf('\tMean k:%.4f Btu/(hr)(ft^2)(F/ft)\n',k);\n", +"\n", +"mu = (((c(1)*0.019)+(h(1)*0.0136))/t(1))* 2.42; // Calculation mistake in Book\n", +"printf('\tMean mu:%.4f lb/(hr)(ft)\n',mu);\n", +"\n", +"ID1 = 21.25;\n", +"C = 0.25;\n", +"B = 12;\n", +"PT = 1.0;\n", +"\n", +"as = ID1 * C * (B/(144*PT)); //From eq 7.1\n", +"printf('\tas is %.3f ft^2\n',as);\n", +"Gs = t(1)/as //From eq 7.2\n", +"printf('\tGs is %.3e lb/(hr)(ft^2)\n',Gs);\n", +"Ds = 0.0792; // From Fig 28\n", +"Res = Ds * (Gs/0.0363); // From eq 7.3\n", +"printf('\tRes is %.2e\n',Res);\n", +"jH = 102; // From Fig 28\n", +"x = ((c*mu)/k)^(1/3);\n", +"printf('\t(c.mu/k)^1/3 is %.0f\n',x);\n", +"h0 = jH * 0.0146 * (x/Ds); //From eq 6.15b\n", +"printf('\th0 is %.0f\n',h0);\n", +"y = 0.62 // y = (mu/ro * kd)^(2/3)\n", +"z = 1.01; // z = ((c*mu)/k)^(2/3)\n", +"\n", +"K = (h0*z)/(0.407*Mm*y); //KG = K/p0f\n", +"printf('\tK is %.2f\n',K);\n", +"//at point 1\n", +"Tg = 244; // F\n", +"tW = 115;\n", +"delt=(Tg-tW);\n", +"printf('\t delt is %.0f F \n',delt);\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 13.6: Calculation_of_a_Condenser.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 13.6a \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"\n", +"ds=[0 10 20 30 40 50 60 70 80 90 100];\n", +"tmp=[90 145 180 208 234 260 286 312 338 367 400];\n", +"clf();\n", +"subplot(3,2,1);\n", +"plot2d(ds,tmp,style=2,rect=[0,80,100,400]);\n", +"xtitle('Plot of ASTM curve',boxed=1);\n", +"xlabel('Per cent distilled off');\n", +"ylabel('Temperature °F');\n", +"\n", +"//From the plotted ASTM curve and reference line\n", +"s = (312-145)/60; // (70% - 10%)/60%\n", +"printf('\tSlope of ASTm = %.2f °F\n',s);\n", +"ap = (180+260+338)/3; // (20% +50% +80%)/3\n", +"printf('\tAverage 50prcnt point = %.1f °F\n',ap);\n", +"\n", +"fc = 38; //°F, from Fig.13.8\n", +"printf('\t50prcnt point ASTM = 50prcnt point flash curve = %.0f °F\n',fc);\n", +"fc1 = ap - fc; //°F, fixing first point on EFC\n", +"printf('\t50prcnt on EFC = %.0f °F\n',fc1);\n", +"\n", +"s1 = 1.65; // (°F/%) from fig 13.10, upper curve\n", +"ten = 221 - 40*s1; //\n", +"printf('\t10prcnt on EFC = 50prcnt - 40prcnt = %.0f °F\n',ten);\n", +"sty = 221 + 20*s1; //\n", +"printf('\t70prcnt on EFC = 50prcnt + 20prcnt %.0f °F\n',sty);\n", +"\n", +"//Draw this line as a reference through the 50% point. Calculate the flash curve for different percentages off\n", +"\n", +"//0% off\n", +"printf('\n\t0 prcnt off:\n');\n", +"dela = 90 - 117; // Step (8)\n", +"printf('\t\tDelT ASTM = %.0f °F\n',dela); \n", +"delE = dela * 0.50; // Step (9)\n", +"printf('\t\tDelT EFC = %.1f °F\n',delE);\n", +"FE = 139 - delE; // Step (10)\n", +"printf('\t\t°F EFC = %.1f\n',FE);\n", +"//end\n", +"ov=13300; //lb/hr\n", +"ng=90;//lb/hr\n", +"mng=50;// mol. wt\n", +"st=370;//lb/hr\n", +"avG=50;//°F API\n", +"//For 80%\n", +"ouc=ov*0.80;//lb/hr\n", +"printf('\toil uncondensed = %.0f lb/hr\n',ouc);\n", +"avB=269;//°F,from Fig. 13.13\n", +"printf('\tAverage boiling point from the EFC at 1 atm = %.0f°F\n',avB);\n", +"avB1=avB+17;//°F,from Fig. 13.13\n", +"printf('\tAverage boiling point from the EFC at 19.7 psia = %.0f°F\n',avB1);\n", +"mwt=113;//mol. wt\n", +"mtoc=ouc/mwt;\n", +"printf('\tThe moles of oil still to be condensed = %.1f\n',mtoc);\n", +"mg1=ng/mng;\n", +"ms1=st/18;\n", +"tm=mg1+ms1+mtoc;\n", +"printf('\t\tMols gas = %.2f\n\t\tMols steam = %.1f\n',mg1,ms1);\n", +"printf('\t\t\t -----\n\t\tMols total = %.1f\n',tm);\n", +"tp=19.7;//psia\n", +"poil=(mtoc/tm)*tp;//psia\n", +"printf('\tPartial pressure of oil = %.1f psia\n',poil);\n", +"pgas=(mg1/tm)*tp;//psia\n", +"printf('\tPartial pressure of NC gas = %.3f psia\n',pgas);\n", +"tm(1)=95;//°F\n", +"tm(2)=127;//°F\n", +"tm(3)=163;//°F\n", +"tm(4)=205;//°F\n", +"tm(5)=240;//°F\n", +"pp(1)=6.73;\n", +"pp(2)=9.40;\n", +"pp(3)=12.25;\n", +"pp(4)=14.64;\n", +"pp(5)=15.65;\n", +"psat(1)=0.815;//From steam table\n", +"psat(2)=2.050;//From steam table\n", +"psat(3)=5.09;//From steam table\n", +"psat(4)=12.77;//From steam table\n", +"psat(5)=24.97;//From steam table\n", +"printf('\n\t\tCALCULATION OF DEW POINT OF THE STEAM\n');\n", +"printf('\tT,°F\t[pt - (poil+pNC)] = psteam\tpsat(steam tables)\n');\n", +"i=1;\n", +"while(i<6)\n", +" ps=tp-pp(i);\n", +" printf('\t'+string(tm(i))+'\t%.1f\t %.2f\t\t%.2f\t%.3f\n',tp,pp(i),ps,psat(i));\n", +" i=i+1;\n", +"end\n", +"subplot(3,2,2);\n", +"plot2d(psat,tm,style=3,rect=[0,25,90,250]);\n", +"xtitle('Computed pressure of steam',boxed=1);\n", +"xlabel('Pressure of steam, psi');\n", +"ylabel('Temperature °F');\n", +"\n", +"ds=6.417;//psia,at 173°F,\n", +"printf('\tAt 173°F, the dew point of steam, psat = %.3f psia\n',ds);\n", +"pd1=tp-ds;//psia\n", +"printf('\tpoil + pNC = %.2f psia\n',pd1);\n", +"x=((tp*ms1)/ds)-(ms1+mg1);// mols oil\n", +"printf('\tOil = %.2f mols oil\n',x);\n", +"mw=85;//From fig. 13.14\n", +"printf('\tThe molecular weight of the vapors is %.0f\n',mw);\n", +"lv=x*mw;//lb\n", +"printf('\tLb/hr vapor = %.0f\n',lv);\n", +"prc=((ov-lv)*100)/ov;//%\n", +"printf('\tpercent Condensed = %.0f\n',prc);\n", +"printf('\n\t\t\tOIL CONDENSING CURVE\n');\n", +"printf('\tprcnt\tCondensables\t\tAv BP on EFC\t\t50° API\t\tMol oil\t\tMol NC gas\tMol steam\tMol total\tTotal pressure\tPartial pressure\tPartial pressure\tCond temp,°F\n\t\tlb.hr\t\t14.7 psia °F\t19.7 psia,°F\tmol.wt\t\t\t\t\t\t\t\t\t\tpsia\t\toil,psia\t\tNC gas, psia\n');\n", +"mo(1)=107.5;\n", +"mo(2)=94.3;\n", +"mo(3)=77.7;\n", +"mo(4)=57.4;\n", +"mo(5)=31.8;\n", +"mo(6)=17.1;\n", +"mo(7)=8.9;\n", +"i=1;\n", +"while(i<8)\n", +" mt(i)=mo(i)+mg1+ms1;\n", +" ppo(i)=(mo(i)/mt(i))*tp;\n", +" ppg(i)=(mg1/mt(i))*tp;\n", +" i=i+1;\n", +"end\n", +"printf('\t---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n');\n", +"printf('\t100\t13330\t\t300\t\t317\t\t124\t\t%.1f\t\t1.8\t\t20.6\t\t%.1f\t\t19.7\t\t%.1f\t\t\t%.3f\t\t\t305\n',mo(1),mt(1),ppo(1),ppg(1));\n", +"printf('\t80\t10664\t\t269\t\t286\t\t113\t\t%.1f\t\t1.8\t\t20.6\t\t%.1f\t\t19.7\t\t%.1f\t\t\t%.3f\t\t\t277\n',mo(2),mt(2),ppo(2),ppg(2));\n", +"printf('\t60\t7998\t\t239\t\t256\t\t103\t\t%.1f\t\t1.8\t\t20.6\t\t%.1f\t\t19.7\t\t%.1f\t\t\t%.3f\t\t\t240\n',mo(3),mt(3),ppo(3),ppg(3));\n", +"printf('\t40\t5332\t\t207\t\t224\t\t93\t\t%.1f\t\t1.8\t\t20.6\t\t%.1f\t\t19.7\t\t%.1f\t\t\t%.3f\t\t\t205\n',mo(4),mt(4),ppo(4),ppg(4));\n", +"printf('\t20\t2666\t\t178\t\t195\t\t84\t\t%.1f\t\t1.8\t\t20.6\t\t%.1f\t\t19.7\t\t%.1f\t\t\t%.3f\t\t\t163\n',mo(5),mt(5),ppo(5),ppg(5));\n", +"printf('\t10\t1333\t\t155\t\t172\t\t78\t\t%.1f\t\t1.8\t\t20.6\t\t%.1f\t\t19.7\t\t%.1f\t\t\t%.3f\t\t\t127\n',mo(6),mt(6),ppo(6),ppg(6));\n", +"printf('\t5\t667\t\t141\t\t158\t\t75\t\t%.1f\t\t1.8\t\t20.6\t\t%.1f\t\t19.7\t\t%.1f\t\t\t%.3f\t\t\t95\n',mo(7),mt(7),ppo(7),ppg(7));\n", +"\n", +"//Trail 1:\n", +"m=78;//50° API mol. wt. for condesables 1333\n", +"vap=(ov*0.10)/78;//Mol/hr\n", +"printf('\n\t\t\t\tMol/hr\n\tOil vapor\t\t%.1f\n\tNC gas\t\t\t%.1f\n\tSteam\t\t\tX\n\tTotal\t\t\t18.9+X\n',vap,mg1);\n", +"vap1=vap+mg1;//Mol/hr\n", +"psteam=5.09;//psia, For 163°F\n", +"x1=(psteam*vap1)/(tp-psteam);//mols steam\n", +"printf('\tX = %.2f mols steam\n',x1);\n", +"tv=vap1+x1;\n", +"printf('\n\t\t\tMol/hr\tmf\tmf*pt = p-partial\n');\n", +"mf1=vap/(tv);\n", +"ppar1=mf1*tp;\n", +"printf('\tOil vapor\t%.1f\t%.3f\t%.2f\n',vap,mf1,ppar1);\n", +"mf2=mg1/tv;\n", +"ppar2=mf2*tp;\n", +"printf('\tNC gas\t\t%.1f\t%.3f\t%.2f\n',mg1,mf2,ppar2);\n", +"mf3=x1/tv;\n", +"ppar3=mf3*tp;\n", +"printf('\tSteam\t\t%.2f\t%.3f\t%.2f\n',x1,mf3,ppar3);\n", +"tot1=vap+mg1+x1;\n", +"tot2=mf1+mf2+mf3;\n", +"tot3=ppar1+ppar2+ppar3;\n", +"printf('\tTotal\t\t%.2f\t%.3f\t%.2f\n',tot1,tot2,tot3);\n", +"//Error was found. So trail 2 is done in a similar way\n", +"printf('\n\tSimilarly,\n\tT,°F\tOil cond, prcnt\tOil cond, lb\tSteam cond,lb\n');\n", +"printf('\t173\t74\t\t9863\t\t0\n\t163\t85\t\t11350\t\t204\n\t127\t97.5\t\t13000\t\t357\n\t95\t100\t\t13330\t\t370\n');\n", +"//Condensing curve\n", +"printf('\n\t\t\tOil\t\t\t\tSteam\n\t-----------------------------------------------------------------\n\tTc,°F\tHv,vapor\tHl,liquid\tHg or Hv,\tHl,liquid\n\t\t\t\t\t\tgas or vapor\n');\n", +"printf('\t-----------------------------------------------------------------\n')\n", +"printf('\t305\t368\t\t242\t\t1197.0\t\tSuperheated\n\t277\t359\t\t225\t\t1184.1\t\tSuperheated\n\t240\t337\t\t204\t\t1167.0\t\tSuperheated\n\t205\t322\t\t185\t\t1150.6\t\tSuperheated\n\t173\t310\t\t168\t\t1135.4\t\t140.9\n');//From fig.11 in Appendix and steam tables\n", +"//Heat load\n", +"//305°F:\n", +"hvv=368;\n", +"hvg=1197.0;\n", +"olv=ov*hvv;\n", +"stm=st*hvg;\n", +"ncg=ng*(0.46*273);\n", +"thh=olv+stm+ncg;\n", +"printf('\n\t\t\t\tH\t\tq\n');\n", +"printf('\tOil vapor\t\t%.2e\n\tSteam\t\t\t%.2e\n\tNC gas\t\t\t%.2e\n\t\t\t\t--------\n\t\t\t\t%.4e\t0\n',olv,stm,ncg,thh);\n", +"//Similarily at other temperatures\n", +"ttp(1)=305;//°F\n", +"ttp(2)=277;//°F\n", +"ttp(3)=240//°F\n", +"ttp(4)=205;//°F\n", +"ttp(5)=173;//°F, Dew point of steam\n", +"ttp(6)=163;//°F\n", +"ttp(7)=127;//°F\n", +"ttp(8)=95;//°F\n", +"\n", +"hld(1)=0;//million Btu\n", +"hld(2)=0.55;//milllion Btu\n", +"hld(3)=1.2;//million Btu\n", +"hld(4)=1.75;//million Btu\n", +"hld(5)=2.3;//million Btu\n", +"hld(6)=2.73;//million Btu\n", +"hld(7)=3.3;//million Btu\n", +"hld(8)=3.66;//million Btu\n", +"subplot(2,2,3);\n", +"plot2d(hld,ttp,style=6,rect=[0,60,3.8,320]);\n", +"xtitle('Condensation of mixed hydrocarbons with gas and steam',boxed=1);\n", +"xlabel('Heat load, million Btu');\n", +"ylabel('Temperature °F');\n", +"//summary\n", +"dp=3042800;//Btu/hr\n", +"ttt=3638400;//Btu/hr\n", +"i2s=thh-dp;//Btu/hr\n", +"printf('\tInlet to steam dew point = %.4eBtu/hr\n',i2s);\n", +"so=dp-1735900;//Btu/hr\n", +"printf('\tSteam dew point to outlet = %.4e Btu/hr\n',so);\n", +"totl=i2s+so;//Btu/hr\n", +"printf('\tTotal\t\t\t= %.4e Btu/hr\n',totl);\n", +"twa=ttt/(120-85);\n", +"printf('\tTotal water = %.2e lb/hr\n',twa);\n", +"wt=85+((1306900/ttt)*35);//°F\n", +"printf('\tWater temperature at dew point of steam = %.0f°F\n',wt);\n", +"//Weighted true temperature difference, delT:\n", +" //Inlet to dew point of steam:\n", +"delq=2331500;\n", +"delt1=122.2;\n", +"UA1=delq/delt1;\n", +"printf('\tUA = %.0f\n',UA1);\n", +"printf('\n\tDew point of steam to oulet\n');\n", +"printf('\tq\tdelq\tTc\ttw\tdelTav\t(delq/delTav) = UA\n');\n", +"printf('\t----------------------------------------------------------\n');\n", +"q(1)=2331500;\n", +"q(2)=2500000;\n", +"q(3)=2750000;\n", +"q(4)=3000000;\n", +"q(5)=3250000;\n", +"q(6)=3500000;\n", +"q(7)=3638000;\n", +"i=1;\n", +"while(i<7)\n", +" dq(i)=q(i+1)-q(i);\n", +" i=i+1;\n", +"end\n", +"dpt(1)=173;\n", +"dpt(2)=169;\n", +"dpt(3)=161;\n", +"dpt(4)=149;\n", +"dpt(5)=134;\n", +"dpt(6)=112;\n", +"dpt(7)=95;\n", +"dtw(1)=97.5;\n", +"dtw(2)=96;\n", +"dtw(3)=93;\n", +"dtw(4)=91;\n", +"dtw(5)=89;\n", +"dtw(6)=86;\n", +"dtw(7)=85;\n", +"i=1;\n", +"tua=0;\n", +"while(i<7)\n", +" dpdelt(i)=((dpt(i+1)-dtw(i+1))+(dpt(i)-dtw(i)))/2;\n", +" UA(i)=dq(i)/dpdelt(i);\n", +" tua=tua+UA(i);\n", +" i=i+1;\n", +"end\n", +"printf('\t2331500\t......\t173\t173\t97.5\n');\n", +"i=1;\n", +"while(i<7)\n", +" printf('\t'+string(q(i+1))+'\t'+string(dq(i))+'\t'+string(dpt(i+1))+'\t'+string(dtw(i+1))+'\t'+string(dpdelt(i))+'\t%.0f\n',UA(i));//from Fig. 13.16\n", +"i=i+1;\n", +"end\n", +"\n", +"printf('\t\t\t\t\t\t%.0f\tUA = sigma{delq/delt}\n',tua);\n", +"wdt=1306900/tua;//°F\n", +"printf('\tWeighted delt = %.1f°F\n',wdt);\n", +"owdt=ttt/(tua+UA1);//°F\n", +"printf('\tOverall weighted temperature difference = %.1f °F\n',owdt);\n", +"printf('\tThe uncorrected LMTD is 60.1°F\n');\n", +"//end\n", +"\n", +"\n", +"printf('\t example 13.6b \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"\n", +"// EXCHANGER\n", +"//Shell side\n", +"Id = 27; // inches\n", +"Bs = 16; // inches\n", +"Ps = 1; // passes\n", +"\n", +"//Tube side\n", +"N = 286; // number\n", +"l = 12; // inches\n", +"Od = 1; // inch\n", +"BWG = 14; // bWG\n", +"Ptc = 1.25; //inches\n", +"Ps1 = 8; // passes\n", +"\n", +"//Clesan surface requirements\n", +"\n", +"//Head load inlet to dew point of steam\n", +"st = 2331500; // Btu/hr\n", +"delT = 122.2 // °F\n", +"hio = 700; // Btu/((hr)(ft^2)(°F)) for water\n", +"\n", +"//From table 13.4 at inlet\n", +"NC = 1.8; //NC gas, mol/hr\n", +"sm = 20.6;// steam, mol/hr\n", +"tt = NC + sm;// mol/hr\n", +"printf('\tNC gas + steam is %.1f mol/hr\n',tt);\n", +"pN = tt/129.9; // mol/hr\n", +"printf('\tpercentage NC gas is %.4f\n',pN);\n", +"\n", +"//From Fig 13.17\n", +"hn = 205; //Btu/((hr)(ft^2)(°F))\n", +"//At dew point of steam\n", +"No=40.75; // Mol/hr\n", +"t1 = tt + No; // Mol/hr, total\n", +"pN1 = tt/t1; // Mol/hr, %NC\n", +"printf('\tpercentage NC is %.3f\n',pN1);\n", +"\n", +"//From fig 13.7\n", +"hn1 = 140; //Btu/((hr)(ft^2)(°F))\n", +"lm = 136.5; //Btu/((hr)(ft^2)(°F))\n", +"delT = 122.2; // °F\n", +"Ac1 = st/(lm * delT); // ft^2\n", +"printf('\tAc1 = Q/(U * delT) is %.1f ft^2\n',Ac1);\n", +"\n", +"//At dew point of steam to oulet\n", +"sm1 = 20.64; // Mol/hr , Steam\n", +"t2 = NC + sm1; // total, Mol/hr\n", +"printf('\tNC gas + steam is %.1f mol/hr\n',t2);\n", +"pN1 = NC/t2; // % NC gas\n", +"printf('\tpercentage NC gas is %.3f \n',pN1);\n", +"\n", +"Uc = 212; // From Fig 13.17, weighted for oil and steam\n", +"\n", +"//At outlet, steam = negligible\n", +"\n", +"Uc = 15;//From Fig 13.17\n", +"\n", +"//Log mean overall coefficient\n", +"lm = 74.5; // Btu/((hr)(ft^2)(°F)) , From Fig 13.17\n", +"delT = 44.8; // °F\n", +"Ac2 = 1306900/(lm * delT);\n", +"printf('\tAc2 is %.0f ft^2\n',Ac2);\n", +"\n", +"hl = 770000; // Btu/hr\n", +"printf('\tHeat of Liquid(50°API) is %.1ef\n',hl);\n", +"wr = (hl/3638400)*35; // °F\n", +"printf('\tWater rise = %.1f °F\n',wr);\n", +"\n", +"LMTD = 66.3; //°F\n", +"U1=50 //for free convection\n", +"As = hl/(U1*LMTD);// ft^2\n", +"printf('\tAs = %.1f ft^2\n',As);\n", +"Ac = Ac1 + Ac2 + As; //ft^2\n", +"printf('\tTotal clean surface %.0f ft^2\n',Ac);\n", +"\n", +"Uc = 3638400/(Ac * 75.5); // Btu/((hr)(ft^2)(°F))\n", +"printf('\tClean overall coefficient Uc = %.1f Btu/((hr)(ft^2)(°F))\n',Uc);\n", +"\n", +"x = 0.2618; // ft, from table 10\n", +"A = N * l * x; //ft^2\n", +"Ud = 3638400/(A * 75.5);\n", +"printf('\tDesign coefficient Ud is %.1f\n',Ud);\n", +"Rd =(Uc - Ud)/(Uc * Ud); // ((hr)(ft^2)(°F))/Btu\n", +"printf('\tDirt factor Rd is %.4f ((hr)(ft^2)(°F))/Btu\n',Rd);\n", +"\n", +"yo = (As/Ac)*A; // ft^2\n", +"printf('\tSubmerge = %.0f ft^2 of surface\n',yo);\n", +"//end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/14-Evopartion.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/14-Evopartion.ipynb new file mode 100644 index 0000000..7e78a0a --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/14-Evopartion.ipynb @@ -0,0 +1,623 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 14: Evopartion" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 14.1: Calculation_of_Evaporator_Surface.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 14.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"\n", +"t1 = 300; //°F\n", +"t2 = 226; //°F\n", +"bs = 700; // Btu/((hr)(ft^2)(°F))\n", +"//Heat Balance\n", +"Qv = 10000 * 961; // Btu/hr\n", +"printf('\tQevap is %.2e Btu/hr\n',Qv);\n", +"Q3 = 10550 * 910; //Btu/hr\n", +"printf('\tQ300°F is %.2e Btu/hr\n',Q3);\n", +"\n", +"delT = t1-t2; //°F\n", +"printf('\tTemperature head = %.0f °F\n',delT);\n", +"Ud = bs * 0.865;\n", +"printf('\tOverall coefficient %.0f\n',Ud);\n", +"A = Qv/(Ud * delT); //ft^2\n", +"printf('\tSurface required is %.0f ft^2\n',A); //Wrong calculation in book\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 14.2: Calculation_of_a_Triple_effect_Forward_feed_Evaporator.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 14.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"\n", +"wf = 50000; // lb/hr\n", +"sf = wf * 0.10; // lb/hr\n", +"tp = sf/0.50; // lb/hr\n", +"printf('\tTotal product is %.0f lb/hr\n',tp);\n", +"te = wf - tp;\n", +"printf('\tTotal evaporation is %.0f lb/hr\n',te);\n", +"cf = 1.0;\n", +"tF = 100; // °F\n", +"T1 = 244; // °F\n", +"T2 = 125; // °F\n", +"U1=600; // Btu/((hr)*(ft^2)*(°F))\n", +"U2=250; // Btu/((hr)*(ft^2)*(°F))\n", +"U3=125; // Btu/((hr)*(ft^2)*(°F))\n", +"\n", +"T = T1-T2;\n", +"printf('\tTotal temperature difference is delT%.0f °F\n',T);\n", +"df = (26.70- 1.95)/3; // psi/effect\n", +"printf('\tAverage pressure difference is delP%.2f psi/effect \n',df);\n", +"\n", +"printf('\n\t\t\t\t\tPressure, psia\t\t delP, psi \t Steam or vapor, °F \t lambda, Btu/lb\n\tSteam chest, 1st effect \t 26.70 \t\t\t .... \t\t Ts = 244 \t\t ls = 949 \n\tSteam chest, 2nd effect \t 18.45 \t\t\t 8.25 \t\t t1 = 224 \t\t l1 = 961 \n\tSteam chest, 3rd effect \t 10.20(20.7 in. Hg) \t 8.25 \t\t t2 = 194 \t\t l1 = 981 \n\tVapor to condenser \t\t 1.95(26 in. Hg) \t 8.25 \t\t t2 = 125 \t\t l1 = 1022 \n');\n", +"\n", +"printf('\t949*Ws + 50000*(100-224) = 961*w1\n\t961*w1 + (50000 - w1)*(224-194) = 981 * w2\n\t981*w2 + (50000-w1-w2)(194-125) = 1022 * w2\n\tw1+w2+w3 = 40000\n');\n", +"printf('\tSolving simultaneously\n');\n", +"w1=12400;\n", +"printf('\tw1 = %.2e \n',w1);\n", +"w2=13300;\n", +"printf('\tw2 = %.2e \n',w2);\n", +"w3=14300;\n", +"printf('\tw3 = %.2e \n',w3);\n", +"\n", +"Wt = w1+w2+w3;\n", +"printf('\tW1-3 is %.0e \n',Wt);\n", +"Ws = 19100;\n", +"lms = 949;\n", +"lm1 = 961;\n", +"lm2 = 981;\n", +"lm3 = 1022;\n", +"Ts = 244;\n", +"t1 = 224;\n", +"t2 = 194;\n", +"t3 = 125;\n", +"\n", +"A1 = (Ws * lms)/(U1*(Ts-t1)); //ft^2\n", +"printf('\tA1 is %.0f ft^2 \n',A1);\n", +"A2 = (w1*lm1)/(U2*(t1-t2)); //ft^2\n", +"printf('\tA2 is %.0f ft^2 \n',A2);\n", +"A3 = (w2 * lm2)/(U3*(t2-t3)); //ft^2\n", +"printf('\tA3 is %.0f ft^2 \n',A3);\n", +"\n", +"hc = w3 * lm3; // Btu/hr, WRONG CALCULATION IN TEXT BOOK\n", +"printf('\tHeat to condenser is %.3e Btu/hr\n',hc);\n", +"wr = hc/(120-85); //lb/hr\n", +"printf('\tWater requirement is %.1e lb/hr\n',wr);\n", +"wr1 = wr/500;\n", +"printf('\t= %.0f gpm \n',wr1);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 14.3: Backward_feed_Multiple_effect_Evaporator.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 14.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"//Same conditions as example 14.2\n", +"U1 = 400; //Btu/((hr)*(ft^2)*(°F))\n", +"U2 = 250; //Btu/((hr)*(ft^2)*(°F))\n", +"U3 = 175; //Btu/((hr)*(ft^2)*(°F))\n", +"\n", +"w1 = 50000; // lb/hr From example 14.2\n", +"wt = 40000; // lb/hr From example 14.2\n", +"cf = 1; // From example 14.2\n", +"\n", +"printf('\t981*w2 + 50000*(100-125) = 1022*w3\n\t961*w1 + (50000 - w3)*(125-194) = 981 * w2\n\t949*Ws + (50000-w3-w2)(194-224) = 961 * w1\n\tw1+w2+w3 = 40000\n');\n", +"printf('\tSolving simultaneously\n');\n", +"w1 = 15950;\n", +"w2 = 12900;\n", +"w3 = 11150;\n", +"lms = 949;\n", +"lm1 = 961;\n", +"lm2 = 981;\n", +"lm3 = 1022;\n", +"\n", +"wt = w1+w2+w3;\n", +"printf('\tw1-3 = %.0f \n',wt);\n", +"Ws = 16950;\n", +"A1 = (Ws*lms)/(U1*20); //ft^2\n", +"printf('\tA1 is %.0f ft^2\n',A1);\n", +"A2 = (w1*lm1)/(U2*30); //ft^2\n", +"printf('\tA2 is %.0f ft^2\n',A2);\n", +"A3 = (w2*lm2)/(U3*69); //ft^2\n", +"printf('\tA3 is %.0f ft^2\n',A3);\n", +"\n", +"Avs = (A1 + A2 + A3)/3; //ft^2\n", +"printf('\tAverage surface is %.0f ft^2\n',Avs);\n", +"Av1 = 3 * Avs; //ft^2\n", +"printf('\n\tWith a better distribution temperatures and pressure, Average surface is %.0f ft^2\n',Av1);\n", +"printf('\tRecalculation\n');\n", +"Av2 = 1500; //ft^2, assume\n", +"dT1 = 28; //°F\n", +"A4 = (20/dT1)*A1; //ft^2\n", +"printf('\tA1 is %.0f ft^2\n',A4);\n", +"dT2 = 41; //°F\n", +"A5 = (30/dT2)*A2; //ft^2\n", +"printf('\tA2 is %.0f ft^2\n',A5);\n", +"dT3 = 50; //°F\n", +"A6 = (69/50)*A3; //ft^2\n", +"printf('\tA3 is %.0f ft^2\n',A6);\n", +"del1 = 119; //°F\n", +"printf('\tTs-t3 is %.0f °F\n',del1);\n", +"printf('\t\t\t\t\tPressure, psia\t\t Steam or vapor, °F \t lambda, Btu/lb\n\tSteam chest, 1st effect \t 26.70 \t\t\tTs = 244 \t\t 949 \n\tSteam chest, 2nd effect \t 16.0 \t\t\t t1 = 216 \t\t 968 \n\tSteam chest, 3rd effect \t 16.4 in. Hg) \t\t t2 = 175 \t\t 992 \n\tVapor to condenser \t\t 26 in. Hg \t\t t3 = 125 \t\t l1 = 1022 \n');\n", +"\n", +"w1 = 15450; //Solving again for \n", +"printf('\tw1 is %.0f\n',w1);\n", +"w2 = 13200;\n", +"printf('\tw2 is %.0f\n',w2);\n", +"w3 = 11350;\n", +"printf('\tw3 is %.0f\n',w3);\n", +"Ws = 16850;\n", +"printf('\tWs is %.0f\n',Ws);\n", +"Hc = w3 * 1022;\n", +"printf('\tHeat to condenser is %.2e Btu/hr\n',Hc);\n", +"wr = Hc/(120-85); //lb/hr\n", +"printf('\tWater requirement %.2e lb/hr\n',wr);\n", +"wr1 = wr/500;\n", +"printf('\t\t\t= %.0fgpm\n',wr1);\n", +"ec = wt/Ws;\n", +"printf('\tEconomy, lb evaporation/lb steam %.2f\n',ec);\n", +"\n", +"//comparision of forward and backward feed\n", +"printf('\t\t\t\tForward\t\tBackward\n\tTotal steam, lb/hr\t19100\t\t16850\n\tCooling water, gpm\t840\t\t664\n\tTotal surface, ft^2\t4800\t\t4500');\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 14.4: evoparator_installer.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\texample 14.4 \n');\n", +"printf('\tapproximate values are mentioned in the book \n');\n", +"//Assumed that 37500 lb/hr of 15 psig vapor is bled from the first effect for use in thevaccum pans\n", +"printf('\n\tAVERAGE EVAPORATION PER SQUARE FOOT HEATING SURFACE FOR SUGAR EVAPORATORS\n');\n", +"printf('\tEffects\t\tWater evaporated(lb/(hr)*(ft^2))\n');\n", +"printf('\t1\t\t14-16\n\t2\t\t6-8\n\t3\t\t5-6\n\t4\t\t4-5\n\t5\t\t3-4\n');\n", +"printf('\n\tEVAPORATOR SUMMARY\n');\n", +"printf('\t------------------------------------------------------------------------------------------------------------------------------\n');\n", +"printf('\tItem\t\t\t\t\t\t\t\t\tEffects\nt\t\t\t\t\t----------------------------------------------------------------------------------------------\n\t\t\t\t\t1A\t\t1B\t\t2\t\t3\t\t4\t\t5\n');\n", +"printf('\t------------------------------------------------------------------------------------------------------------------------------\n');\n", +"printf('\t1.Steam flow, lb/hr\t\t42600\t\t38000\n\t2.Steam pressure, psi/in.Hg\t30\t\t30\t\t15\t\t5\t\t4\t\t14.5\n');\n", +"printf('\t3.Steam temp,°F\t\t\t274\t\t274\t\t250\t\t227\t\t205\t\t181\n');\n", +"printf('\t4.delT,°F\t\t\t23\t\t23\t\t21\t\t20\t\t20\t\t27\n\t5.Liquor temp, °F\t\t251\t\t251\t\t229\t\t207\t\t185\t\t164\n\t6.BPR, °F\t\t\t1\t\t1\t\t2\t\t2\t\t4\t\t7\n\t7.Vapor temp, °F\t\t250\t\t250\t\t227\t\t205\t\t181\t\t147\n\t8.Vapor pressure, pis/in.Hg\t15\t\t15\t\t5\t\t4\t\t14.5\t\t23\n\t9.Lambda, Btu/lb\t\t946\t\t946\t\t960\t\t975\t\t990\t\t1010\n\t10.Liquor in, lb/hr\t\t229000\t\t190200\t\t154000\t\t117100\t\t87800\t\t64000\n\t11.Liqour out, lb/hr\t\t190200\t\t154000\t\t117100\t\t87800\t\t64000\t\t49600\n\t12.Evaporation,lb/hr\t\t38800\t\t36200\t\t36900\t\t29300\t\t23800\t\t14400\n\t13.°Brix(out)\t\t\t15.7\t\t19.4\t\t25.5\t\t34.4\t\t46.5\t\t50.0\n\t14.A,ft^2\t\t\t3500\t\t3500\t\t5000\t\t5000\t\t5000\t\t3500\n\t15.UD,Btu/(hr)*(ft^2)*(°F)\t478\t\t425\t\t310\t\t264\t\t219\t\t138\n\t16.UD delT,Btu/(hr)*(ft^2)\t11000\t\t9780\t\t6520\t\t5270\t\t4390\t\t3740\n');//BPR values from fig 14.34a\n", +"//Saturate vapor pressure above the liquour determined from Table 7\n", +"//Saturated steam pressure in the following effect determined from Table 7\n", +"\n", +"t1 = 274; //°F\n", +"t2 = 147; //°F\n", +"t = t1-t2; //°F\n", +"printf('\tTotal temperature difference in the evaporator system = %.0f °F\n',t);\n", +"bpr1 = 1; //°F\n", +"bpr2 = 2; //°F\n", +"bpr3 = 2; //°F\n", +"bpr4 = 4; //°F\n", +"bpr5 = 7; //°F\n", +"bpr = bpr1 + bpr2 + bpr3 + bpr4 + bpr5; //°F\n", +"printf('\tThe sum of all the BPR(from effect 1B to the fifth effect inclusive) = %.0f °F\n',bpr);\n", +"tf = t-bpr; //°F\n", +"printf('\tTotal EFFECTIVE temperature difference = %.0f °F\n',tf);\n", +"lbh = 229000; //lb/hr\n", +"tp1=212; //°F\n", +"tp2=184; //°F\n", +"tp3=144; //°F\n", +"tp4=82; //°F\n", +"tj1=243; //°F\n", +"tj2=220; //°F\n", +"tj3=200; //°F\n", +"Ud1=231;\n", +"Ud2=243;\n", +"Ud3=230;\n", +"Ud4=214;\n", +"Ud5=217;\n", +"printf('\n\t\t\t\tSUGAR-JUICE HEATERS\n');\n", +"printf('\tRaw-juice heaters\t\t\t\tClear=juice heaters\n\t-----------------------------------------------------------------------------------------\n');\n", +"rj1=lbh*(tp1-tp2)*(0.91); //Btu/hr\n", +"printf('\t1.%.0f(%.0f-%.0f)(0.91) = %.2e Btu/hr',lbh,tp1,tp2,rj1);\n", +"rj2=lbh*(tj1-tj2)*(0.91); //Btu/hr\n", +"printf('\t1.%.0f(%.0f-%.0f)(0.91) = %.1e Btu/hr\n',lbh,tj1,tj2,rj2);\n", +"printf('\tVapor temp. = 227°F\tdelT=26.6°F\t\tVapor temp. = 250°F\tdelT=15.8°F\n');\n", +"printf('\tUD=%.0f\t\t\t\t\t\tUD=%.0f\n',Ud1,Ud2);\n", +"A1=rj1/(26.6*Ud1);//ft^2\n", +"A2=rj2/(15.8*Ud2);//ft^2\n", +"printf('\tSurface,A=%.0f ft^2\t\t\t\tSurface,A=%.0f ft^2\n\n',A1,A2);\n", +"\n", +"rj3=lbh*(tp2-tp3)*(0.90);//Btu/hr\n", +"printf('\t2.%.0f(%.0f-%.0f)(0.91) = %.2e Btu/hr',lbh,tp2,tp3,rj3);\n", +"rj4=lbh*(tj2-tj3)*(0.90);//Btu/hr\n", +"printf('\t2.%.0f(%.0f-%.0f)(0.91) = %.2e Btu/hr\n',lbh,tj2,tj3,rj4);\n", +"printf('\tVapor temp. = 205°F\tdelT=37.6°F\t\tVapor temp. = 227°F\tdelT=14.8°F\n');\n", +"printf('\tUD=%.0f\t\t\t\t\t\tUD=%.0f\n',Ud3,Ud4);\n", +"A3=rj3/(37.6*Ud3);//ft^2\n", +"A4=rj4/(14.8*Ud4);//ft^2\n", +"printf('\tSurface,A=%.0f ft^2\t\t\t\tSurface,A=%.0f ft^2\n\n',A3,A4);\n", +"\n", +"rj5=lbh*(tp3-tp4)*(0.90);//Btu/hr\n", +"printf('\t2.%.0f(%.0f-%.0f)(0.91) = %.2e Btu/hr',lbh,tp3,tp4,rj4);\n", +"printf('\t(Use 2 heaters at 1300 ft^2 each plus 1\n\t\t\t\t\t\t\theater at 1300 ft^2 as spare)\n');\n", +"A5=rj5/(62.2*Ud5);//ft^2\n", +"printf('\tVapor temp. = 181°F\tdelT=62.2°F\n\tSurface,A=%.0f\n',A5);\n", +"printf('\t(Use 3 heaters at 100 ft^2\n\teach plus 1 heater as spare)\n\n');\n", +"\n", +"v1=42600;//lb/hr\n", +"tt1=251;//°F\n", +"printf('\t\t\t\tHEAT BALANCE\n');\n", +"printf('\tEffect\t\t\tBtu/hr\t\tEvaporation,l/hr\n');\n", +"printf('\t----------------------------------------------------\n');\n", +"hia=v1*929*0.97;//Btu/hr\n", +"printf('\t1A.Heat in steam........%.2e\n',hia);\n", +"hla=lbh*(tt1-tj1)*0.91;//Btu/hr\n", +"hh=hia-hla;//Btu/hr\n", +"lb1=946;//Btu/lb\n", +"dif=hh/lb1;//lb/hr\n", +"printf('\t Heating liquor.......%.2e\n\t\t\t\t%.3e\t%.0f\n',hla,hh,dif);\n", +"ltob=lbh-dif;//lb/hr\n", +"printf('\t Liqour to 1B\n\t = %.0f lb/hr\n',ltob);\n", +"hia1=dif*929*0.97;//Btu/hr\n", +"printf('\t1B.Heat in steam........%.2e\n',hia1);\n", +"hla1=ltob*(tt1-tt1)*0.91;//Btu/hr\n", +"hh1=hia1;//Btu/hr\n", +"dif1=hh1/lb1;//lb/hr\n", +"printf('\t Heating liquor........%.0f\n\t\t\t\t%.3e\t%.0f\n',hla1,hh1,dif1);\n", +"dif2=ltob-dif1;//lb/hr\n", +"printf('\t Liqour to 2d \n\t effect=%.0f lb/hr\n',dif2);\n", +"//Similarily the values in the table are calculated\n", +"\n", +"printf('\t\t\t\t\t\t\t\tLb/hr\n');\n", +"aa=179400;//lb/hr\n", +"bb=145500;//lb/hr\n", +"cc=19700;//lb/hr\n", +"dd=30600;//lb/hr\n", +"ee=17900;//lb/hr\n", +"ff=13100;//lb/hr\n", +"tto=aa+bb+cc+dd+ee+ff;//lb/hr\n", +"printf('\t(a) Actual evaporation..................................%.0f\n',aa);\n", +"printf('\t(b) Equivalent evaporation from vapors of \n\t 1st effect used for vaccum pans.....................%.0f\n',bb);\n", +"printf('\t(c) Equivalent evaporation from 1st effect \n\t vapors used for clarified-juice heaters.............%.0f\n',cc);\n", +"printf('\t(d) Equivalent evaporation from 2d effect \n\t vapors used for clarified-and raw-juice heaters.....%.0f\n',dd);\n", +"printf('\t(e) Equivalent evaporation from 3d effect \n\t vapors used for raw-juice heaters...................%.0f\n',ee)\n", +"printf('\t(f) Equivalent evaporation from 4th effect \n\t vapors used for raw-juice heaters...................%.0f\n',ff);\n", +"printf('\t -----\n')\n", +"printf('\t Extrapolated evaporation...........................%.0f\n',tto);\n", +"esq=tto/5;//lb/hr\n", +"printf('\t\tEstimated steam quantity = %.0f lb/hr\n',esq);\n", +"aesq=80600;//lb/hr\n", +"err = esq-aesq;//lb/hr\n", +"printf('\t\tActual steam required from final heat balance = %.0f lb/hr\n',aesq);\n", +"printf('\t\t\t\t\t\t\tError = %.0f lb/hr\n',err);\n", +"ta=15;\n", +"Q=14575000; //Btu/hr Total hourly evaporation\n", +"Gpm=Q/(500*(t2-tp4-ta));//From equation 14.4\n", +"printf('\tGallons per minute of Water required = %.0f gpm',Gpm);" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 14.5: unit_calculation.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\texample 14.5\n');\n", +"printf('\tapproximate values are mentioned in the book \n');\n", +"st1=280; //°F\n", +"vt6=125; //°F\n", +"odT=st1-vt6; //°F\n", +"printf('\tOverall temperature difference = %.0f °F\n',odT); //corresponding to 35 psig and 26 in. Hg\n", +"bpr(1)=10; //°F\n", +"bpr(2)=8; //°F\n", +"bpr(3)=7; //°F\n", +"bpr(4)=6; //°F\n", +"bpr(5)=5; //°F\n", +"bpr(6)=5; //°F\n", +"i=1;\n", +"tbpr=0;\n", +"while(i<7)\n", +" tbpr=tbpr+bpr(i);\n", +" i=i+1;\n", +"end\n", +"printf('\tThe estimated total BPR = %.0f °F\n',tbpr); //from fig. 14.36a\n", +"edT=odT-tbpr;\n", +"printf('\tEffective temperature difference = %.0f °F\n',edT);\n", +"printf('\n\t\t\t\tEVAPORATOR SUMMARY\n\tAll bodies will consist of 300 2 in. OD, 10 BWG tubes 24 long\n');\n", +"printf('\t------------------------------------------------------------------------------------------------------------------------------\n');\n", +"printf('\tItem\t\t\t\t\t\t\t\t\tEffects\n\t\t\t\t\t----------------------------------------------------------------------------------------------\n\t\t\t\t\t1A\t\t1B\t\t2\t\t3\t\t4\t\t5\n');\n", +"printf('\t------------------------------------------------------------------------------------------------------------------------------\n');\n", +"printf('\t1.Steam flow, lb/hr\t\t20000\n\t2.Steam pressure, psi/in.Hg\t35\t\t14.5\t\t4\t\t7\t\t16.5\t\t22\n\t3.Steam temp,°F\t\t\t280\t\t249\t\t224\t\t199\t\t174\t\t151\n\t4.delT,°F\t\t\t21\t\t17\t\t18\t\t19\t\t18\t\t21\n\t5.Liquor temp, °F\t\t259\t\t232\t\t206\t\t180\t\t156\t\t130\n\t6.BPR, °F\t\t\t10\t\t8\t\t7\t\t6\t\t5\t\t5\n\t7.Vapor temp, °F\t\t259\t\t232\t\t206\t\t180\t\t156\t\t130\n\t8.Vapor pressure, pis/in.Hg\t14.5\t\t4\t\t7\t\t6\t\t5\t\t5\n\t9.Lambda, Btu/lb\t\t946\t\t962\t\t978\t\t994\t\t1008\t\t1022\n\t10.Liquor in, lb/hr\t\t73400\t\t88300\t\t101000\t\t113000\t\t72000\t\t72000\n\t11.Liqour out, lb/hr\t\t56200\t\t73400\t\t88300\t\t101100\t\t58300\t\t54700\n\t12.Evaporation,lb/hr\t\t17200\t\t14900\t\t12800\t\t11900\t\t13700\t\t17300\n\t13.Total solids, \t\t38.9\t\t29.8\t\t24.7\t\t21.6\t\t18.7\t\t20.0\n\t14.A,ft^2\t\t\t3250\t\t3250\t\t3250\t\t3250\t\t3250\t\t3250\n\t15.UD,Btu/(hr)*(ft^2)*(°F)\t262\t\t295\t\t252\t\t251\t\t221\t\t221\n\t16.UD delT,Btu/(hr)*(ft^2)\t5510\t\t5000\t\t4530t\t\t4770\t\t3980\t\t4650\n');//BPR values from fig 14.36a\n", +"//Specific-heat data are given in Fig. 14.36b\n", +"ev(1)=17200; //lb/hr\n", +"ev(2)=14900; //lb/hr\n", +"ev(3)=12800; //lb/hr\n", +"ev(4)=11900; //lb/hr\n", +"ev(5)=13700; //lb/hr\n", +"ev(6)=17300; //lb/hr\n", +"i=1;\n", +"tev =0;\n", +"while(i<7)\n", +" tev = tev+ev(i);\n", +" i=i+1;\n", +"end\n", +"printf('\n\tTotal amount of water evaporated = %.0f lb/hr\n',tev);\n", +"ttev=tev/6;//lb/hr\n", +"printf('\tTheoretical amount of steam for a six-effect evaporator = %.0f lb/hr\n',ttev);\n", +"tev2=tev/(6*0.75); //lb/hr . order of 75 percent of theoretical\n", +"printf('\tSteam used for trail balance = %.0f lb/hr\n',tev2);\n", +"lq=(tev/6);\n", +"lq=lq+(lq*0.15);\n", +"printf('\tEstimate of the amount of evaporation in the first effect = %.0f lb/hr\n',lq);\n", +"lout6=54000;//lb/hr\n", +"lq2=lout6+lq+2200;//lb/hr\n", +"printf('\tEstimated discharge from second effect = %.0f lb/hr\n',lq2);\n", +"printf('\n\t\t\t\tHEAT BALANCE\n');\n", +"cw = 17750000/(500*(125-15-60)); //gpm, values from table 14.6\n", +"printf('\t\tCooling water at 60 °F = %.0f gpm\n',cw);\n", +"printf('\t--------------------------------------------------------\n');\n", +"printf('\tEffect\t\t\tBtu/hr\t\tEvaporation,l/hr\n');\n", +"printf('\t--------------------------------------------------------\n');\n", +"sf=20000;//lb/hr\n", +"lqi=73400;//lb/hr\n", +"lqi2=88300\n", +"lt1=259;//°F\n", +"lt2=232;//°F\n", +"lt3=206;//°F\n", +"ev=17200;//lb/hr\n", +"his=sf*924*0.97;//Btu/hr\n", +"printf('\t1.a.Heat in steam \t%.2e\n',his);\n", +"hl=lqi*(lt1-lt2)*0.82;//Btu/hr\n", +"printf('\t b.Heating liquor \t%.2e\n',hl);\n", +"hh=his-hl;\n", +"ev1=(hh)/946;//lb/hr\n", +"printf('\t c.Evaporation\t\t\t\t%.0f\n',ev1);\n", +"dif=lqi-ev1;\n", +"tft=(dif)*(lt1-209)*0.78;\n", +"printf('\t d.To flash tank\t%.1e',tft);\n", +"ev2=tft/978;//lb/hr\n", +"printf('\t\t%.0f\n',ev2);\n", +"printf('\t e.Flashed vapor=%.0f\n',ev2);\n", +"p=dif-ev2;\n", +"printf('\t f.product %.1e\n',p);\n", +"printf('\n\t2.a.Heat in 1st vapors\t%.3e\n',hh);\n", +"hl2=lqi2*(lt2-lt3)*0.85;\n", +"printf('\t b.Heating liqour\t%.2e\n',hl2);\n", +"ev3=(hh-hl2)/962;\n", +"printf('\t c.Evaporation=%.0f',ev3);\n", +"\n", +"printf('\t\t\t%.0f\n',ev3);\n", +"lto1=lqi2-ev3;\n", +"printf('\t d.Liquor to 1b=%.0f\n',lto1);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 14.6: Evoparator_specificatio.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\texample 14.6\n');\n", +"printf('\tapproximate values are mentioned in the book \n');\n", +"st1=274; //°F\n", +"vt6=115; //°F\n", +"odT=st1-vt6; //°F\n", +"printf('\tTotal temperature difference = %.0f °F\n',odT); //corresponding to 35 psig\n", +"eb1=77;//°F, From fig.14.38\n", +"eb2=26;//°F, From fig.14.38\n", +"etd=odT-(eb1+eb2);//°F\n", +"printf('\tThe effective temperature difference is %.0f °F\n',etd);\n", +"printf('\n\t\t\tCAUSTIC EVAPORATOR MATERIAL BALANCE\n');\n", +"//Basis: 1 ton/hr NaOH\n", +"printf('\tCell liquour at 120°F \t\tWash at 80°F\n');\n", +"printf('\t---------------------------------------------\n');\n", +"l1=2000;//Lb\n", +"l2=3800;//Lb\n", +"l3=17050;//Lb\n", +"lq=l1+l2+l3;//Lb\n", +"w1=340;//Lb\n", +"w2=1020;//Lb\n", +"w=w1+w2;//Lb\n", +"printf('\t8.75 prcnt NaOH = %.0f\n\t16.6 prcnt NaCl = %.0f\t\t25 prcnt NaCl = %.0f\n',l1,l2,w1);\n", +"printf('\t74.65 prcnt H20 = %.0f\t\t75 prcnt H20 = %.0f\n',l3,w2);\n", +"printf('\tTotal cell liquor = %.0f\tTotoal wash = %.0f\n',lq,w);\n", +"printf('\n\t-------------------------------------------------------------------------\n');\n", +"printf('\t\t\t\tNaOH\t\tNaCl\t\tH20,Lb\tTotal,Lb\n\t\t\t\tprcnt\tLb\tprcnt\tLb\n');\n", +"printf('\t-------------------------------------------------------------------------\n');\n", +"printf('\tOverall operation:\n\t Cell liquor.......... 8.75\t'+string(l1)+'\t16.60\t'+string(l2)+'\t'+string(l3)+'\t'+string(lq)+'\n');\n", +"printf('\t Wash................. ....\t....\t25.00\t'+string(w1)+'\t'+string(w2)+'\t'+string(w)+'\n');\n", +"wl1=l2+w1;//Lb\n", +"wl2=l3+w2;//Lb\n", +"wlt=lq+w;\n", +"printf('\t Total in............. ....\t'+string(l1)+'\t....\t'+string(wl1)+'\t'+string(wl2)+'\t'+string(wlt)+'\n');\n", +"prn=110;//Lb\n", +"prh=1890;//Lb\n", +"prt=4000;//Lb\n", +"printf('\t Product.............. 50.00\t'+string(l1)+'\t2.75\t'+string(prn)+'\t'+string(prh)+'\t'+string(prt)+'\n');\n", +"r1=wl1-prn;//Lb\n", +"r2=wl2-prh;//Lb\n", +"r3=wlt-prt;//Lb\n", +"gain=3200;//gpm\n", +"printf('\t Removed.............. ....\t....\t....\t%.0f\t%.0f\t%.0f\n',r1,r2,r3);\n", +"//Rest of the table is calculated similarily\n", +"printf('\n\t\t\t\t\tCAUSTIC EVAPORATOR SUMMARY\n');\n", +"printf('\t------------------------------------------------------------------------------------\n');\n", +"printf('\tItem\t\t\t\t\tEffects\nt\t\t\t\t\t--------------------\t\tFlash Tank\n\t\t\t\t\t\I\t\tII\n');\n", +"printf('\t------------------------------------------------------------------------------------\n');\n", +"printf('\t1.Steam pressure, psi/in.Hg\t30\n\t2.Steam temperature,°F\t\t274\t\t169\n\t3.delT,°F\t\t\t28\t\t28\n\t4.Liquor temperature, °F\t246\t\t141\t\t192\n\t5.BPR, °F\t\t\t77\t\t26\t\t77\n\t6.Vapor temperature, °F\t\t169\t\t115\t\t115\n\t7.Lambda, Btu/lb\t\t997\t\t1027\t\t1027\n\t8.Feed, lb/hr\t\t\t22788\t\t50602\t\t13367\n\t9.Product, lb/hr\t\t13367\t\t40352\t\t12813\n\t10.Evaporation,lb/hr\t\t9421\t\t10250\t\t554\n\t11.Heat flow, Btu/hr\t\t11890000\t11020000\n\t12.UD,Btu/((hr)*(ft^2)*(°F))\t700\n\t13.A,ft^2\t\t\t683\t\t683\n\t14.Tubes, OD, in. and BWG\t1,16\t\t1,16\n\t15.Tube length, ft\t\t7\t\t7\n\t16.No. tubes\t\t\t432\t\t432\n\t17.Circulating pump. gpm\t3200 at 20 ft\t3200 at 20ft\t167 at 45 ft\n\t18.Apparent efficiency, prcnt\t54\t\t64\n\t18.BHP\t\t\t\t38\t\t35\t\t8.2\n\t20.Motor,hp\t\t\t40\t\t40\t\t10.0\n');\n", +"printf('\t------------------------------------------------------------------------------------\n');\n", +"V=8;\n", +"s=1.5;\n", +"G=V*s*62.5*3600;//lb/((hr)*(ft^2))\n", +"printf('\tG = V(s*62.5*3600) = %.1e lb/((hr)*(ft^2))\n',G);\n", +"UD=700;//Btu/((hr)*(ft^2)*(°F))\n", +"//Combining with a steam film coefficient of approximately 1500\n", +"printf('\tUC or UD = %.0f Btu/((hr)*(ft^2)*(°F))\n',UD);\n", +"printf('\n\t-------------------------------------------------------------------------------------');\n", +"printf('\n\ttx,°F\tw,lb/hr\t\tdelT\tUC\tA,ft^2\tat,flow area\tGcalc\t\tUcalc\n\t\t\t\t\t\t\tper pass, ft^2\n');\n", +"printf('\t-------------------------------------------------------------------------------------\n');\n", +"printf('\t251\t2970000\t\t25.4\t700\t670\t0.87\t\t3420000\n\t252\t2480000\t\t25.0\t700\t680\t0.88\t\t2820000\n\t252.5\t2290000\t\t24.7\t700\t685\t0.89\t\t2570000\t\t700\n\t253\t2120000\t\t24.5\t700\t695\t0.90\t\t2520000\n');\n", +"printf('\tThee gain per minute is %.0f gpm\n',gain);\n", +"printf('\n\t\t\t\tCAUSTIC EVAPORATION HEAT BALANCE\n');\n", +"printf('\t\t\t\t(Basis = 1ton/hr NaOH)\n');\n", +"printf('\t-------------------------------------------------------------------------------------\n');\n", +"printf('\t\tEFFECT\t\t\tBtu/hr\t\tEvaopration, lb/hr\n');\n", +"hi=10500*930*0.974;//Btu/hr\n", +"hl=18230*(246-150)*0.83;//Btu/hr\n", +"rh=hi-hl;//Btu/hr\n", +"hc=300000;//Btu/hr\n", +"hv=rh-hc;//Btu/hr\n", +"evv=hv/997;//lb/hr\n", +"printf('\t1.a.Heat in steam\t\t%.1e\n\t b.Heating liquor\t\t%.2e\n\t c.Resultant heat\t\t%.2ef\n\t d.Heat of concentrate\t\t%.0e\n\t e.Heat of vapors\t\t%.2e\t%.0f\n',hi,hl,rh,hc,hv,evv);\n", +"s1=1.35;\n", +"G1=V*s1*62.5*3600;//lb/((hr)*(ft^2))\n", +"printf('\n\tG = V(s*62.5*3600) = %.2e lb/((hr)*(ft^2))\n',G1);\n", +"UD1=700;//Btu/((hr)*(ft^2)*(°F))\n", +"//Using thermal characteristics for this solution\n", +"printf('\tUD = %.0f Btu/((hr)*(ft^2)*(°F))\n',UD1);\n", +"//As for effect I:\n", +"printf('\n\t-------------------------------------------------------------------------------------');\n", +"printf('\n\ttx,°F\tw,lb/hr\t\tdelT\tUC\tA,ft^2\tat,flow area\tGcalc\t\tUcalc\n\t\t\t\t\t\t\tper pass, ft^2\n');\n", +"printf('\t-------------------------------------------------------------------------------------\n');\n", +"printf('\t146\t2400000\t\t25.4\t700\t620\t0.80\t\t2790000\t\t700\n\t146.5\t2160000\t\t25.2\t700\t683\t0.89\t\t2430000\n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 14.7: heat_and_steam.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\texample 14.7\n');\n", +"printf('\tapproximate values are mentioned in the book \n');\n", +"M2=14300;//From fig.14.43 and heat balance above\n", +"M1=32200-14300;//From fig.14.43 and heat balance above\n", +"printf('\tM1 = %.0f lb\n',M1);\n", +"printf('\n\t\t\t\tEVAPORATOR SUMMARY\n');\n", +"printf('\t------------------------------------------------------------------------------------------------------------------------------\n');\n", +"printf('\tEffects\t\t\t\t\tStraight triple effect\t\t\t\tThermocompression\nt\t\t\t\t\t----------------------------------------------------------------------------------------------\n\t\t\t\t\t1\t\t2\t\t3\t\t1\t\t2\t\t3\n');\n", +"printf('\t------------------------------------------------------------------------------------------------------------------------------\n');\n", +"printf('\tSteam flow, lb/hr\t\t22400\t\t\t\t\t\t17900\n\tSteam pressure, psi in.Hg\t20\t\t9\t\t2\t\t20\t\t9\t\t2\n\tSteam temp,°F\t\t\t258\t\t237\t\t217\t\t258\t\t237\t\t217\n\ttdelT,°F\t\t\t20\t\t18\t\t22\t\t20\t\t18\t\t22\n\tLiquor temp, °F\t\t\t238\t\t219\t\t195\t\t238\t\t219\t\t195\n\tBPR, °F\t\t\t\t1\t\t2\t\t3\t\t1\t\t2\t\t3\n\tVapor temp, °F\t\t\t237\t\t217\t\t192\t\t237\t\t215\t\t192\n\tVapor pressure, pis/in.Hg\t9\t\t2\t\t10\t\t9\t\t2\t\t10\n\tLambda, Btu/lb\t\t\t954\t\t965\t\t983\t\t954\t\t965\t\t983\n\tLiquor in, lb/hr\t\t100000\t\t79400\t\t56900\t\t109000\t\t70000\t\t52400\n\tLiqour out, lb/hr\t\t79400\t\t56900\t\t33300\t\t70000\t\t52400\t\t33300\n\tEvaporation,lb/hr\t\t20600\t\t22500\t\t23500\t\t30000\t\t17600\t\t19100\n\t°Brix(out)\t\t\t\t\t\t\t\t\t\t\t\t\t30\n\tCondenser water, gpm\t\t\t\t455\t\t\t\t\t\t365\n');\n", +"printf('\n\t\t\t\tHEAT BALANCE-STRAIGHT TRIPLE EFFECT\n\t\t\t\tCondenser water = 455 gpm\n');\n", +"printf('\t--------------------------------------------------------\n');\n", +"printf('\tEffect\t\t\tBtu/hr\t\tEvaporation,l/hr\n');\n", +"printf('\t--------------------------------------------------------\n');\n", +"sf=22400;//lb/hr\n", +"lc=100000;//lb/hr\n", +"t1=238;//°F\n", +"t2=230;//°F\n", +"his=sf*940*0.97;//Btu/hr\n", +"hlq=lc*(t1-t2)*0.92;//Btu/hr\n", +"hd=his-hlq;//Btu/hr\n", +"eva=(hd)/954;//lb/hr\n", +"l2d=lc-eva;\n", +"printf('\t1.a.Heat in steam\t%.2e\n\t b.Heating liquor\t%.2e\n\t c.Evaporation\t\t%.4e/954\t%.0f\n\t d.Liquor to 2d = %.0f',his,hlq,hd,eva,l2d);\n", +"//end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/15-Vaporizers_Evoparators_and_Reboilers.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/15-Vaporizers_Evoparators_and_Reboilers.ipynb new file mode 100644 index 0000000..68b3242 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/15-Vaporizers_Evoparators_and_Reboilers.ipynb @@ -0,0 +1,972 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 15: Vaporizers Evoparators and Reboilers" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.1: Calculation_of_the_Average_Specific_Volume.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"ts=250;\n", +"T1=400;\n", +"T2=300;\n", +"w=10000; // lb/hr\n", +"W=150000; // lb/hr\n", +"l=945.3; // Btu/(lb) , table 7\n", +"Q=((w)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Q);\n", +"C=0.63; // Btu/(lb)*(F)\n", +"Q=((W)*(C)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for kerosene is : %.2e Btu/hr \n',Q); \n", +"delt1=T2-ts; //F\n", +"delt2=T1-ts; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"UD=100;\n", +"A=(Q/(UD*LMTD));\n", +"printf('\t A : %.2e ft^2 \n',A);\n", +"WC=94500; // Btu/F\n", +"vl=0.017; // ft^3/lb, from table 7\n", +"vv=13.75; // ft^3/lb, from table 7\n", +"printf('\t By the law of mixtures \n');\n", +"// Assume 80 per cent of the outlet fluid is vapor\n", +"v2=(0.8*vv)+(.2*vl);\n", +"printf('\t v2 : %.0f ft^3/lb \n',v2);\n", +"vav=(WC*(v2-vl)/(UD*A))-((WC*(T2-ts)/(l*w))*(vv-vl))+vl;\n", +"printf('\t vav : %.2f ft^3/lb \n',vav);\n", +"printf('\t By the approximate method \n');\n", +"vav1=(vl+v2)/(2);\n", +"printf('\t vav : %.2f ft^3/lb \n',vav1);\n", +"row=62.5;\n", +"rowac=(1/vav);\n", +"s=(rowac/row);\n", +"printf('\t actual density : %.3f lb/ft^3 \n',rowac);\n", +"printf('\t s : %.4f \n',s);\n", +"rowap=(1/vav1);\n", +"s=(rowap/row);\n", +"printf('\t approximate density : %.3f lb/ft^3 \n',rowac);\n", +"printf('\t s : %.4f \n',s);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.2: Vaporizer_or_Pump_through_Reboiler_with_Isothermal_Boiling.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"t1=108; // inlet cold fluid,F\n", +"t2=235; // outlet cold fluid,F\n", +"Ts=338;\n", +"Wp=24700; // lb/hr\n", +"Wv=19750; // lb/hr\n", +"w=4880; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"Ht1=162; // enthalpy at t1, Btu/lb, fig 9\n", +"Ht2=248; // enthalpy at t2, Btu/lb, fig 9\n", +"qp=(Wp*(Ht2-Ht1)); // for preheat\n", +"printf('\t total heat required for preheat of butane is : %.2e Btu/hr \n',qp);\n", +"Ht3=358; // enthalpy of vapour at t2, Btu/lb, fig 9\n", +"qv=Wv*(Ht3-Ht2);\n", +"printf('\t total heat required for vapourisation of butane is : %.2e Btu/hr \n',qv);\n", +"Q=qp+qv;\n", +"printf('\t total heat required for butane is : %.2e Btu/hr \n',Q);\n", +"printf('\t for steam \n');\n", +"l=880.6; // Btu/(lb), table 7\n", +"Q=((w)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Q);\n", +"deltp=158.5; // F, from eq 5.14\n", +"deltv=103; // F eq 5.14\n", +"Wp1=(qp/deltp);\n", +"printf('\t Wp1 is : %.2e lb/hr \n',Wp1);\n", +"Wv1=(qv/deltv);\n", +"printf('\t Wv1 is : %.2e lb/hr \n',Wv1);\n", +"W=(Wp1+Wv1);\n", +"printf('\t W is : %.2e lb/hr \n',W);\n", +"delt=(Q/W);\n", +"printf('\t weighted delt is : % .1f F \n',delt);\n", +"Tc=((Ts)+(Ts))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"printf('\t hot fluid:inner tube side,steam \n');\n", +"Nt=76;\n", +"n=2; // number of passes\n", +"L=16; //ft\n", +"at1=0.594; // flow area,table 10, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu1=0.0363; // at 338F, fig 15,lb/(ft)*(hr)\n", +"D=0.0725; // ft\n", +"Ret=((D)*(Gt)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Ret);\n", +"hio=1500; // condensing steam,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hio is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"printf('\t cold fluid:shell side,butane \n');\n", +"printf('\t preheating \n');\n", +"ID=15.25; // in\n", +"C=0.25; // clearance\n", +"B=5; // baffle spacing,in\n", +"PT=1.25;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(Wp/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu2=0.278; // at 172F,lb/(ft)*(hr), from fig.14\n", +"De=0.0825; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=159; // from fig.28\n", +"Z=0.12; // Z=k*((c)*(mu1)/k)^(1/3), fig 16\n", +"hop=((jH)*(1/De)*(Z)); //using eq.6.15b,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',hop);\n", +"Up=((hio)*(hop)/(hio+hop)); // clean overall coefficient,eq 6.38,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient for preheating : %.0e Btu/(hr)*(ft^2)*(F) \n',Up);\n", +"Ap=(qp/(Up*deltp));\n", +"printf('\t clean surface required for preheating : %.0f ft^2 \n',Ap);\n", +"printf('\t for vapourisation \n');\n", +"mu2=0.242; // at 172F,lb/(ft)*(hr), from fig.14\n", +"Res=((De)*(Gs)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=170; // from fig.28\n", +"Z=0.115; // Z=k*((c)*(mu1)/k)^(1/3), fig 16\n", +"hov=((jH)*(1/De)*(Z)); //using eq.6.15b,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',hov);\n", +"Uv=((hio)*(hov)/(hio+hov)); // clean overall coefficient,eq 6.38,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient for vapourisation : %.0f Btu/(hr)*(ft^2)*(F) \n',Uv);\n", +"Av=(qv/(Uv*deltv));\n", +"printf('\t clean surface required for vapourisation : %.0f ft^2 \n',Av);\n", +"Ac=Ap+Av;\n", +"printf('\t total clean surface : %.1e ft^2 \n',Ac);\n", +"UC=((Up*Ap)+(Uv*Av))/(Ac);\n", +"printf('\t weighted clean overall coefficient : %.0f Btu/(hr)*(ft^2)*(F) \n',UC);\n", +"A2=0.2618; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"// A total of 170 ft2 are required of which 103 are to be used for vaporization. For the total surface required 318 ft2 will be provided. It can be assumed, then, that the surface provided for vaporization is 193ft^2\n", +"// then flux is Q/A=10700, which is with in satisfactory levels.\n", +"Rd=((UC-UD)/((UD)*(UC))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000165; // friction factor for reynolds number 62000, using fig.26\n", +"s=0.00413;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt)))/(2); // using eq.7.45,psi\n", +"printf('\t delPt is : %.2f psi \n',delPt);\n", +"printf('\t allowable delPa is negligible \n');\n", +"printf('\t pressure drop for annulus \n');\n", +"printf('\t preheating \n');\n", +"f=0.00145; // friction factor for reynolds number 69200, using fig.29\n", +"Lp=(L*Ap/Ac); //ft\n", +"printf('\t length of preheat zone : %.1f ft \n',Lp);\n", +"N=(12*Lp/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"s=0.5; // for reynolds number 69200,using fig.6\n", +"Ds=1.27; // fig 28\n", +"phys=1;\n", +"delPsp=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPsp is : %.1f psi \n',delPsp);\n", +"printf('\t vapourisation \n');\n", +"f=0.00142;\n", +"Lv=9.7; // Lv=L-Lp\n", +"Nv=(12*Lv/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',Nv);\n", +"s=0.28; \n", +"delPsv=((f*(Gs^2)*(Ds)*(Nv))/(5.22*(10^10)*(De)*(s)*(1))); // using eq 12.47,psi\n", +"printf('\t delPsv is : %.1f psi \n',delPsv);\n", +"delPS=delPsp+delPsv;\n", +"printf('\t delPS is : %.1f psi \n',delPS);\n", +"printf('\t allowable delPa is 5 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.3: Calculation_of_a_Kettle_Reboiler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"ts=400;\n", +"T1=575;\n", +"T2=475;\n", +"W=28100; // lb/hr\n", +"w=34700; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"HT1=290; // enthalpy at T1, Btu/lb, fig 11\n", +"HT2=385; // enthalpy at T2, Btu/lb, fig 11\n", +"Q=(W*(HT2-HT1)); // for preheat\n", +"printf('\t total heat required for gasoline is : %.2e Btu/hr \n',Q);\n", +"c=0.77; // Btu/(lb), table 7\n", +"Q=((w)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for gasoil is : %.2e Btu/hr \n',Q);\n", +"delt=118; // F eq 5.14\n", +"S=((T2-ts)/(T1-ts));\n", +"printf('\t S is : %.3f \n',S);\n", +"Kc=0.37; // fig 17\n", +"Fc=0.42;\n", +"Tc=(T2+(0.42*(T1-T2)));\n", +"printf('\t Tc is : %.0f F \n',Tc);\n", +"printf('\t hot fluid:inner tube side,gasoil \n');\n", +"Nt=68;\n", +"n=6; // number of passes\n", +"L=12; //ft\n", +"at1=0.546; // flow area,table 10, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu1=0.65; // at 517F, fig 14,lb/(ft)*(hr)\n", +"D=0.0694; // ft\n", +"Ret=((D)*(Gt)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=220; // from fig.24\n", +"Z=0.118; // Z=k*((c)*(mu1)/k)^(1/3), fig 16\n", +"Hi=((jH)*(1/D)*(Z)); //hi/phyt, Hi=()using eq.6.15d,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"Hio=((Hi)*(0.834/1)); //Hio=(hio/phyp), using eq.6.9\n", +"printf('\t Correct Hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"// (mu1/muw)^(0.14) is negligible\n", +"printf('\t cold fluid:shell side,gasoline \n');\n", +"ho=300; // assumption\n", +"tw=(ts)+(((Hio)/(Hio+ho))*(Tc-ts)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"deltw=(tw-ts);\n", +"printf('\t deltw : %.0f F \n',deltw);\n", +"// from fig 15.11, ho>300\n", +"Uc=((Hio)*(ho)/(Hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.2618; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"// check for max. flux=Q/A=12500.(satisfactory)\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00015; // friction factor for reynolds number 85700, using fig.26\n", +"s=0.71;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.09; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPa is 10psi \n');\n", +"printf('\t delPs is negligible \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.4: Calculation_of_a_Once_through_Horizontal_Thermosyphon_Reboiler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.4\n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"t1=315; // inlet cold fluid,F\n", +"t2=335; // outlet cold fluid,F\n", +"T1=525;\n", +"T2=400;\n", +"Wv=29000; // lb/hr\n", +"Ws=38500; // lb/hr\n", +"w=51000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"Ht1=238; // enthalpy at t1, Btu/lb, fig 9\n", +"Ht2=252; // enthalpy at t2, Btu/lb, fig 9\n", +"Ht3=378; // enthalpy of vapour at t2 \n", +"qv=(Wv*(Ht3-Ht2)); // for preheat\n", +"printf('\t qv is : %.2e Btu/hr \n',qv);\n", +"qs=Ws*(Ht2-Ht1);\n", +"printf('\t qs is : %.2e Btu/hr \n',qs);\n", +"Q=qs+qv;\n", +"printf('\t total heat required for naphtha is : %.2e Btu/hr \n',Q);\n", +"c=0.66; // Btu/(lb)(F)\n", +"Q=((w)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for gasoil is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.2f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.97 \n'); // from fig 18\n", +"delt=(0.97*LMTD); // F\n", +"printf('\t delt is : %.0f F \n',delt);\n", +"X=((delt1)/(delt2)); // fig 17\n", +"printf('\t ratio of two local temperature difference is : %.3f \n',X);\n", +"Fc=0.41; // from fig.17\n", +"Kc=0.42;\n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:inner tube side,steam \n');\n", +"Nt=116;\n", +"n=8; // number of passes\n", +"L=12; //ft\n", +"at1=0.546; // flow area,table 10, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu1=1.09; // at 451F, fig 14,lb/(ft)*(hr)\n", +"D=0.0695; // ft\n", +"Ret=((D)*(Gt)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=168; // from fig.24\n", +"Z=0.142; // Z=k*((c)*(mu1)/k)^(1/3), fig 16\n", +"Hi=((jH)*(1/D)*(Z)); //, Hi=(hi/phyt)using eq.6.15d,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"Hio=((Hi)*(0.834/1)); //Hio=(hio/phyp), using eq.6.9\n", +"printf('\t Correct Hio to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"printf('\t cold fluid:shell side,naphtha \n');\n", +"ho1=200; // assumption\n", +"tw=(tc)+(((Hio)/(Hio+ho1))*(Tc-tc)); // from eq.5.31, calculation mistake\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"deltw=(tw-tc);\n", +"printf('\t deltw : %.0f F \n',deltw);\n", +"// from fig 15.11, hv>300, hs=60\n", +"Av=(qv/300);\n", +"As=qs/60;\n", +"printf('\t qv/hv : %.3e \n',Av);\n", +"printf('\t qs/hs : %.0e \n',As);\n", +"A1=As+Av;\n", +"printf('\t A : %.3e \n',A1);\n", +"ho=(Q/A1);\n", +"printf('\t ho : %.0f \n',ho);\n", +"Uc=((Hio)*(ho)/(Hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.2618; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"// check for max. flux=Q/A=11500.(satisfactory)\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000168; // friction factor for reynolds number 59200, using fig.26\n", +"s=0.73;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.11; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPa is negligible \n');\n", +"printf('\t pressure drop for annulus \n');\n", +"Af=(3.14*(21.25^2-(116))/8);\n", +"printf('\t flow area : %.0f in^2 \n',Af);\n", +"as=0.917; // ft^2\n", +"p=(3.14*21.25/2)+(3.14*1*116/2)+(21.25);\n", +"printf('\t wetted perimeter : %.1f in \n',p);\n", +"De=0.186; // ft\n", +"Gs=(Ws/(2*as)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gs);\n", +"mu2=0.435; // at 315F, fig 14,lb/(ft)*(hr)\n", +"Res=((De)*(Gs)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"f=0.00028; // using fig.26\n", +"row=0.337; // fig 13.14\n", +"// soutlet max=0.071,\n", +"s=0.35; // using fig.6\n", +"phys=1;\n", +"delPs=((f*(Gs^2)*(L))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.4f psi \n',delPs);\n", +"printf('\t allowable delPa is .25 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.5: Calculation_of_a_Vertical_Thennosyphon_Reboiler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.5\n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"W=40800; // lb/hr\n", +"w=4570; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"Ht1=241; // enthalpy of liquid at 228F, Btu/lb, fig 9\n", +"Ht2=338; // enthalpy of vapourat 228F, Btu/lb, fig 9\n", +"Q=(W*(Ht2-Ht1));\n", +"printf('\t total heat required for butane is : %.2e Btu/hr \n',Q);\n", +"l=868; // Btu/(lb), table 7\n", +"Q=((w)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Q);\n", +"delt=125; // delt=LMTD, isothermal boiling, eq 5.14\n", +"// Tc and tc: Both streams are isuthermal\n", +"printf('\t trail 1 \n');\n", +"A1=((Q)/((12000))); // Q/A1 =12000, first trial should always be taken for the maximum allowable flux\n", +"printf('\t A1 is : %.1e ft^2 \n',A1);\n", +"a1=0.1963; // ft^2/lin ft\n", +"L=16;\n", +"N1=(A1/(L*a1)); // table 10\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=109; // assuming one tube passes, 13.25-in ID, from table 9\n", +"A2=(N2*L*a1); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(delt)));\n", +"printf('\t correct design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"// Assume 4: 1 recirculation ratio\n", +"rowv=(58/(359*(688/492)*(14.7/290))); // eq 15.18\n", +"printf('\t vapour density : %.2f lb/ft^3 \n',rowv);\n", +"Vv=0.44; \n", +"Vl=0.0372; // fig 6\n", +"W1=4*W;\n", +"printf('\t weight flow of recirculated liquid : %.3e lb/hr \n',W1);\n", +"VL=W1*Vl;\n", +"VV=W*Vv;\n", +"printf('\t volume of liquid : %.2e ft^3 \n',VL);\n", +"printf('\t volume of vapour : %.3e ft^3 \n',VV);\n", +"V=VL+VV;\n", +"printf('\t total volume out of reboiler : %.3e ft^3 \n',V);\n", +"vo=(V/(W1+W));\n", +"printf('\t vo is : %.4f ft^3/lb \n',vo);\n", +"Pl=((2.3*16)/(144*(vo-Vl)))*(log10(vo/Vl));\n", +"printf('\t pressure leg : %.1f psi \n',Pl);\n", +"printf('\t frictional resistance \n');\n", +"Nt=109;\n", +"n=1; // number of passes\n", +"at1=0.302; // flow area,table 10, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=((W1+W)/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu1=0.242; // at 228F, fig 14,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Ret);\n", +"f=0.000127; // using fig.26\n", +"s=0.285;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.2f psi \n',delPt);\n", +"P=Pl+delPt;\n", +"printf('\t total resisitance : %.2f psi \n',P);\n", +"F=(16*0.43*62.5/144);\n", +"printf('\t driving force : %.2f psi \n',F);\n", +"// The resistances are greater than the hydrostatic head can provide; hence the recirculation ratio will be less than 4: 1\n", +"printf('\t trial 2 \n'); // Assume 12'0' tubes and 4:1 recirculation ratio\n", +"A1=((Q)/((12000))); // Q/A1 =12000, first trial should always be taken for the maximum allowable flux\n", +"printf('\t A1 is : %.1e ft^2 \n',A1);\n", +"a1=0.1963; // ft^2/lin ft\n", +"L=12;\n", +"N1=(A1/(L*a1)); // table 10\n", +"printf('\t number of tubes are : %.0f \n',N1);\n", +"N2=151; // assuming one tube passes, 15.25-in ID, from table 9\n", +"A2=(N2*L*a1); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(delt)));\n", +"printf('\t correct design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Pl=((2.3*12)/(144*(vo-Vl)))*(log10(vo/Vl));\n", +"printf('\t pressure leg : %.1f psi \n',Pl);\n", +"printf('\t frictional resistance \n');\n", +"Nt=151;\n", +"n=1; // number of passes\n", +"at1=0.302; // flow area,table 10, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=((W1+W)/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu1=0.242; // at 228F, fig 14,lb/(ft)*(hr)\n", +"D=0.0517; // ft\n", +"Ret=((D)*(Gt)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"f=0.000135; // using fig.26\n", +"s=0.285;\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(12)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.2f psi \n',delPt);\n", +"P=Pl+delPt;\n", +"printf('\t total resisitance : %.2f psi \n',P);\n", +"F=(12*0.43*62.5/144);\n", +"printf('\t driving force : %.2f psi \n',F);\n", +"// Since the driving force is slightly greater than the resistances, a recirculation ratio better than 4:1 is assured.\n", +"printf('\t hot fluid : shell side,steam \n');\n", +"ho=1500; // condensing steam\n", +"printf('\t cold fluid:inner tube side, butane \n');\n", +"jH=330; // from fig.24\n", +"Z=0.115; // Z=k*((c)*(mu1)/k)^(1/3), fig 16\n", +"Hi=((jH)*(1/D)*(Z)); //, Hi=(hi/phyt)using eq.6.15d,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"Hio=((300)*(0.62/0.75)); //Hio=(hio/phyp), using eq.6.9\n", +"printf('\t Correct Hio to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"Uc=((Hio)*(ho)/(Hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"UD=89;\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.6: Calculation_of_the_Reboiler_Duty.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.6\n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"//20000=WD+WB;\n", +"//0.99*WD+(0.05*WB)=(20000*.5);\n", +"// solving above two eq. we get WD and WB\n", +"WD=9570; // lb/hr\n", +"WB=10430; // lb/hr\n", +"HBl=108; // fig 3 and 12\n", +"HDl=85.8; //fig 3 and 12\n", +"HDv=253.8; // fig 3 and 12\n", +"HFl=92; // fig 3 and 12\n", +"l=153; // fig 3 and 12\n", +"QR=((2.54+1)*WD*(HDv))-(2.54*WD*HDl)+(WB*HBl)-(20000*HFl);\n", +"printf('\t total heat duty : %.1e Btu/hr \n',QR);\n", +"Q=QR/153;\n", +"printf('\t total heat duty : %.2e lb/hr \n',Q);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.7: Distillation_of_a_Binary_Mixture.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.7 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"\n", +"//Basis: One hour\n", +"//20000=WD+WB , material balance\n", +"//0.99*WD+(0.05*WB)=(20000*0.5) , Benzene balance\n", +"// solving above two eq. we get WD and WB\n", +"WD=9570; // lb/hr\n", +"WB=10430; // lb/hr\n", +"\n", +"//Compositions and Boiling Points\n", +"//Feed\n", +"l1 = 10000; //Lb/hr , C6H4\n", +"l2 = 10000; //Lb/hr , C7H8\n", +"lb = l1+l2; //Lb/hr\n", +"printf('\ttotal Lb/hr is %.0f\n',lb);\n", +"mo1 = 78.1; //Mol. wt., C6H6\n", +"mo2 = 93.1; //Mol. wt , C7H8\n", +"mh1 = 128.0; //Mol/hr , C6H6\n", +"mh2 = 107.5; //Mol/hr , C7H8\n", +"mh = mh1 + mh2; // Mol/hr\n", +"printf('\ttotal Mol/hr is %.1f\n',mh);\n", +"x1 = mh1/mh;\n", +"printf('\tx1 of C6H6 is %.3f\n',x1);\n", +"x2 = mh2/mh;\n", +"printf('\tx1 of C7H8 is %.3f\n',x2);\n", +"x = x1+x2;\n", +"printf('\tTotal x1 is %.3f\n',x);\n", +"Pp1= 1380; // 214°F\n", +"Pp2=575; // 214°F\n", +"xp1 = x1*Pp1;\n", +"printf('\tx1Pp1 of C6H6 is %.0f\n',xp1);\n", +"xp2 = x2*Pp2;\n", +"printf('\tx1Pp1 of C7H8 is %.0f\n',xp2);\n", +"sxp = xp1 + xp2;\n", +"printf('\tTotal x1Pp1 is %.0f\n',sxp);\n", +"y1 = xp1/sxp;\n", +"printf('\ty1 of C6H6 is %.3f\n',y1);\n", +"y2 = xp2/sxp;\n", +"printf('\ty1 of C7H8 is %.3f\n',y2);\n", +"y = y1+y2;\n", +"printf('\tTotal y1 is %.3f\n',y);\n", +"\n", +"\n", +"w1 = 0.558; //from eq 15.42\n", +"printf('\t(WR`/V =((xD - yF)/.(xD - xF))) = %.3fmol/mol\n',w1);\n", +"wD=1;\n", +"xD = 0.992;\n", +"//V = WR' + WD\n", +"// WR'/V = 0.558\n", +"//Solving, WR' = (WR' * 0.558) + (0.558 * WD)\n", +"Wr = 1.27; // mol reflux/mol distillate\n", +"printf('\tWR` = %.2f (mol reflux)/(mol distillate)\n',Wr);\n", +"Wr1 = Wr * 2; // mol/ mol distillate\n", +"printf('\tAssumed 200 percent of the theoretical minimum reflux as economic\n\tWR = %.2f(mol)/(mil distillate)\n',Wr1);\n", +"in = (wD * xD)/(Wr1 + 1); //intercept for the upper operating line\n", +"printf('\tThe intercept for the upper operating line = %.3f\n',in);\n", +"p = 13; // From fig. 15.23, connecting the corresponding lines\n", +"printf('\tConnecting the corresponding line in Fig. 15.23, plates required: %.0f\n',p);\n", +"fp = 7; // From fig. 15.23, connecting the corresponding lines\n", +"printf('\tFeed plate is %.0fth(from top)\n',fp);\n", +"d=122.5;\n", +"tf = Wr1 * d;\n", +"printf('\tTotal reflux is %.1f\n',tf);\n", +"printf('\t\t\t\t\tHeat balances');\n", +"\n", +"//Heat Balances\n", +"l1 = 33900;\n", +"l2 = 9570;\n", +"l3 = 24330;\n", +"b1 = 253.8;\n", +"b2 = 85.8;\n", +"b3 = 85.8;\n", +"bt1 = b1*l1;\n", +"bt2 = b2*l2;\n", +"bt3 = b3*l3;\n", +"bt4 = 5688000;\n", +"printf('\n\t\t\t\tMol/hr\tMol.wt.\tLb/hr\tTemp,°F\tBtu/lb\tBtu/hr\n\t________________________________________________________________________\n\tHeat balance \n\taround condenser:\n');\n", +"printf('\t Heat in:\n\t Top plate vapor.......433\t87.3\t%.0f\t195\t%.1f\t%.0f\n',l1,b1,bt1);\n", +"printf('\t Heat out:\n\t Distillate............');\n", +"printf('122.5\t78.3\t%.0f\t195\t%.1f\t%.0f\n',l2,b2,bt2);\n", +"printf('\t Reflux................');\n", +"printf('310.5\t78.3\t%.0f\t195\t%.1f\t%.0f\n',l3,b3,bt3);\n", +"printf('\t Condenser duty, by\n\t difference........... ..... .... ...... ..');\n", +"printf('. ..... 5688000\n');\n", +"printf('\t\t\t\t\t\t\t\t\t_______\n\t\t\t\t\t\t\t\t\t8600000\n\n');\n", +"\n", +"lam = 153; // At 246 °F, Btu/hr\n", +"rv = 5800000/153; //Lb/hr\n", +"printf('\tReboiler vapor is %.2e lb/hr\n',rv);\n", +"to = rv + 10430; //Lb/hr\n", +"printf('\tTrapout is %.3e lb/hr\n',to);\n", +"\n", +"printf('\n\t\t\t\tMol/hr\tMol.wt.\tLb/hr\tTemp,°F\tBtu/lb\tBtu/hr\n\t________________________________________________________________________\n');\n", +"printf('\tHeat in:\n\t Trapout...............522\t92.8\t%.0f\t246\t108.0\t5230000\n',to);\n", +"printf('\t Reboiler duty, \n\t by difference....... .... .... ..... ... ..... 5800000\n');\n", +"printf('\t\t\t\t\t\t\t\t\t_______\n\t\t\t\t\t\t\t\t\t11030000\n\n');\n", +"printf('\n\tReboiler requirements are\n');\n", +"printf('\t\tTotal liquid to reboiler\t48330 lb/hr\n\t\tVaporization\t\t\t37900 lb/hr\n\t\tTemperature(nearly isothermal)\t246°F\n\t\tPressure\t\t\t5 psig\n\t\tHeat load\t\t\t5800000 Btu/hr\n')\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 15.8: The_Reboiler_Duty_for_a_Multicomponent_Mixture.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 15.8 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"//Dew point of Overhead\n", +"vc(1) = 6.4; // Mol/hr\n", +"vc(2) = 219.7; //Mol/hr\n", +"vc(3) = 2.3; //Mol/hr\n", +"\n", +"K(1) = 2.8; //at 148°F and 40 psia\n", +"K(2) = 1.01; //at 148°F and 40 psia\n", +"K(3) = 0.34; //at 148°F and 40 psia\n", +"\n", +"i=1;\n", +"while(i<4)\n", +" v(i)=vc(i)/K(i);\n", +" i=i+1;\n", +"end\n", +"\n", +"printf('\n\t\tDEW POINT OF OVERHEAD');\n", +"printf('\n\t\tMol/hr\t\tK(148°F,40 psia)\tV/K\n');\n", +"printf('\t\t--------------------------------------------\n');\n", +"i=1;\n", +"while(i<4)\n", +" printf('\tC'+string(i+3) + '\t%.1f\t\t%.1f\t\t\t%.1f\n',vc(i),K(i),v(i));\n", +" i = i+1\n", +"end\n", +"\n", +"\n", +"bc(1)=4.1; //Mol/hr\n", +"bc(2)=49.3; //Mol/hr\n", +"bc(3)=71.9; //Mol/hr\n", +"bc(4)=52.5; //Mol/hr\n", +"bc(5)=54.7; //Mol/hr\n", +"bc(6)=82.5; //Mol/hr\n", +"bc(7)=76.6; //Mol/hr\n", +"bc(8)=22.4; //Mol/hr\n", +"tbc = 0;\n", +"i=1;\n", +"while(i<9)\n", +" tbc = tbc+bc(i);\n", +" i=i+1;\n", +"end\n", +"\n", +"bK(1)=5.8; //at 330°F, 40 psia\n", +"bK(2)=3.0; //at 330°F, 40 psia\n", +"bK(3)=1.68; //at 330°F, 40 psia\n", +"bK(4)=0.98; //at 330°F, 40 psia\n", +"bK(5)=0.57; //at 330°F, 40 psia\n", +"bK(6)=0.35; //at 330°F, 40 psia\n", +"bK(7)=0.21; //at 330°F, 40 psia\n", +"bK(8)=0.13; //at 330°F, 40 psia\n", +"\n", +"KL(1)=23.8;\n", +"KL(2)=148.0;\n", +"KL(3)=120.8;\n", +"KL(4)=51.4;\n", +"KL(5)=31.2;\n", +"KL(6)=28.9;\n", +"KL(7)=16.1;\n", +"KL(8)=2.9;\n", +"tk =0;\n", +"i=1;\n", +"while(i<9)\n", +" tk = tk + KL(i);\n", +" i=i+1;\n", +"end\n", +"\n", +"l(1)=1700; //Lb/hr\n", +"l(2)=13900; //Lb/hr\n", +"l(3)=13030; //Lb/hr\n", +"l(4)=6260; //Lb/hr\n", +"l(5)=4240; //Lb/hr\n", +"l(6)=4330; //Lb/hr\n", +"l(7)=2640; //Lb/hr\n", +"l(8)=520; //Lb/hr\n", +"\n", +"tl=0;\n", +"i=1;\n", +"while(i<9)\n", +" tl = tl+l(i);\n", +" i=i+1;\n", +"end\n", +"\n", +"printf('\n\t\tBUBBLE POINTS OF BOTTOMS\n');\n", +"printf('\t\tMol/hr\t\tK(330°F,40psia)\t\tKL\t\tLb/hr\n');\n", +"printf('\t\t--------------------------------------------------------------\n');\n", +"i=1;\n", +"while(i<9)\n", +" printf('\tC'+string(i+4)+'\t%.1f\t\t%.2f\t\t\t%.1f\t\t%.0f\n',bc(i),bK(i),KL(i),l(i));\n", +" i=i+1;\n", +"end\n", +"printf('\t\t____\t\t\t\t\t____\t\t____\n');\n", +"printf('\t\t%.1f\t\t\t\t\t%.1f\t\t%.0f\n',tbc,tk,tl);\n", +"av = tl/tk;\n", +"printf('\tAverage mol. wt. %.1f\n',av);\n", +"\n", +"lh(1)=48894;//Lb/hr\n", +"lh(2)=16298;//Lb/hr\n", +"lh(3)=32596;//Lb/hr\n", +"bl(1)=286;//Btu/hr\n", +"bl(2)=129;//Btu/hr\n", +"bl(3)=129;//Btu/hr\n", +"i=1;\n", +"while(i<4)\n", +" bh(i)=lh(i)*bl(i); //Btu/hr\n", +" i=i+1;\n", +"end\n", +"\n", +"//Heat Balances\n", +"printf('\n\n\t\t\t\t\t\tHEAT BALANCES:');\n", +"printf('\n\t\t\t\tMol/hr\t\tMol.wt.\t\tLb/hr\t\tTemp,°F\t\tBtu/lb\t\tBtu/hr\n\t');\n", +"printf('\t\t\t----------------------------------------------------------------------------------------');\n", +"printf('\n\tHeat Balance onCondeser\n\t Heat in:\n\t Top plate vapor......');\n", +"printf('685.2\t\t71.3\t\t' + string(lh(1)) + '\t\t148\t\t' +string(bl(1)) + '\t\t' + string(bh(1)) + '\n');\n", +"printf('\t Heat out:\n\t Distillate...........');\n", +"printf('228.4\t\t71.3\t\t' + string(lh(2)) + '\t\t124\t\t' +string(bl(2)) + '\t\t' + string(bh(2)) + '\n');\n", +"printf('\t Reflux, (2-1)........');\n", +"printf('456.8\t\t71.3\t\t' + string(lh(3)) + '\t\t129\t\t' +string(bl(3)) + '\t\t' + string(bh(3)) + '\n');\n", +"printf('\t Condenser duty, by\n\t difference......... ');\n", +"printf('.....\t\t.....\t\t.....\t\t.....\t\t......\t\t7680000\n');\n", +"printf('\t\t\t\t\t\t\t\t\t\t\t\t\t\t________\n');\n", +"printf('\t\t\t\t\t\t\t\t\t\t\t\t\t\t'+string(bh(1))+'\n');\n", +"//Heat Balances on reboiler\n", +"//Assume 30° difference between reboiler and bottom plate giving bottom-plate temperature of 300°F\n", +"//Mol/hr from Eq. 15.47\n", +"rl(1)=78177;//Lb/hr\n", +"rl(2)=22700;//Lb/hr\n", +"rl(3)=55477;//Lb/hr\n", +"rb(1)=234;//Btu/lb\n", +"rb(2)=369;//Btu/lb\n", +"rb(3)=256;//Btu/lb\n", +"\n", +"i=1;\n", +"while(i<4)\n", +" rr(i)=rl(i)*rb(i);//Btu/hr\n", +" i=i+1;\n", +"end\n", +"tt = rr(1)+4280000;// Btu/hr\n", +"printf('\t\t\t\t\t\tHEAT BALANCES on reboiler:');\n", +"printf('\n\tHeat in:\n\t Trapout...............');\n", +"printf('619.7\t\t126.6\t\t'+string(rl(1))+'\t\t300\t\t'+string(rb(1))+'\t\t%.2e\n',rr(1));\n", +"printf('\t Reboiler duty........');\n", +"printf(' .....\t\t.....\t\t......\t\t...\t\t...\t\t4280000\n');\n", +"printf('\t\t\t\t\t\t\t\t\t\t\t\t\t\t________\n');\n", +"printf('\t\t\t\t\t\t\t\t\t\t\t\t\t\t%.3e',tt);\n", +"printf('\n\tHeat out:\n\t Reboiler vapor........');\n", +"printf('205.7\t\t110.3\t\t'+string(rl(2))+'\t\t330\t\t'+string(rb(2))+'\t\t%.2e\n',rr(2));\n", +"printf('\t Reboiler vapor........');\n", +"printf('414.0\t\t134.0\t\t'+string(rl(3))+'\t\t330\t\t'+string(rb(3))+'\t\t%.2e\n',rr(3));\n", +"printf('\t\t\t\t\t\t\t\t\t\t\t\t\t\t________\n');\n", +"printf('\t\t\t\t\t\t\t\t\t\t\t\t\t\t%.3e',rr(2)+rr(3));\n", +"\n", +"//y*\n", +"pc(1)=0.056;\n", +"pc(2)=0.350;\n", +"pc(3)=0.285;\n", +"pc(4)=0.122;\n", +"pc(5)=0.074;\n", +"pc(6)=0.068;\n", +"pc(7)=0.038;\n", +"pc(8)=0.007;\n", +"\n", +"//K(300°F,40psia)\n", +"pK(1)=4.5;\n", +"pK(2)=2.25;\n", +"pK(3)=1.20;\n", +"pK(4)=0.66;\n", +"pK(5)=0.38;\n", +"pK(6)=0.22;\n", +"pK(7)=0.13;\n", +"pK(8)=0.07;\n", +"\n", +"printf('\n\n\t\tCALCULATION OF BOTTOM PLATE TEMPERATURE\n');\n", +"printf('\t\ty*\t\t\tReboiler vapor\t\t\t\tK(300°F,40psia)\tMol*K\n\t\t\t\tV = y*205.7 +\tBottoms\t=\tTrapout\n');\n", +"printf('\t\t----------------------------------------------------------------------------------------\n');\n", +"\n", +"i=1;\n", +"pcs=0;\n", +"pc2=0;\n", +"bcs=0;\n", +"tcs=0;\n", +"gg=0;\n", +"while(i<9)\n", +" temp = pc(i)*205.7;\n", +" temp2 = temp + bc(i);\n", +" printf('\tC'+ string(i+4)+ '\t' +string(pc(i))+ '\t\t%.1f\t\t' + string(bc(i))+'\t\t%.1f\t\t'+string(pK(i))+'\t\t%.2f\n',temp,temp2,temp2*pK(i));\n", +" \n", +" pcs=pcs+pc(i);\n", +" pc2=pc2+temp;\n", +" bcs=bcs+bc(i);\n", +" tcs=tcs+temp2;\n", +" gg=gg+(temp2*pK(i));\n", +" i=i+1;\n", +"end\n", +"printf('\t\t----------------------------------------------------------------------------------------\n');\n", +"printf('\t\t%.3f\t\t%.1f\t\t%.1f\t\t%.1f\t\t\t\t%.1f\n',pcs,pc2,bcs,tcs,gg);\n", +"printf('\n\tReboiler requirements are\n');\n", +"printf('\t\tVaporization\t\t\t22700 lb/hr\n\t\tTotal liquor to reboiler\t78177 lb/hr\n\t\tHeat load\t\t\t4280000 Btu/hr\n\t\tTemperature range\t\t300-330°F\n\t\tOperating pressure\t\t40psia')\n", +"//end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/16-Extended_Surfaces.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/16-Extended_Surfaces.ipynb new file mode 100644 index 0000000..901691d --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/16-Extended_Surfaces.ipynb @@ -0,0 +1,549 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 16: Extended Surfaces" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 16.1: Calculation_of_the_Fin_Efficiency_and_a_Weighted_Efficiency_Curve.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 16.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"Af=(20*0.75*12*2)/(144);\n", +"Ao=((3.14*1.25)-(20*0.035))*(12/144);\n", +"printf('\t fin surface is : %.1f ft^2/lin ft \n',Af);\n", +"printf('\t bare tube surface is : %.3f ft^2/lin ft \n',Ao);\n", +"A=(Af+Ao);\n", +"printf('\t total outside surface : %.2f ft^2/lin ft \n',A);\n", +"Ai=(3.14*1.06*12)/(144);\n", +"printf('\t total inside surface : %.3f ft^2/lin ft \n',Ai);\n", +"printf('\t fin efficiencies \n');\n", +"b=0.0625; // ft\n", +"hf=4; // from table in solution\n", +"m=(5.24*(hf^(1/2))); // m=((hf*P)/(Kax))^(1/2), eq 16.8\n", +"n=(tanh(m*b))/(m*b); // efficiency , eq 16.26\n", +"printf('\n hf m n \n '+string(hf)+' '+string(m)+' '+string(n)+' \n');\n", +"// similarly efficiencies values are calculated at different hf values\n", +"printf('\t weighted efficiency curve \n');\n", +"hfi=((n*Af)+(Ao))*(hf/Ai); // eq 16.34\n", +"printf('\n hf hfi \n '+string(hf)+' '+string(hfi)+' \n');\n", +"// similarly efficiencies values are calculated at different hf values\n", +"hf=[4 16 36 100 400 625 900]; // from 2nd table in the solution\n", +"hfi=[35.4 110.8 193.5 370 935 1295 1700]; // from 2nd table in the solution\n", +"plot2d('oll',hf,hfi);\n", +"xtitle('weighted fin efficiency curve','heat transfer coefficient to fin,Btu/(ft^2)*(hr)','coefficient hf referred to the tube ID');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 16.2: Calculation_of_a_Heat_transfer_Curve_from_Experimental_Data.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 16.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"Ts=302; // F\n", +"t1=151;\n", +"t2=185;\n", +"w=15200; // lb/hr\n", +"// The dropwise condensation of steam was promoted with oil.\n", +"aa=(3.14*(3.068^2-1.25^2))/(4*144)-((20*0.035*0.75)/(144));\n", +"printf('\t annulus flow area : %.4f ft^2 \n',aa);\n", +"p=(3.14*(1.25/12))-(20*0.035/12)+(20*0.75*2/12);\n", +"printf('\t wetted perimeter : %.2f ft \n',p);\n", +"De=(4*aa/p);\n", +"printf('\t equivalent diameter : %.3f ft \n',De);\n", +"Q=w*0.523*(t2-t1);\n", +"printf('\t heat load : %.2e Btu/hr \n',Q);\n", +"delt1=Ts-t1; //F\n", +"delt2=Ts-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"Ai=0.277; // ft^2/ft\n", +"n=20; // number of fins\n", +"Ui=(Q/(Ai*n*LMTD));\n", +"printf('\t Ui : %.0f Btu/(hr)*(ft^2)*(F) \n',Ui);\n", +"hi=3000; // assumed value for dropwise condensation of steam\n", +"hfi=(Ui*hi)/(hi-Ui);\n", +"printf('\t hfi : %.0f Btu/(hr)*(ft^2)*(F) \n',hfi);\n", +"hf=120; // from fig 16.7 for hfi=418\n", +"mu=1.94; // lb/(ft*hr)\n", +"k=0.079;\n", +"Z=2.34; // Z=((c*mu)/k)^(1/3)\n", +"jf=(hf*De/(Z*k)); // eq 16.36\n", +"printf('\t jf : %.0f \n',jf);\n", +"Ga=(w/aa);\n", +"printf('\t Ga : %.2e lb/(hr)*(ft^2) \n',Ga);\n", +"Rea=(De*Ga/mu);\n", +"printf('\t Rea : %.2e \n',Rea);\n", +"// end\n", +"\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 16.3: Calculation_of_a_Double_Pipe_Extended_surface_Gas_Oil_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 16.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=200; // outlet hot fluid,F\n", +"t1=80; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"W=18000; // lb/hr\n", +"w=11950; // lb/hr\n", +"printf('\t 1.for heat balance \n')\n", +"C=0.53; // Btu/(lb)*(F)\n", +"Q=((W)*(C)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for gas oil is : %.2e Btu/hr \n',Q);\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"X=((delt1)/(delt2));\n", +"printf('\t ratio of two local temperature difference is : %.2f \n',X);\n", +"Fc=0.47; // from fig.17\n", +"Kc=0.27; \n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,gas oil \n');\n", +"ID=3.068; // in, table 11\n", +"OD=1.9; // in, table 11\n", +"af=0.0175; // fin cross section,table 10\n", +"aa=((3.14*ID^2/(4))-(3.14*OD^2/(4))-(24*af))/(144);\n", +"printf('\t flow area is : %.4f ft^2 \n',aa);\n", +"p=(3.14*(OD))-(24*0.035)+(24*0.5*2);\n", +"printf('\t wetted perimeter : %.2f in \n',p);\n", +"De=(4*aa*12/(p));\n", +"printf('\t De : %.4f ft \n',De);\n", +"Ga=(W/aa); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Ga);\n", +"mu1=2.5*2.42; // at 224F,lb/(ft)*(hr), from fig.14\n", +"Rea=((De)*(Ga)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Rea);\n", +"jf=18.4; // from fig.16.10\n", +"Z=0.25; // Z=k*((c)*(mu1)/k)^(1/3), fig 16\n", +"Hf=((jf)*(1/De)*(Z)); // Hf=(hf/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Hf);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"D=0.134; // ft\n", +"row=62.5;\n", +"at=(3.14*D^2/(4));\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*row));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=0.72*2.42; // at 99F,lb/(ft)*(hr)\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Ret);\n", +"hi=(970*0.82); // fig 25\n", +"printf('\t hi : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"printf('\t calculation of tfw \n');\n", +"// Tc-tfw=40F assumption from fig 14\n", +"tfw=184;\n", +"mufw=3.5; // cp, at 184F\n", +"phya=(2.5/mufw)^0.14;\n", +"printf('\t phya is : %.2f \n',phya); // from fig.24\n", +"hf=(Hf)*(phya); // from eq.6.36\n", +"printf('\t Correct hf to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',hf);\n", +"Rdo=0.002;\n", +"Rf=(1/hf);\n", +"printf('\t Rf : %.4f \n',Rf);\n", +"hf1=(1/(Rdo+Rf)); // eq 16.37\n", +"printf('\t hf1 : %.1f \n',hf1);\n", +"hfi1=255; // fig 16.9\n", +"hfi2=(hf1*5.76); // eq 16.38 and fig 16.9,((Af+Ao)/(Ai))=5.76 from previous prblm\n", +"printf('\t hfi2 : %.0f \n',hfi2);\n", +"Rmetal=(hfi2-hfi1)/(hfi2*hfi1); // eq 16.39\n", +"printf('\t Rmetal : %.5f \n',Rmetal);\n", +"phyt=1; // for cooling water\n", +"Rdi=0.003;\n", +"Ri=(1/hi);\n", +"printf('\t Ri : %.5f \n',Ri);\n", +"hi1=(1/(Rdi+Ri)); // eq 16.40\n", +"printf('\t hi1 : %.1f \n',hi1);\n", +"UDi=(hi1*hfi1)/(hi1+hfi1); // eq 16.41\n", +"printf('\t UDi : %.0f \n',UDi);\n", +"// To obtain the true flux the heat load must be divided by the actual heat-transfer surface.For a 1}2-in. IPS pipe there are 0.422 ft2/lin foot, from table 11\n", +"// trial\n", +"Ai=(Q/(UDi*LMTD)); // LMTD=delt\n", +"printf('\t Ai : %.1f ft^2 \n',Ai);\n", +"L=(Ai/0.422);\n", +"printf('\t length of pipe required : %.1f lin ft \n',L);\n", +"// Use two 20-ft hairpins = 80 lin ft\n", +"Ai1=(80*0.422); // ft^2\n", +"r=(Q/Ai1);\n", +"printf('\t Q/Ai1 : %.2e Btu/(hr)*(ft^2) \n',r);\n", +"deltf=(r/hfi2);\n", +"deltdo=(r*Rdo/5.76);\n", +"printf('\t annulus film : %.1f \n',deltf);\n", +"printf('\t annulus dirt : %.1f \n',deltdo);\n", +"d=deltf+deltdo; // d=Tc-tfw\n", +"deltmetal=(r*Rmetal);\n", +"deltdi=(r*Rdi);\n", +"delti=(r/hi);\n", +"printf('\t Tc-tfw : %.1f \n',d);\n", +"printf('\t fin and tube metal : %.1f \n',deltmetal);\n", +"printf('\t tube side dirt : %.1f \n',deltdi);\n", +"printf('\t tubeside film : %.1f \n',delti);\n", +"Td=deltf+deltdo+deltmetal+deltdi+delti;\n", +"printf('\t total temperature drop : %.1f F \n',Td);\n", +"printf('\t pressure drop for annulus \n');\n", +"De1=0.0359; // ft\n", +"Rea1=(De1*Ga/mu1);\n", +"printf('\t reynolds number : %.2e \n',Rea1);\n", +"f=0.00036; // fig 16.10\n", +"s=0.82; //using fig.6\n", +"delPs=((f*(Ga^2)*(80))/(5.22*(10^10)*(De1)*(s)*(phya))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000192; // friction factor for reynolds number 65000, using fig.26\n", +"s=1;\n", +"delPt=((f*(Gt^2)*(80))/(5.22*(10^10)*(0.134)*(s)*(1))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 16.4: Calculation_of_a_Longitudinal_Fin_Shell_and_tube_Exchanger.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 16.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=100; // outlet hot fluid,F\n", +"t1=80; // inlet cold fluid,F\n", +"t2=100; // outlet cold fluid,F\n", +"W=30000; // lb/hr\n", +"w=50500; // lb/hr\n", +"printf('\t 1.for heat balance \n')\n", +"C=0.225; // Btu/(lb)*(F)\n", +"Q=((W)*(C)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for oxygwn is : %.2e Btu/hr \n',Q);\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.1f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.4f \n',S);\n", +"printf('\t FT is 0.87 \n'); // from fig 18\n", +"delt=(0.87*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"Tc=(T2+T1)/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,oxygen \n');\n", +"ID=19.25; // in, table 11\n", +"OD=1; // in, table 11\n", +"as=((3.14*ID^2/(4))-(70*3.14*OD^2/(4))-(70*20*0.035*0.5))/(144);\n", +"printf('\t flow area is : %.2f ft^2 \n',as);\n", +"p=(70*3.14*(OD))-(70*20*0.035)+(70*20*0.5*2);\n", +"printf('\t wetted perimeter : %.2e in \n',p);\n", +"De=(4*as*12/(p));\n", +"printf('\t De : %.3f ft \n',De);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.0545; // at 175F,lb/(ft)*(hr), from fig.15\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.3e \n',Res);\n", +"jH=59.5; // from fig.16.10a\n", +"k=0.0175;\n", +"Z=0.89; // Z=((c)*(mu1)/k)^(1/3), fig\n", +"hf=((jH)*(k/De)*(Z)); //using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',hf);\n", +"Rdo=0.003;\n", +"hdo=(1/Rdo);\n", +"hf1=(hdo*hf)/(hdo+hf); // eq 16.37\n", +"printf('\t hf1 : %.1f \n',hf1);\n", +"hfi1=142; // fig 16.9\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"at1=0.479; // table 10\n", +"L=16;\n", +"Nt=70;\n", +"n=4;\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"D=0.0652; // ft\n", +"row=62.5;\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*row));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=1.94; // at 90F,lb/(ft)*(hr)\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=(940*0.96); // fig 25\n", +"printf('\t hi : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"Rdi=0.003;\n", +"hdi=(1/Rdi);\n", +"hi1=(hdi*hi)/(hdi+hi);\n", +"printf('\t hi1 : %.0f Btu/(hr)*(ft^2)*(F) \n',hi1);\n", +"UDi=((hfi1)*(hi1)/(hi1+hfi1)); // eq 16.41,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UDi);\n", +"A2=0.2048; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UDi1=((Q)/((A)*(delt)));\n", +"printf('\t design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UDi1);\n", +"Re=(1/UDi1)-(1/UDi);\n", +"printf('\t excess fouling factor : %.5f \n',Re);\n", +"Ro=9.27; //Adding to the outside fouling factor\n", +"Rdo1=Rdo+(Re*Ro);\n", +"printf('\t Rdo : %.4f \n',Rdo1);\n", +"hf2=(hf/(1+(hf*Rdo1)));\n", +"printf('\t hf2 : %.1f \n',hf2);\n", +"hfi2=113;\n", +"UDi2=((hfi2)*(hi1)/(hi1+hfi2)); // eq 16.41,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UDi2);\n", +"printf('\t pressure drop for annulus \n');\n", +"De1=0.0433; // ft\n", +"Res1=(De1*Gs/mu1);\n", +"printf('\t reynolds number : %.2e \n',Res1);\n", +"f=0.00025; // fig 16.10\n", +"s=0.00133;\n", +"delPs=((f*(Gs^2)*(L))/(5.22*(10^10)*(De1)*(s)*(1))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPa is 2 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00021; // friction factor for reynolds number 29100, using fig.26\n", +"s=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(0.0625)*(s)*(1))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.0f psi \n',delPt);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 16.5: Calculation_of_a_Transverse_fin_Air_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 16.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=200; // outlet hot fluid,F\n", +"t1=150; // inlet cold fluid,F\n", +"t2=190; // outlet cold fluid,F\n", +"W=100000; // lb/hr\n", +"w=31200; // lb/hr\n", +"printf('\t 1.for heat balance \n')\n", +"C=0.25; // Btu/(lb)*(F)\n", +"Q=((W)*(C)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for air is : %.2e Btu/hr \n',Q);\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.1f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.4f \n',S);\n", +"printf('\t FT is 0.985 \n'); // from fig 18\n", +"delt=(0.985*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"Tc=(T2+T1)/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"Af=(3.14*2*8*12*(1.75^2-1^2))/(4);\n", +"Ao=((3.14*1*12)-(3.14*1*8*0.035*12));\n", +"printf('\t fin surface is : %.0f in^2/lin ft \n',Af);\n", +"printf('\t bare tube surface is : %.1f in^2/lin ft \n',Ao);\n", +"A=(Af+Ao);\n", +"printf('\t total outside surface : %.1f ft^2/lin ft \n',A);\n", +"p=(2*3*2*8*12/8)+(((12)-(8*0.035*12))*(2));\n", +"printf('\t projected perimeter : %.1f in/ft \n',p);\n", +"De=(2*A/(3.14*p*12)); // eq 16.104\n", +"printf('\t De : %.3f ft \n',De);\n", +"// 21 tubes may be fit in one :vertical bank (Fig. 16.19b) ,20 tubes in alternating banks for triangular pitch\n", +"as=((4^2*12^2)-(21*1*48)-((21)*(2*0.035*3*8*48/8)))/(144); // fig 16.19\n", +"printf('\t flow area : %.1f ft^2 \n',as);\n", +"printf('\t hot fluid:shell side,oxygen \n');\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.052; // at 225F,lb/(ft)*(hr), from fig.15\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jf=157; // from fig.16.18a\n", +"k=0.0183;\n", +"Z=0.89; // Z=((c)*(mu1)/k)^(1/3), fig\n", +"phys=1;\n", +"hf=((jf)*(k/De)*(Z)); //using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',hf);\n", +"Rdo=0.003;\n", +"hdo=(1/Rdo);\n", +"hf1=(hdo*hf)/(hdo+hf); // eq 16.37\n", +"printf('\t hf1 : %.1f \n',hf1);\n", +"hfi1=142; // fig 16.9\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"at1=0.546; // table 10\n", +"L=4;\n", +"Nt=21;\n", +"n=1;\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"D=0.0695; // ft\n", +"row=62.5;\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*row));\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=0.895; // at 170F,lb/(ft)*(hr)\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=(710*0.94); // fig 25\n", +"printf('\t hi : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"Rdi=0.003;\n", +"hdi=(1/Rdi);\n", +"hi1=(hdi*hi)/(hdi+hi); // 16.40\n", +"printf('\t hi1 : %.0f Btu/(hr)*(ft^2)*(F) \n',hi1);\n", +"k1=60; // table 3 , for brass\n", +"// yb=0.00146 ft\n", +"X=((0.875-0.5)/12)*(21.5/(60*0.00146))^(1/2);\n", +"printf('\t X :%.2f \n',X);\n", +"nf=0.91; // from fig 16.13a , by comparing X value\n", +"Ai=0.218; // ft^2/ft\n", +"hfi2=((nf*Af/144)+(Ao/144))*(hf1/Ai); // eq 16.34\n", +"printf('\t hfi2 : %.0f \n',hfi2);\n", +"UDi=((hfi2)*(hi1)/(hi1+hfi2)); // eq 16.41,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UDi);\n", +"A=(21*4*Ai); // ft^2\n", +"printf('\t inside surface per bank is : %.1f ft^2 \n',A);\n", +"Ai1=(Q/(UDi*delt));\n", +"printf('\t Ai1 : %.0f ft^2 \n',Ai1);\n", +"Nb=(Ai1/A);\n", +"printf('\t number of banks : %.0f \n',Nb);\n", +"Vn=(4*4*1.95/12)-(41*3.14*1*4/(2*4*144))-((41*3.14*0.035*8*4/(144*2*4))*(1.75^2-1^2)); // fig 16.19b\n", +"printf('\t net free volume : %.2f ft^3 \n',Vn);\n", +"Af1=(41*2.34*4/2);\n", +"printf('\t frictional surface : %.0f ft^2 \n',Af1);\n", +"printf('\t pressure drop for annulus \n');\n", +"De1=(4*Vn/Af1); // ft\n", +"printf('\t De1 : %.2f ft \n',De1);\n", +"Res1=(De1*Gs/mu1);\n", +"printf('\t reynolds number : %.2e \n',Res1);\n", +"f=0.0024; // fig 16.18b\n", +"s=0.000928;\n", +"Lp=1.95;\n", +"R1=0.538; // R1=(De1/ST)^(0.4)\n", +"R2=1; // R2=(SL/ST)^0.6\n", +"delPs=((f*(Gs^2)*(Lp)*(R1)*(R2))/(5.22*(10^10)*(De1)*(s)*(1)));\n", +"printf('\t delPs is : %.2f psi \n',delPs);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.0002; // friction factor for reynolds number 30400, using fig.26\n", +"s=1;\n", +"delPt=((f*(Gt^2)*(L)*(Nb))/(5.22*(10^10)*(0.0695)*(s)*(1))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.2f psi \n',delPt);\n", +"//end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/17-Cooling_Towers.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/17-Cooling_Towers.ipynb new file mode 100644 index 0000000..ba69e54 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/17-Cooling_Towers.ipynb @@ -0,0 +1,501 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 17: Cooling Towers" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 17.1: Calculation_of_the_Enthalpy_of_Saturated_Air.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 17.1 \n');\n", +"pw=0.4298; // psia, at 75F, table 7\n", +"pt=14.696; // psia\n", +"t=75;\n", +"Mw=18;\n", +"Ma=29;\n", +"X=(pw/(pt-pw))*(Mw/Ma);\n", +"printf('\t humidity is : %.4f lb water/lb air \n',X);\n", +"H=(X*t)+(1051.5*X)+(0.24*t); // eq 17.54\n", +"printf('\t enthalpy at 75F is : %.1f Btu/lb dry air \n',H);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 17.2: Calculation_of_the_Number_of_Diffusion_Units.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 17.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"printf('\t by numerical integration \n');\n", +"T1=85;\n", +"T2=120;\n", +"A=576; // ground area, from fig 17.12\n", +"L=1500*(500/576);\n", +"G=1400;\n", +"R=(L/G);\n", +"printf('\t R is : %.2f \n',R);\n", +"H1=39.1; // fig 17.12\n", +"H2=H1+(R*(T2-T1));\n", +"printf('\t H2 is : %.1f Btu \n',H2);\n", +"// The area between the saturation line and the operating line represents the potential for heat transfer\n", +"// at T=85F\n", +"Hs=50; // fig 17.12\n", +"d1=(Hs-H1);\n", +"printf('\t difference is : %.1f \n',d1);\n", +"//at t=90\n", +"Hs=56.7; // fig 17.12\n", +"H=43.7; // fig 17.12\n", +"d2=Hs-H;\n", +"printf('\t difference is : %.1f \n',d2);\n", +"d=(d1+d2)/(2);\n", +"printf('\t average of difference is : %.1f \n',d);\n", +"dT=5; // F\n", +"nd1=(dT/d);\n", +"printf('\t nd1 is : %.3f \n',nd1);\n", +"// similarly calculating nd at each temperature and adding them will give you total nd value\n", +"nd=1.70;\n", +"printf('\t number of diffusing units : %.2f \n',nd);\n", +"printf('\t log mean enthalpy difference \n');\n", +"dt=49.9; // diff. of enthalpies at top of the tower, from table in solution\n", +"db=10.9; // diff of enthalpies at bottom of the tower,from table in solution\n", +"LME=(dt-db)/(2.3*log10(dt/db));\n", +"printf('\t log mean of enthalpy : %.1f Btu/lb \n',LME);\n", +"nd=(T2-T1)/(LME);\n", +"printf('\t number of diffusing units are : %.2f \n',nd);\n", +"// The error is naturally larger the greater the range\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 17.3: Calculation_of_the_Required_Height_of_Fill.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 17.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"// Since the loading is based on 1 ft2 of ground area\n", +"nd=1.7;\n", +"L=1302;\n", +"Kxa=115;\n", +"Z=(nd*L)/(Kxa);\n", +"printf('\t Z is : %.1f ft \n',Z);\n", +"HDU=(Z/nd);\n", +"printf('\t height of diffusion unit : %.1ff ft \n',HDU);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 17.4: Determination_of_a_Cooling_tower_Guarantee.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 17.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"// The area between the saturation line and the operating line represents the potential for heat transfer\n", +"// at T=79.3F\n", +"Hs=43.4; // fig 17.12\n", +"H=30.4; // fig 17.12\n", +"d1=(Hs-H);\n", +"printf('\t difference is : %.1f \n',d1);\n", +"//at t=85\n", +"Hs=50; // fig 17.12\n", +"H=35.7; // fig 17.12\n", +"d2=Hs-H;\n", +"printf('\t difference is : %.1f \n',d2);\n", +"d=(d1+d2)/(2);\n", +"printf('\t average of difference is : %.2f \n',d);\n", +"dT=(85-79.3); // F\n", +"nd1=(dT/d);\n", +"printf('\t nd1 is : %.3f \n',nd1);\n", +"// similarly calculating nd at each temperature and adding them will give you total nd value\n", +"nd=1.72;\n", +"printf('\t number of diffusing units : %.2f \n',nd);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 17.5: The_Recalculation_of_Cooling_tower_Performance.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 17.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=85;\n", +"T2=120;\n", +"R=0.93; // R=(L/G), for 1500 gpm\n", +"printf('\t for 120percent of design \n');\n", +"R1=1.2*R;\n", +"printf('\t R is : %.3f \n',R1);\n", +"H1=39.1; // at 87.2F\n", +"H2=H1+(R1*(T2-T1)); \n", +"printf('\t H2 is : %.1f Btu \n',H2);\n", +"// The area between the saturation line and the operating line represents the potential for heat transfer\n", +"// at T=87.2F\n", +"Hs=53.1; // from table in the solution\n", +"d1=(Hs-H1);\n", +"printf('\t difference is : %.1f \n',d1);\n", +"//at t=90\n", +"Hs=56.7; // fig 17.12\n", +"H=42; // fig 17.12\n", +"d2=Hs-H;\n", +"printf('\t difference is : %.1f \n',d2);\n", +"d=(d1+d2)/(2);\n", +"printf('\t average of difference is : %.1f \n',d);\n", +"dT=(90-87.2); // F\n", +"nd1=(dT/d);\n", +"printf('\t nd1 is : %.3f \n',nd1);\n", +"// similarly calculating nd at each temperature and adding them will give you total nd value\n", +"nd=1.53;\n", +"printf('\t number of diffusing units : %.2f \n',nd);\n", +"printf('\t for 80 percent of design \n');\n", +"R2=0.8*R;\n", +"printf('\t R is : %.3f \n',R2);\n", +"H1=39.1; // at 87.2F\n", +"H2=H1+(R2*(T2-T1)); \n", +"printf('\t H2 is : %.0f Btu \n',H2);\n", +"// The area between the saturation line and the operating line represents the potential for heat transfer\n", +"// at T=82.5F\n", +"Hs=47.2; // from table in the solution\n", +"d1=(Hs-H1);\n", +"printf('\t difference is : %.1f \n',d1);\n", +"//at t=85\n", +"Hs=50; // fig 17.12\n", +"H=40.8; // fig 17.12\n", +"d2=Hs-H;\n", +"printf('\t difference is : %.1f \n',d2);\n", +"d=(d1+d2)/(2);\n", +"printf('\t average of difference is : %.1f \n',d);\n", +"dT=(85-82.5); // F\n", +"nd1=(dT/d);\n", +"printf('\t nd1 is : %.3f \n',nd1);\n", +"// similarly calculating nd at each temperature and adding them will give you total nd value\n", +"nd=1.92;\n", +"printf('\t number of diffusing units : %.2f \n',nd);\n", +"X=[1.115 0.93 0.74];\n", +"Y=[1.53 1.70 1.92];\n", +"plot2d(X,Y,style=3,rect=[0.7,1.4,1.3,2]);\n", +"xtitle('KxaV/L vs L/G','L/G','nd');\n", +"printf('\t trial 1 \n');\n", +"R3=1.1;\n", +"printf('\t R is : %.3f \n',R3);\n", +"H1=34.5; // at 87.2F\n", +"H2=H1+(R3*(T2-T1)); \n", +"printf('\t H2 is : %.0f Btu \n',H2);\n", +"// The area between the saturation line and the operating line represents the potential for heat transfer\n", +"// at T=85F\n", +"Hs=50; // from table in the solution\n", +"d1=(Hs-H1);\n", +"printf('\t difference is : %.1f \n',d1);\n", +"//at t=90\n", +"Hs=56.7; // fig 17.12\n", +"H=40; // fig 17.12\n", +"d2=Hs-H;\n", +"printf('\t difference is : %.1f \n',d2);\n", +"d=(d1+d2)/(2);\n", +"printf('\t average of difference is : %.1f \n',d);\n", +"dT=(90-85); // F\n", +"nd1=(dT/d);\n", +"printf('\t nd1 is : %.3f \n',nd1);\n", +"// similarly calculating nd at each temperature and adding them will give you total nd value\n", +"nd=1.48;\n", +"printf('\t number of diffusing units : %.2f \n',nd);\n", +"R3=1.19; // from fig 17.14\n", +"printf('\t L/G is : %.2f \n',R3);\n", +"printf('\t trial 2 \n');\n", +"R4=1.2;\n", +"printf('\t R4 is : %.3f \n',R4);\n", +"H1=34.5; // at 87.2F\n", +"H2=H1+(R4*(T2-T1)); \n", +"printf('\t H2 is : %.1f Btu \n',H2);\n", +"// The area between the saturation line and the operating line represents the potential for heat transfer\n", +"// at T=85F\n", +"Hs=50; // from table in the solution\n", +"d1=(Hs-H1);\n", +"printf('\t difference is : %.1f \n',d1);\n", +"//at t=90\n", +"Hs=56.7; // fig 17.12\n", +"H=40.5; // fig 17.12\n", +"d2=Hs-H;\n", +"printf('\t difference is : %.1f \n',d2);\n", +"d=(d1+d2)/(2);\n", +"printf('\t average of difference is : %.1f \n',d);\n", +"dT=(90-85); // F\n", +"nd1=(dT/d);\n", +"printf('\t nd1 is : %.3f \n',nd1);\n", +"// similarly calculating nd at each temperature and adding them will give you total nd value\n", +"nd=1.56;\n", +"printf('\t number of diffusing units : %.2f \n',nd);\n", +"R3=1.08; // from fig 17.14\n", +"printf('\t L/G is : %.2f \n',R3);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 17.6: Calculation_of_a_Direct_contact_Gas_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 17.6 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"// basis 1ft^2 ground area\n", +"//Assumption: 20 per cent of the initial vapor content of the gas enters the water body\n", +"X1=(1.69/(14.7-1.69))*(18/29);\n", +"printf('\t X1 : %.4f lb/lb \n',X1);\n", +"G=1500;\n", +"w1=G*X1;\n", +"printf('\t total water in inlet gas : %.2f lb/hr \n',w1);\n", +"// The inlet gas is at 300F and a 120F dew point. Use 0.25 Btu/(lb)(°F) for the specific heat of nitrogen\n", +"H1=(0.0807*120)+(0.0807*1025.8)+(0.45*0.0807*(300-120))+(0.25*300); // eq 17.55\n", +"printf('\t H1 : %.0f Btu/lb dry air \n',H1);\n", +"X2=(w1*(1-.2)/G);\n", +"printf('\t outlet gas humidity : %.5f lb/lb \n',X2);\n", +"pw=(X2*29*14.7/18)/(1+(X2*29/18));\n", +"printf('\t pw : %.3f psia \n',pw);\n", +"Tw=112.9; // F, from table 7 for above pw\n", +"// The outlet gas has a temperature of 200°F and a 112.9°F dew point\n", +"H2=(X2*Tw)+(X2*1029.8)+(X2*0.45*(200-Tw))+(0.25*200); // eq 17.55\n", +"printf('\t H2 : %.1f Btu/lb dry air \n',H2);\n", +"q=G*(H1-H2);\n", +"printf('\t total heat load : %.2e Btu/hr \n',q);\n", +"w2=q/(120-85);\n", +"printf('\t water loading : %.2e lb/hr \n',w2);\n", +"printf('\t interval 1 \n');\n", +"// (Kxa*delV/L)= 0 t0 0.05\n", +"nd=0.05; // nd=Kxa*V/L\n", +"Le=0.93; // fig 17.4 at 300F\n", +"C=(0.25)+(0.45*X1);\n", +"printf('\t C : %.3f Btu/(lb)*(F) \n',C);\n", +"haV=(nd*w2*Le*C);\n", +"printf('\t haV : %.1f Btu/(hr)*(F) \n',haV);\n", +"qc=(haV*(300-120));\n", +"printf('\t qc : %.2e Btu/hr \n',qc);\n", +"delT=(qc/(C*G));\n", +"printf('\t delT : %.1f F \n',delT);\n", +"T1=(300-delT);\n", +"printf('\t T(0.05) : %.1f F \n',T1);\n", +"delt=(qc/w2);\n", +"printf('\t delt : %.2f F \n',delt);\n", +"t1=(120-delt);\n", +"printf('\t t(0.05) : %.1f F \n',t1);\n", +"printf('\t interval 2 \n');\n", +"// (Kxa*delV/L)= 0.05 to 0.15\n", +"nd1=0.1;\n", +"haV1=(nd1*w2*Le*C);\n", +"printf('\t haV1 : %.1f Btu/(hr)*(F) \n',haV1);\n", +"qc1=(haV1*(T1-t1));\n", +"printf('\t qc1 : %.1e Btu/hr \n',qc1);\n", +"delT1=(qc1/(C*G));\n", +"printf('\t delT1 : %.1f F \n',delT1);\n", +"T2=(T1-delT1);\n", +"printf('\t T(0.15) : %.2f F \n',T2);\n", +"X3=0.0748; // at 117.6F\n", +"w3=(nd1*w2*(0.0807-X3));\n", +"printf('\t water diffused during interval : %.3f lb/hr \n',w3);\n", +"w4=(w1-w3);\n", +"printf('\t water remaining : %.2f lb/hr \n',w4);\n", +"l1=1027; // Btu/lb, l1= lamda at 117.6F\n", +"qd=(w3*l1);\n", +"printf('\t qd : %.0f Btu/hr \n',qd);\n", +"q1=(qd+qc1);\n", +"printf('\t q1 : %.0f Btu/hr \n',q1);\n", +"delt1=(q1/w2);\n", +"printf('\t delt1 : %.2f F \n',delt1);\n", +"t2=(t1-delt1);\n", +"printf('\t t(0.15) : %.1f F \n',t2);\n", +"X4=0.0640; // at 112.5\n", +"X5=(w4/G);\n", +"printf('\t X(112.5F) : %.4f lb/lb \n',X5);\n", +"printf('\t interval 3 \n');\n", +"// (Kxa*delV/L)= 0.15 to 0.25\n", +"nd1=0.1;\n", +"haV1=(nd1*w2*Le*C);\n", +"printf('\t haV1 : %.1f Btu/(hr)*(F) \n',haV1);\n", +"qc2=(haV1*(T2-t2));\n", +"printf('\t qc2 : %.2e Btu/hr \n',qc2);\n", +"delT2=(qc2/(C*G));\n", +"printf('\t delT2 : %.1f F \n',delT2);\n", +"T3=(T2-delT2);\n", +"printf('\t T(0.25) : %.1f F \n',T3);\n", +"w5=(nd1*w2*(X5-X4));\n", +"printf('\t water diffused during interval : %.3f lb/hr \n',w5);\n", +"w6=(w4-w5);\n", +"printf('\t water remaining : %.2f lb/hr \n',w6);\n", +"l2=1030; // Btu/lb, l1= lamda at 112.5F\n", +"qd1=(w5*l2);\n", +"printf('\t qd1 : %.2e Btu/hr \n',qd1);\n", +"q2=(qd1+qc2);\n", +"printf('\t q2 : %.3e Btu/hr \n',q2);\n", +"delt2=(q2/w2);\n", +"printf('\t delt2 : %.2f F \n',delt2);\n", +"t3=(t2-delt2);\n", +"printf('\t t(0.25) : %.1f F \n',t3);\n", +"X6=0.0533; // at 106.5\n", +"X7=(w6/G);\n", +"printf('\t X(106.5F) : %.4f lb/lb \n',X7);\n", +"// The calculations of the remaining intervals until a. gas temperature of 200°F is reached are shown in Fig. 17.17\n", +"w7=21.92; // total water diffused from table in solution\n", +"d=(w7/w1)*100;\n", +"printf('\t calculated diffusion : %.0f \n',d);\n", +"printf('\t Using some standard low-pressure-drop data \n');\n", +"// For G = 1500, extrapolate to L = 2040 on logarithmic coordinates. Kxa = 510.\n", +"ndt=.54; // from 1st table in solution\n", +"Kxa=510; // from 2nd table in solution\n", +"Z=(ndt*w2/Kxa);\n", +"printf('\t tower height : %.2f ft \n',Z);\n", +"A=(50000/G);\n", +"printf('\t cross section : %.1f ft^2 \n',A);\n", +"// end\n", +"\n", +"\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 17.7: Approximate_Calculation_of_a_Gas_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 17.7 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"C=0.28; // assumption\n", +"w=50000; // lb/hr\n", +"G=1500;\n", +"Qs=(w*C*(500-200));\n", +"Qd=(w/G)*(22685); // qd=22685, from previous prblm\n", +"printf('\t sensible heat : %.1e Btu/hr \n',Qs);\n", +"printf('\t approximate diffusion : %.2e Btu/hr \n',Qd);\n", +"Q=(Qs+Qd);\n", +"printf('\t total heat : %.3e Btu/hr \n',Q);\n", +"// an allowance as high as 30 per cent of the sensible load can be made and the excess water compensated for by throttling when the tower is in operation\n", +"w1=(Q/(120-85));\n", +"printf('\t total water quantity : %.2e lb/hr \n',w1);\n", +"// If the maximum liquid loading is taken as 2040 lb/(hr)(ft'!), the required tower cross section\n", +"A=(w1/2040);\n", +"printf('\t tower cross section : %.1f ft^2 \n',A);\n", +"w3=(w/A);\n", +"printf('\t new gas rate : %.0f lb/(hr)(ft^2) \n',w3);\n", +"// The two terminal temperature differences are (200 - 85) and (500 - 120).\n", +"LMTD=((500-120)-(200-85))/(log((500-120)/(200-85)));\n", +"printf('\t LMTD : %.0f \n',LMTD);\n", +"dt=35;\n", +"N=(dt/LMTD); // eq 17.88\n", +"printf('\t haV/L : %.2f \n',N);\n", +"Le=0.93;\n", +"nd=(N/(C*Le));\n", +"printf('\t number diffusion units : %.2f \n',nd);\n", +"// By extrapolation for G = 718 and L = 2040,Kxa=215\n", +"L=2040;\n", +"Kxa=215;\n", +"Z=(nd*L/Kxa); // calculation mistake\n", +"printf('\t height of tower : %.1f ft \n',Z);\n", +"di=(A)^(1/2);\n", +"printf(' ground dimensions : %.1f ft \n',di);\n", +"// ground dimensions are 5.8*8.3*8.3 ft\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/18-Batch_and_unsteady_process.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/18-Batch_and_unsteady_process.ipynb new file mode 100644 index 0000000..5bc5e6d --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/18-Batch_and_unsteady_process.ipynb @@ -0,0 +1,460 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 18: Batch and unsteady process" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.1: Calculation_of_Batch_Heating.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.1 \n');\n", +"// specific gravity of benzene is 0.88\n", +"// specific heat of benzene is 0.48 Btu/(lb)*(F)\n", +"U=50;\n", +"A=400;\n", +"T1=400;\n", +"t1=100;\n", +"t2=300;\n", +"c=0.48;\n", +"w=40000;\n", +"C=0.60;\n", +"W=10000;\n", +"printf('\t values are approximately mentioned in the book \n');\n", +"printf('\t for a \n');\n", +"M=(7500*8.33*0.88);\n", +"printf('\t weight of benzene is : %.1e lb \n',M);\n", +"Q1=(w*c);\n", +"printf('\t Q1 is : %.2e Btu/(hr)*(F) \n',Q1);\n", +"Q2=(W*C);\n", +"printf('\t Q2 is : %.0e Btu/(hr)*(F) \n',Q2);\n", +"Ks=((%e)^(U*A*((1/Q1)-(1/Q2)))); // eq 18.16\n", +"printf('\t Ks is : %.3f \n',Ks);\n", +"Z=log((T1-t1)/(T1-t2));\n", +"printf('\t Z is : %.3f \n',Z);\n", +"theta=((M*(Z)*(Ks*6000-(19200)))/((Ks-1)*40000*6000));\n", +"printf('\t theta is : %.1f hr \n',theta);\n", +"printf('\t for b \n');\n", +"R=(Q1/Q2);\n", +"printf('\t R is : %.1f \n',R);\n", +"KT=((%e)^(U*(A/Q1)*(1+R^2)^(1/2)));\n", +"printf('\t KT is : %.0f \n',KT);\n", +"S=((2*(KT-1))/((KT*(R+1+(1+R^2)^(1/2)))-(R+1-(1+R^2)^(1/2)))); // eq 18.24\n", +"printf('\t S is : %.3f \n',S);\n", +"theta1=((M*Z)/(0.266*40000)); // eq 18.25\n", +"printf('\t theta1 is : %.2f hr \n',theta1);\n", +"printf('\t for c \n');\n", +"U1=100;\n", +"A1=200;\n", +"K8=((%e)^(U*(A/(2*Q1))*(1+R^2)^(1/2))); // eq 18.32\n", +"S1=((2*(K8-1)*(1+((1-0.266)*(1-(3.2*0.266)))^(1/2)))/(((K8-1)*(3.2+1))+((K8+1)*(1+3.2^2)^(1/2)))); // eq 18.31\n", +"printf('\t K8 is : %.2f \n',K8);\n", +"printf('\t S1 is : %.3f \n',S1);\n", +"theta2=((M*Z)/(0.282*40000)); // eq 18.25\n", +"printf('\t theta2 is : %.2f hr \n',theta2);\n", +"printf('\t for d \n');\n", +"K9=((%e)^(U*(A/(Q1))*(R-1)));\n", +"S2=((K9-1)/((K9*R)-1)); // eq 18.36\n", +"printf('\t K9 is : %.2f \n',K9);\n", +"printf('\t S2 is : %.2f \n',S2);\n", +"t=100;\n", +"t1=t+(S2*(T1-t)); // 18.37\n", +"printf('\t t1 is : %.0f F \n',t1);\n", +"t2=t1+(S2*(T1-t1));\n", +"printf('\t t2 is : %.0f F \n',t2);\n", +"t3=t2+(S2*(T1-t2));\n", +"printf('\t t3 is : %.0f F \n',t3);\n", +"t4=t3+(S2*(T1-t3));\n", +"printf('\t t4 is : %.0f F \n',t4);\n", +"x=0.23;\n", +"printf('\t fractional circulation is : %.2f \n',x);\n", +"N=3+x;\n", +"printf('\t total fractional circulation : %.2f \n',N);\n", +"theta3=(N*(M/w));\n", +"printf('\t theta3 is : %.2f \n',theta3);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.2: Heat_Flow_through_a_Wall.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.2 \n');\n", +"tav=500; // F\n", +"Ts=1000; \n", +"t0=100;\n", +"c=0.12; // Btu/(lb)*(F)\n", +"k=24; // Btu/(hr)*(ft^2)*(F/ft)\n", +"row=488; // lb/ft^3\n", +"alpha=0.41; // alpha=(k/(c*row)), ft^2/hr\n", +"x=0.333; // ft\n", +"theta=4;\n", +"printf('\t values are approximately mentioned in the book \n');\n", +"X=(x/(2*(alpha*theta)^(1/2)));\n", +"printf('\t X is : %.2f \n',X);\n", +"Y=0.142; // Y=f1(X) from fig 18.7 \n", +"t=Ts+(t0-Ts)*(Y); // eq 18.43\n", +"printf('\t t si : %.0f F \n',t);\n", +"q=((k*(Ts-t0))/(3.14*alpha*theta)^(1/2)); // q=(Q/A),from eq 18.47\n", +"printf('\t q is : %.0f Btu/(hr)*(ft^2) \n',q);\n", +"q1=(2*k*(Ts-t0)*(theta/(3.14*alpha))^(1/2)); // q=(Q1/A). eq 18.49\n", +"printf('\t The total heat which flowed through a square foot of wall in the 4 hr is : %.1e Btu/ft^2 \n',q1);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.3: Center_line_Temperature_of_a_Shaft.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.3 \n');\n", +"Ts=1000; \n", +"t0=100;\n", +"alpha=0.41; // alpha=(k/(c*row)), ft^2/hr\n", +"theta=15/60;\n", +"l=1; // ft\n", +"X=(4*alpha*theta)/(l^2);\n", +"printf('\t X is : %.2f \n',X);\n", +"Y=0.155; // Y=f3*(X)from fig 18.9 when L=infinity\n", +"t=Ts+(t0-Ts)*(Y); // eq 18.52\n", +"printf('\t t si : %.1e F \n',t);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.4: The_Schack_Chart.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.4 \n');\n", +"T1=1100; // F\n", +"T2=70; // F\n", +"t1=T1+460; // R\n", +"t2=T2+460; // R\n", +"k=27; // from appendix\n", +"c=0.14; // from appendix\n", +"row=490; // from appendix\n", +"alpha=0.394;\n", +"theta=4;\n", +"l=10/12; // ft\n", +"x=0.173*10^(-8); // stefan constant\n", +"e=0.7; // emmisivity\n", +"printf('\t values are approximately mentioned in the book \n');\n", +"printf('\t for a \n');\n", +"// Assume the temperature is 500°F after 4 hr. The coefficient from plate to air is the· sum of the radiation and convection coefficients\n", +"hri=(e*x*(t1^4-t2^4))/(T1-T2);\n", +"printf('\t radiation coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',hri); // eq 4.32\n", +"hci=(0.3*(T1-T2)^(1/4)); // eq 10.10\n", +"printf('\t convection coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',hci);\n", +"hti=hri+hci;\n", +"printf('\t total intial coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',hti);\n", +"// For the 4-hr coefficient at 500°F\n", +"hr=2.2; // Btu/(hr)*(ft^2)*(F)\n", +"hc=1.35; // Btu/(hr)*(ft^2)*(F)\n", +"ht=hr+hc;\n", +"printf('\t total intial coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',ht);\n", +"h=(hti+ht)/2;\n", +"printf('\t mean coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',h);\n", +"X=(4*alpha*theta)/(l^2);\n", +"Y=(h*l)/(2*k);\n", +"printf('\t X is : %.1f \n',X);\n", +"printf('\t Y is : %.3f \n',Y);\n", +"Z=0.42; // Z=f3(X,Y), from fig 18.10\n", +"t=T2+((T1-T2)*Z); // eq 18.53\n", +"printf('\t t is : %.0f F \n',t);\n", +"printf('\t for b \n');\n", +"Z1=0.43; // Z=f4(X,Y), from fig 18.11\n", +"t1=T2+((T1-T2)*Z1); // eq 18.53\n", +"printf('\t temperature of center plane is : %.0f F \n',t1);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.5: The_Gumey_Lurle_Chart.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.5 \n');\n", +"Ts=400;\n", +"t0=200;\n", +"k=25; // from appendix\n", +"c=0.12; // from appendix\n", +"row=490; // from appendix\n", +"alpha=0.45; // alpha=(k/(c*row))\n", +"theta=15/60;\n", +"l=8/12; // ft\n", +"h=50;\n", +"X=(4*alpha*theta)/(l^2);\n", +"Z=(2*k)/(h*l);\n", +"printf('\t X is : %.2f \n',X);\n", +"printf('\t Z is : %.1f \n',Z);\n", +"Y=0.31; // Y=(Ts-t)/(Ts-t0), from fig 18.13\n", +"t=Ts+(t0-Ts)*(Y); // eq 18.43\n", +"printf('\t t is : %.0f F \n',t);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.6: The_Application_of_Newmans_Method_to_Heating_a_Brick.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.6 \n');\n", +"Ts=300; \n", +"t0=70;\n", +"c=0.25; // Btu/(lb)*(F)\n", +"k=0.3; // Btu/(hr)*(ft^2)*(F/ft)\n", +"row=103; // lb/ft^3\n", +"alpha=0.01164; // alpha=(k/(c*row)), ft^2/hr\n", +"theta=1;\n", +"lx=9/12;\n", +"ly=4.5/12;\n", +"lz=2.5/12;\n", +"h=4.1;\n", +"printf('\t values are approximately mentioned in the book \n')\n", +"X1=(4*alpha*theta)/(lx^2);\n", +"Z1=(2*k)/(h*lx);\n", +"printf('\t X1 is : %.4f \n',X1);\n", +"printf('\t Z1 is : %.3f \n',Z1);\n", +"X2=(4*alpha*theta)/(ly^2);\n", +"Z2=(2*k)/(h*ly);\n", +"printf('\t X2 is : %.4f \n',X2);\n", +"printf('\t Z2 is : %.3f \n',Z2);\n", +"X3=(4*alpha*theta)/(lz^2);\n", +"Z3=(2*k)/(h*lz);\n", +"printf('\t X3 is : %.3f \n',X3);\n", +"printf('\t Z3 is : %.3f \n',Z3);\n", +"printf('\t at centre (2*x/l) is zero \n');\n", +"Yx=0.98; // fig 18.12\n", +"Yy=0.75; // fig 18.12\n", +"Yz=0.43; // fig 18.12\n", +"printf('\t at surface (2*x/l) is one \n');\n", +"Yx1=0.325; // fig 18.12\n", +"Yy1=0.29; // fig 18.12\n", +"Yz1=0.245; // fig 18.12\n", +"printf('\t center of brick \n');\n", +"t1=Ts-(Yx*Yy*Yz*(Ts-t0));\n", +"printf('\t t1 is : %.1f F \n',t1);\n", +"printf('\t corner of brick \n');\n", +"t2=Ts-(Yx1*Yy1*Yz1*(Ts-t0));\n", +"printf('\t t2 is : %.1f F \n',t2);\n", +"printf('\t center of 9 by 4.5in face \n');\n", +"t3=Ts-(Yx*Yy*Yz1*(Ts-t0));\n", +"printf('\t t3 is : %.1f F \n',t3);\n", +"printf('\t center of 9 by 2.5in face \n');\n", +"t4=Ts-(Yx*Yy1*Yz*(Ts-t0));\n", +"printf('\t t4 is : %.0f F \n',t4);\n", +"printf('\t center of 4.5 by 2.5in face \n');\n", +"t5=Ts-(Yx1*Yy*Yz*(Ts-t0));\n", +"printf('\t t5 is : %.1f F \n',t5);\n", +"printf('\t middle of long edge \n');\n", +"t6=Ts-(Yx*Yy1*Yz1*(Ts-t0));\n", +"printf('\t t6 is : %.0f F \n',t6);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.7: The_Graphical_Determination_of_the_Time_Temperature_Distribution.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.7 \n');\n", +"t=20; // min\n", +"alpha=0.40; // ft^2/hr\n", +"delx=0.167; // ft\n", +"// From the conditions of Eq. (18.61) take time increments such that alpha(deltheta/delx^2)=1/2\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"deltheta=(delx^2/(2*alpha));\n", +"printf('\t deltheta is : %.3f hr \n',deltheta);\n", +"N=(t/(deltheta*60));\n", +"printf('\t number of steps required : %.1f \n',N);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.8: Calculations_for_a_Wall_with_Periodic_Temperature_Variation.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.8 \n');\n", +"k=0.3;\n", +"row=103;\n", +"c=0.25;\n", +"alpha=0.01164;\n", +"f=1/24;\n", +"t1=120;\n", +"t2=60;\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"printf('\t temperature lag 6in below the surface \n');\n", +"x=6/12;\n", +"theta=(x/2)*(1/(3.14*f*alpha))^(1/2); // eq 18.65\n", +"printf('\t theta is : %.2f hr \n',theta);\n", +"printf('\t amplitude \n');\n", +"deltom=(t1-t2)/2;\n", +"printf('\t deltom is : %.0f F \n',deltom);\n", +"delt=(deltom)*(%e)^(-x*(3.14*f/alpha)^(1/2)); // eq 18.67\n", +"printf('\t delt is : %.1f F \n',delt); // calculation mistake in book\n", +"printf('\t temperature deviation after 2 hr \n');\n", +"theta1=2; // hr\n", +"deltx=(deltom)*((%e)^(-x*(3.14*f/alpha)^(1/2)))*cos((2*3.14*f*theta1)-(x*(3.14*f/alpha)^(1/2))); // eq 18.69\n", +"printf('\t deltx is : %.1f F \n',deltx);\n", +"printf('\t heat flow during the half period \n');\n", +"q=(k*deltom*(2/(3.14*f*alpha))^(1/2)); // eq 18.70\n", +"printf('\t heat flow is : %.0f Btu/(hr)*(ft^2) \n',q);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 18.9: Calculation_of_the_Length_of_a_Bed.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 18.9 \n');\n", +"G=60; // lb/(hr)*(ft^2)\n", +"De=1/12; // ft\n", +"theta=6; // hr\n", +"cs=41.3; // Btu/(ft^3)*(F)\n", +"c=0.0191; // Btu/(ft^3)*(F)\n", +"f=0.45; // void fraction\n", +"T=90;\n", +"T1=200;\n", +"t0=50;\n", +"h=(0.79*(G/De)^0.7); // eq 18.90\n", +"printf('\t h is : %.1f \n',h);\n", +"X=(h*theta/(cs*(1-f)));\n", +"Y=(T-t0)/(T1-t0);\n", +"printf('\t X is : %.0f \n',X);\n", +"printf('\t Y is : %.3f \n',Y);\n", +"row=0.0807; // lb/(ft^3) air\n", +"Z=24.5; // Z=(h*x*row/(c*G)), by comparing X an Y in fig 18.21\n", +"x=24.5*(c*G/(h*row));\n", +"printf('\t x is : %.1f ft \n',x);\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/19-Furnace_Calculations.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/19-Furnace_Calculations.ipynb new file mode 100644 index 0000000..982f49c --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/19-Furnace_Calculations.ipynb @@ -0,0 +1,286 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 19: Furnace Calculations" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 19.1: Lobo_and_Evans.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 19.1 \n');\n", +"// For orientation purposes, one can make an estimate of the number of tubes required in the radiant section by assuming avg flux is 12000 Btu/(hr)*(ft^2)\n", +"// from Fig.19.14 it can be seen that with a tube temperature of 800'F, an exit-gas temperature of l730°F will be required to effect such a flux.\n", +"printf('\t approxiate values are mentioned in the book \n');\n", +"Q=50000000; // Btu/hr\n", +"QF=(Q/0.75); // efficiency of tank is 75%\n", +"printf('\t heat liberated by the fuel : %.3e Btu/hr \n',QF);\n", +"w1=(QF/17130); // heating value of fuel is 17130Btu/lb\n", +"printf('\t fuel quantity : %.2e lb/hr \n',w1);\n", +"w2=(w1*17.44); // lb of fuel fired with 17.44lb of air\n", +"printf('\t air required : %.2e lb/hr \n',w2);\n", +"w3=(w1*0.3); // 0.3 lb of air is used for atomizing lb of fuel\n", +"printf('\t steam for atomizing : %.2e lb/hr \n',w3);\n", +"QA=(w2*82); // heating value at 400F is 82Btu/lb\n", +"printf('\t QA is : %.2e Btu/hr \n',QA);\n", +"printf('\t QS is negligible \n');\n", +"QW=(0.02*QF);\n", +"printf('\t QW is : %.2e Btu/hr \n',QW);\n", +"Qnet=(QF+QA-QW);\n", +"printf('\t Qnet is : %.2e Btu/hr \n',Qnet);\n", +"//Heat out m gases at 1730°F, 25 per cent excess air, 476 Btu/lb of flue gas\n", +"QG=(476*(w1+w2+w3));\n", +"printf('\t QG is : %.2e Btu/hr \n',QG);\n", +"Q1=(Qnet-QG);\n", +"printf('\t Q1 is : %.2e Btu/hr \n',Q1); // calculation mistake in book\n", +"A=(3.14*38.5*(5/12)); // area of tube\n", +"printf('\t area of tube is : %.1f ft^2 \n',A);\n", +"Nt=(Q1/(12000*A)); // 12000 is avg flux\n", +"printf('\t estimated number of tubes : %.0f \n',Nt);\n", +"// The layout of the cross section of the furnace may be as shown m Fig. 19.16.\n", +"// center to center distance is 8(1/2)in\n", +"Acp=(8.5*38.5/12);\n", +"printf('\t cold plane surface per tube : %.1f ft^2 \n',Acp); // calculation mistake in book\n", +"a=0.937; // a=alpha, from fig 19.11 as Ratio of center-to-center/OD is 1.7\n", +"Acp1=(Acp*a);\n", +"printf('\t Acp1 is : %.0f ft^2 \n',Acp1);\n", +"Acpt=(Acp1*Nt);\n", +"printf('\t total cold plane surface is : %.1e ft^2 \n',Acpt);\n", +"A1=(2*20.46*14.92); // from fig 19.16\n", +"printf('\t surface of end walls : %.0f ft^2 \n',A1);\n", +"A2=(38.5*14.92); // from fig 19.16\n", +"printf('\t surface of side wall : %.0f ft^2 \n',A2);\n", +"A3=(38.5*9.79); // from fig 19.16\n", +"printf('\t surface of bridge walls : %.0f ft^2 \n',A3);\n", +"A4=(2*20.46*38.5); // from fig 19.16\n", +"printf('\t surface of floor and arch : %.0f ft^2 \n',A4);\n", +"AT=(A1+A2+A3+A4);\n", +"printf('\t AT is : %.0f ft^2 \n',AT);\n", +"AR=(AT-Acpt);\n", +"printf('\t AR is : %.0f ft^2 \n',AR);\n", +"Ar=(AR/Acpt);\n", +"printf('\t ratio of areas is : %.2f \n',Ar);\n", +"printf('\t dimension ratio is 3:2:1 \n');\n", +"L=((2/3)*(38.5*20.46*14.92)^(1/3));\n", +"printf('\t length is : %.0f ft \n',L);\n", +"printf('\t gas emissivity \n');\n", +"// From the analysis of the fuel, the steam quantity, and the assumption that the humidity of the air is 50 per cent of saturation at 60F, the partial pressures of CO2 and H2O in the combustion gases with 25 per cent excess air are\n", +"pCO2=0.1084;\n", +"pH2O=0.1248\n", +"pCO2L=1.63; // pCO2L=(pCO2*L)\n", +"pH2OL=1.87;\n", +"P=((pCO2)/(pCO2+pH2O));\n", +"printf('\t percentage correction at P : %.3f \n',P);\n", +"Pt=pCO2L+pH2OL;\n", +"printf('\t Pt is : %.2f \n',Pt);\n", +"// %correction estimated to be 8%\n", +"eG=(((6500+14500)-(650+1950))/(39000-4400))*((100-8)/100); // values from fig 19.12 and 19.13, eq 19.5\n", +"printf('\t eG is : %.3f \n',eG);\n", +"f=0.635; // from fig 19.15 as (AR/Acpt)=1.09 and eG=0.496\n", +"printf('\t overall exchange factor : %.3f \n',f);\n", +"Z=(Q1/(Acpt*f));\n", +"printf('\t Z is : %.2e \n',Z);\n", +"printf('\t TG required (at Ts = 800F) = 1670F compared with 1730°F assumed in heat balance) \n');\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 19.2: Calculation_of_a_Furnace_by_the_Method_of_Wilson_and_Lobo_and_Hottel.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 19.2 \n');\n", +"QF=50000000;\n", +"G=22.36;\n", +"Acpt=1500;\n", +"printf('\t approxiate values are mentioned in the book \n');\n", +"Q=(QF/(1+(G/4200)*(QF/Acpt)^(1/2))); // eq 19.15\n", +"printf('\t Q is : %.2e Btu/hr \n',Q);\n", +"printf('\t The radiant-section average rate will be 8350 Btu/(hr) (ft2), and the exit-flue-gas temperature 1540°F by heat balance. \n');\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 19.3: Calculation_of_Performance_by_the_Orrok_Hudson_Equation.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 19.3 \n');\n", +"Qr=1.5; // Qr=(QF2/QF1)\n", +"Cr=1.5; // Cr=(CR2/CR1)\n", +"Gr=140/125; // Gr=(G2/G1)\n", +"Qr1=0.38; // Qr1=(Q1/QF1)\n", +"printf('\t approxiate values are mentioned in the book \n');\n", +"a1=1.63; // a1=(G1*(CR1/27)^(1/2)), from eq 19.17\n", +"printf('\t a1 is : %.2f \n',a1);\n", +"a2=1.37*(a1); // a2=(G2*(CR2/27)^(1/2))\n", +"printf('\t a2 is : %.2f \n',a2);\n", +"Qr2=(1/(1+a2)); // Qr2=(Q2/QF2),from eq 19.15\n", +"printf('\t Qr2 is : %.2f \n',Qr2);\n", +"Q21=(Qr2/Qr1)*(Qr); // Q21=(Q2/Q1)\n", +"printf('\t ratio of heats is : %.2f \n',Q21);\n", +"printf('\t Hence the radiant absorption will be increased only 22 per cent for an increase of 50 per cent in the heat liberated. \n');\n", +"// end\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 19.4: Calculation_of_the_Equivalent_Radiant_Coefficient.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 19.4 \n');\n", +"eS=0.9; // assumed\n", +"TG=1500;\n", +"TS=650;\n", +"pCO2=0.1084;\n", +"pH2O=0.1248;\n", +"printf('\t approxiate values are mentioned in the book \n');\n", +"L=(0.4*8.5)-(0.567*5); // table 19.1\n", +"printf('\t L is : %.3f ft \n',L);\n", +"pH2OL=0.1248*L;\n", +"pCO2L=0.1084*L;\n", +"printf('\t pH2OL is : %.4f atm-ft \n',pH2OL);\n", +"printf('\t pCO2L is : %.4f atm-ft \n',pCO2L);\n", +"qH2O=1050; // at TG, from fig 19.12 ana 19.13\n", +"qCO2=1700; // at TG, from fig 19.12 ana 19.13\n", +"qTG=(qH2O+qCO2);\n", +"printf('\t qTG is : %.0f \n',qTG);\n", +"qsH2O=165; // at TS, from fig 19.12 ana 19.13\n", +"qsCO2=160; // at TS, from fig 19.12 ana 19.13\n", +"qTS=(qsH2O+qsCO2);\n", +"printf('\t qTG is : %.0f \n',qTS);\n", +"q=(0.9*(qTG-qTS)); // q=(QRC/A)\n", +"printf('\t q is : %.1f \n',q);\n", +"P=((pCO2)/(pCO2+pH2O));\n", +"printf('\t percentage correction at P : %.3f \n',P);\n", +"Pt=pCO2L+pH2OL;\n", +"printf('\t Pt is : %.4f \n',Pt);\n", +"// %correction estimated to be 2%\n", +"q1=(q*0.98); // // q1=(QRC/A)\n", +"printf('\t q1 is : %.2e \n',q1);\n", +"hr=(q1/(TG-TS));\n", +"printf('\t radiation coefficient is : %.2f Btu/(hr)*(ft^2)*(F) \n',hr);\n", +"//end\n", +"\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 19.5: Furnace_calculation.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 19.5 \n');\n", +"Q=500000;\n", +"printf('\t approxiate values are mentioned in the book \n');\n", +"a=(3.5+(3.14*4*(120/360)))/(2); // a=(alpha*Acp) from fig 19.17\n", +"AR=(3+3.6+3);\n", +"printf('\t a is : %.2f ft^2/ft \n',a);\n", +"printf('\t AR is : %.1f ft^2/ft \n',AR);\n", +"// Arbitrarily neglecting end wa.lls and also .the side wall refractory over 3'0' above the floor\n", +"R=(AR/a);\n", +"printf('\t ratio of two areas is : %.2f \n',R);\n", +"eG=0.265;\n", +"TG=1174; // F\n", +"TS=500; // F\n", +"f=0.56; // from fig 19.15 as (AR/Acpt)=2.49 and eG=0.265\n", +"q=15300; // at TG and TS,q=(Q/(a*f))\n", +"// However, the convection coefficient is small, 1.0 ± Btu/(hr)(ft2)('F), and AR/a is not 2.0 as in the assumptions for the Lobo and Evans equation.\n", +"q1=(q)-(7*(TG-TS)); // q1=(Q/(a*f))\n", +"printf('\t q1 is : %.2e Btu/(hr)*(ft^2) \n',q1);\n", +"q2=(q1*f); // q2=(Q/(a))\n", +"printf('\t q2 is : %.2e Btu/(hr)*(ft^2) \n',q2);\n", +"printf('\t convection rate basis \n');\n", +"q3=(1*(TG-TS)*(4.2/a)); // q2=(Q/(a))\n", +"printf('\t q3 is : %.1e Btu/(hr)*(ft^2) \n',q3); // calculation mistake in book\n", +"qt=(q2+q3); // qt=(Q/(a))\n", +"printf('\t qt is : %.2e Btu/(hr)*(ft^2) \n',qt);\n", +"ar=(Q/qt);\n", +"printf('\t required a is : %.0f ft^2 \n',ar);\n", +"L=(ar/a);\n", +"printf('\t length required is : %.1f ft \n',L);\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/2-Conduction.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/2-Conduction.ipynb new file mode 100644 index 0000000..3140934 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/2-Conduction.ipynb @@ -0,0 +1,216 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 2: Conduction" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 2.1: Value_of_Q.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"clc\n", +"//page 13\n", +"printf('\t Example 2.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"Tavg=900; // average temperature of the wall,F\n", +"k=0.15; // Thermal conductivity at 932 F,Btu/(hr)(ft^2)(F/ft)\n", +"T1=1500; // hot side temperature,F\n", +"T2=300; // cold side temperature,F\n", +"A=192; // surface area,ft^2\n", +"L=0.5; // thickness,ft\n", +"Q=(k)*(A)*(T1-T2)/L; // formula for heat,Btu/hr\n", +"printf('\t heat is : %.2e Btu/hr \n',Q);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 2.2: Temperature_increase.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"//Page 14\n", +"clc\n", +"printf('\t Example 2.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"La=8/12; // Thickness of firebrick wall,ft\n", +"Lb=4/12; // Thickness of insulating brick wall,ft\n", +"Lc=6/12; // Thickness of building brick wall,ft\n", +"Ka=0.68; // themal conductivity of firebrick,Btu/(hr)*(ft^2)*(F/ft)\n", +"Kb=0.15; // themal conductivity of insulating brick,Btu/(hr)*(ft^2)*(F/ft)\n", +"Kc=0.40; // themal conductivity of building brick,Btu/(hr)*(ft^2)*(F/ft)\n", +"A=1; // surface area,ft^2\n", +"Ta=1600; // temperature of inner wall,F\n", +"Tb=125; // temperature of outer wall.F\n", +"Ra=La/(Ka)*(A); // formula for resistance,(hr)*(F)/Btu\n", +"printf('\t resistance offered by firebrick : %.2f (hr)*(F)/Btu \n',Ra);\n", +"Rb=Lb/(Kb)*(A); // formula for resistance,(hr)*(F)/Btu\n", +"printf('\t resistance offered by insulating brick : %.2f (hr)*(F)/Btu \n',Rb);\n", +"Rc=Lc/(Kc)*(A); // formula for resistance,(hr)*(F)/Btu\n", +"printf('\t resistance offered by buildingbrick : %.2f (hr)*(F)/Btu \n',Rc);\n", +"R=Ra+Rb+Rc; // total resistance offered by three walls,(hr)*(F)/Btu\n", +"printf('\t total resistance offered by three walls : %.2f (hr)*(F)/Btu \n',R);\n", +"Q=(1600-125)/4.45; // using formula for heat loss/ft^2,Btu/hr\n", +"printf('\t heat loss/ft^2 : %.0f Btu/hr \n',Q);\n", +"// T1,T2 are temperatures at interface of firebrick and insulating brick, and insulating brick and building brick respectively,F\n", +"delta=(Q)*(Ra); // formula for temperature difference,F\n", +"printf('\t delta is : %.0f F \n',delta);\n", +"T1=Ta-((Q)*(Ra)); // temperature at interface of firebrick and insulating brick,F\n", +"printf('\t temperature at interface of firebrick and insulating brick :%.0f F \n',T1);\n", +"deltb=Q*(Rb);\n", +"printf('\t deltb is : %.0f F \n',deltb);\n", +"T2=T1-((Q)*(Rb)); //temperature at interface of insulating brick and building brick,F\n", +"printf('\t temperature at interface of insulating brick and building brick :%.0f F \n',T2);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 2.3: Value_of_Q.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"clc\n", +"//page 15\n", +"printf('\t example 2.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"Lair=0.25/12; // thickness of air film,ft\n", +"Kair=0.0265; // thermal conductivity of air at 572F,Btu/(hr)*(ft^2)(F/ft)\n", +"A=1; // surface area,ft^2\n", +"Rair=Lair/(Kair*(A)); // resistance offered by air film, (hr)(F)/Btu\n", +"printf('\t resistance offered by air film %.2f (hr)(F)/Btu \n',Rair);\n", +"R=4.45; // resistance from previous example 2.2,(hr)(F)/Btu\n", +"Rt=(R)+Rair; // total resistance,(hr)(F)/Btu\n", +"printf('\t total resistance %.2f (hr)(F)/Btu \n',Rt);\n", +"Ta=1600; // temperature of inner wall,F\n", +"Tb=125; // temperature of outer wall,F\n", +"Q=(1600-125)/Rt; // heat loss, Btu/hr\n", +"printf('\t heat loss %.2f Btu/hr \n',Q);" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 2.4: Heat_flow_through_pipe_wall.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"//page 16\n", +"clc\n", +"printf('\t example 2.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"k=0.63; // thermal conductivity of pipe, Btu/(hr)*(ft^2)*(F/ft)\n", +"Do=6; // in\n", +"Di=5; // in\n", +"Ti=200; // inner side temperature,F\n", +"To=175; // outer side temperature,F\n", +"q=(2*(3.14)*(k)*(Ti-To))/(2.3*log10(Do/Di)); // formula for heat flow,Btu/(hr)*(ft)\n", +"printf('\t heat flow is : %.0f Btu/(hr)*(ft) \n',q); \n", +"// caculation mistake in book\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 2.5: Temperature.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"clc\n", +"//page 19\n", +"printf('\t example 2.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"t1=150; // assume temperature of outer surface of rockwool,F\n", +"ta=70; // temperature of surrounding air,F\n", +"ha=2.23; // surface coefficient,Btu/(hr)*(ft^2)*(F)\n", +"q=(3.14)*(300-70)/(((2.3/(2*0.033))*log10(3.375/2.375))+(1/((2.23)*(3.375/12)))); // using formula for heat loss,Btu/(hr)*(lin ft), calculation mistake\n", +"printf('\t heat loss for linear foot is : %.1f Btu/(hr)*(lin ft) \n',q);\n", +"printf('\t Check between ts and t1, since delt/R = deltc/Rc \n');\n", +"t1=300-(((104.8)*((2.3)*(log10(3.375/2.375))))/((2)*(3.14)*(.033))); // using eq 2.31,F\n", +"printf('\t t1 is : %.1f F \n',t1);\n", +"t1=125; // assume temperature of outer surface of rockwool,F\n", +"ha=2.10; // surface coefficient,Btu/(hr)*(ft^2)*(F)\n", +"q=((3.14)*(300-70))/(((2.3/(2*0.033))*log10(3.375/2.375))+(1/((2.10)*(3.375/12)))); // using formula for heat loss,Btu/(hr)*(lin ft)\n", +"printf('\t heat loss for linear foot is : %.1f Btu/(hr)*(lin ft) \n',q);\n", +"printf('\t Check between ts and t1, since delt/R = deltc/Rc \n');\n", +"t1=300-(((103)*((2.3)*(log10(3.375/2.375))))/((2)*(3.14)*(.033))); // using eq 2.31,F\n", +"printf('\t t1 is : %.1f F \n',t1);\n", +"// end " + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/20-Additional_applications.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/20-Additional_applications.ipynb new file mode 100644 index 0000000..4a195d5 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/20-Additional_applications.ipynb @@ -0,0 +1,664 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 20: Additional applications" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.1: Calculation_of_a_Jacketed_Vessel.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T=150; // F\n", +"L=0.6; // ft\n", +"N=7500; // rev/hr\n", +"row=62.5; // lb/ft^3\n", +"mu=1.06; // at 150 F and from fig 14, lb/ft*hr\n", +"k=0.38; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"c=1; // Btu/(lb)*(F)\n", +"Rej=(L^2)*(N)*(row)/(mu);\n", +"printf('\t Rej is : %.1e \n',Rej);\n", +"Z=1; // Z=(mu/muw)^(0.14), regarded as 1 for water\n", +"Dj=1.01; // ft, from table 11\n", +"j=1100; // fig 20.2\n", +"hi=((j)*(k/Dj)*((c*mu/k)^(1/3))*(Z)^(0.14));\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"hoi=1500; // Btu/(hr)*(ft^2)*(F)\n", +"Uc=((hi*hoi)/(hi+hoi)); // from eq 6.38\n", +"printf('\t Uc is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=0.005;\n", +"hd=(1/Rd);\n", +"printf('\t hd is : %.0f \n',hd);\n", +"UD=((Uc*hd)/(Uc+hd));\n", +"printf('\t UD is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"A=3.43; // ft^2\n", +"Q=32600;\n", +"delt=(Q/(UD*A));\n", +"printf('\t temperature difference is : %.0f F \n',delt);\n", +"Ts=(T+delt);\n", +"printf('\t temperature of the steam : %.0f F \n',Ts);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.2: Calculation_of_a_Tube_Coil.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=150; // F\n", +"T2=220; // F\n", +"L=0.6; // ft\n", +"N=7500; // rev/hr\n", +"row=62.5; // lb/ft^3\n", +"mu=1.06; // at 150 F and from fig 14, lb/ft*hr\n", +"k=0.38; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"c=1; // Btu/(lb)*(F)\n", +"Rej=(L^2)*(N)*(row)/(mu);\n", +"printf('\t Rej is : %.1e \n',Rej);\n", +"Z=1; // Z=(mu/muw)^(0.14), regarded as 1 for water\n", +"Dj=1.01; // ft, from table 11\n", +"j=1700; // fig 20.2\n", +"hi=((j)*(k/Dj)*((c*mu/k)^(1/3))*(Z)^(0.14));\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"hoi=1500; // Btu/(hr)*(ft^2)*(F)\n", +"Uc=((hi*hoi)/(hi+hoi)); // from eq 6.38\n", +"printf('\t Uc is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=0.005;\n", +"hd=(1/Rd);\n", +"printf('\t hd is : %.0f \n',hd);\n", +"UD=((Uc*hd)/(Uc+hd));\n", +"printf('\t UD is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Q=32600;\n", +"A=(Q/(UD*(T2-T1)));\n", +"printf('\t Area is : %.2f ft^2 \n',A);\n", +"a=0.1309; // ft^2/ft\n", +"a1=(3.14*0.8*a);\n", +"printf('\t area per turn is : %.3f ft^2 \n',a1);\n", +"n=(A/a1);\n", +"printf('\t number of turns : %.1f \n',n);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.3: Calculation_of_a_Submerged_pipe_Coil_Slurry_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=675; // inlet hot fluid,F\n", +"T2=200; // outlet hot fluid,F\n", +"t1=120; // inlet cold fluid,F\n", +"t2=140; // outlet cold fluid,F\n", +"W=33100; // lb/hr\n", +"w=510000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for oil \n');\n", +"c=0.64; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for oil is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=230;\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"Tc=((T2)+(T1))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f \n',tc);\n", +"printf('\t hot fluid:inner tube side, oil \n');\n", +"at=0.0458; // flow area, ft^2, table 11\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"Gt=(W/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=5.56; // at 400F,lb/(ft)*(hr)\n", +"D=0.242; // ft, table 11\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=100; // from fig.24\n", +"Z=0.245; // Z=(k(c*mu/k)^(1/3)), Btu/(hr)*(ft)*(F/ft), fig 16\n", +"hi=((jH)*(Z/D)); //Hi=(hi/phyp),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=2.9; // ft\n", +"OD=3.5; // ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hio to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"ho=150; // Btu/(hr)*(ft^2)\n", +"tw=(tc)+(((hio)/(hio+ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"tf=(tw+tc)/2;\n", +"printf('\t tf is : %.0f F \n',tf);\n", +"delt=110; // F\n", +"d0=3.5; // in, fig 10.4\n", +"Uc=((ho*hio)/(ho+hio)); // from eq 6.38\n", +"printf('\t Uc is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=0.01;\n", +"hd=(1/Rd);\n", +"printf('\t hd is : %.0f \n',hd);\n", +"UD=((Uc*hd)/(Uc+hd));\n", +"printf('\t UD is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"A=(Q/(UD*(LMTD)));\n", +"printf('\t Area is : %.0f ft^2 \n',A);\n", +"a=0.917; // ft^2/ft, table 11\n", +"L=(A/(a*24));\n", +"printf('\t pipe length : %.0f \n',L);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.4: Calculation_of_a_Trombone_2.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=450; // inlet hot fluid,F\n", +"T2=150; // outlet hot fluid,F\n", +"t1=85; // inlet cold fluid,F\n", +"t2=100; // outlet cold fluid,F\n", +"W=3360; // lb/hr\n", +"w=11100; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for SO2 \n');\n", +"c=0.165; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for SO2 is : %.3e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.3e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"R=20;\n", +"S=0.0412;\n", +"FT=0.98; // fig 18\n", +"delt=(FT*LMTD);\n", +"printf('\t delt is : %.0f F \n',delt);\n", +"Tc=((T2)+(T1))/(2); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/(2); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f \n',tc);\n", +"printf('\t hot fluid:inner tube side, SO2 \n');\n", +"at=0.0512; // flow area, ft^2, table 11\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"Gt=(W/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=0.041; // at 300F,lb/(ft)*(hr), fig 15\n", +"D=0.256; // ft, table 11\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Ret);\n", +"jH=790; // from fig.24\n", +"Z=0.006831; // Z=(k(c*mu/k)^(1/3)), Btu/(hr)*(ft)*(F/ft)\n", +"hi=((jH)*(Z/D)); //Hi=(hi/phyp),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.1f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=3.068; // ft\n", +"OD=3.5; // ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hio to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"printf('\t cold fluid water \n');\n", +"L=8; // ft\n", +"G=(w/(2*L));\n", +"printf('\t G : %.0f lb/(hr)*(ft) \n',G);\n", +"mu1=1.94; // at 92.5F, lb/(ft)*(hr)\n", +"Re=(4*G/mu1);\n", +"printf('\t Re is : %.2e \n',Re);\n", +"Do=0.292; // ft\n", +"ho=(65*(G/Do)^(1/3));\n", +"printf('\t ho is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((ho*hio)/(ho+hio)); // from eq 6.38\n", +"printf('\t Uc is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=0.01;\n", +"hd=(1/Rd);\n", +"printf('\t hd is : %.0f \n',hd);\n", +"UD=((Uc*hd)/(Uc+hd));\n", +"printf('\t UD is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"A=(Q/(UD*(LMTD)));\n", +"printf('\t Area is : %.1f ft^2 \n',A); // calculation mistake in book\n", +"a=0.917; // ft^2/ft, table 11\n", +"l=(A/(a*8));\n", +"printf('\t pipe length : %.2f \n',l);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.5: Calculation_of_an_Atmospheric_Jacket_Water_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"Nt=25; // number of tubes\n", +"A=50; // total projected area\n", +"Tav=100; // F\n", +"s=28; // assumption spray, lb/(min)*(ft^2)\n", +"Do=0.0833; // ft\n", +"PH=0.1562;\n", +"Y=0.874;\n", +"Z=0.466;\n", +"E=(0.171*(Do*Y*Z)^0.1); // (E/(Do*Y*Z)^0.1)=0.171, from fig 20.10\n", +"printf('\t evaporation percentage is : %.2f \n',E);\n", +"Q=(295*500*(143-130));\n", +"printf('\t heat load is : %.2e Btu/hr \n',Q);\n", +"Q1=(Q*(1-0.12));\n", +"printf('\t sensible heat is : %.2e Btu/hr \n',Q1);\n", +"t2=(90)+(Q1/(28*60*50));\n", +"printf('\t final spray temperature is : %.0f F \n',t2);\n", +"w=(s*60*50);\n", +"printf('\t total spray : %.1e lb/hr \n',w);\n", +"m=(w/(2*4*12));\n", +"printf('\t m is : %.0f lb/(hr)*(ft^2) \n',m);\n", +"mu=1.84; // lb/(ft)*(hr)\n", +"Z=((m^0.3)*Do*Y*Z/(mu*0.125));\n", +"printf('\t Z is : %.2f \n',Z);\n", +"N=3; // assume 3 horizontal rows\n", +"ho=300*(N^0.05); // (ho/(N^0.05))=300, from fig 20.11\n", +"printf('\t ho is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t tube side coefficient \n');\n", +"printf('\t assuming even number of passes and tube side velocity about 8fps \n');\n", +"at=0.0775; // ft^2\n", +"Gt=(295*500/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t velocity is : %.2f fps \n',V);\n", +"hi=2140; // Btu/(hr)*(ft^2)*(F), fig 25\n", +"ID=0.87; // ft\n", +"OD=1; // ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hio to the surface at the OD is : %.2e Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"Uc=((ho*hio)/(ho+hio)); // from eq 6.38\n", +"printf('\t Uc is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"a=0.2618; // ft^2, table 11\n", +"A1=(2*3*25*12*a);\n", +"printf('\t total surface is : %.0f ft^2 \n',A1);\n", +"T1=143; // inlet hot fluid,F\n", +"T2=130; // outlet hot fluid,F\n", +"t1=90; // inlet cold fluid,F\n", +"t2=110; // outlet cold fluid,F\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD); // calculation mistake in book\n", +"R=0.65;\n", +"S=0.377;\n", +"FT=0.97; // fig 18\n", +"delt=(FT*LMTD);\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"UD=(Q/(A1*(delt)));\n", +"printf('\t UD is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t The assumption of three horizontal rows is satisfactory, since a dirt factor of 0.004 was required \n');\n", +"// end\n", +"\n", +"\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.6: Calculation_of_the_True_Temperature_Difference.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.6 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=200; // inlet hot fluid,F\n", +"T2=100; // outlet hot fluid,F\n", +"t1=50; // inlet cold fluid,F\n", +"t2=100; // outlet cold fluid,F\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.0f \n',R);\n", +"V=((T1+T2-t1-t2)/(t2-t1))/(2);\n", +"printf('\t V is : %.1f \n',V);\n", +"u=120;\n", +"U=60;\n", +"F=((u*1)/(U*2));\n", +"printf('\t F is : %.0f \n',F);\n", +"E=1.1; // In Fig.20.18b for R = 2.0and F = l.O,the abscissa and ordinate intersect at E =1.10.\n", +"Z=(E/V);\n", +"printf('\t Z is : %.3f \n',Z);\n", +"deltD=0.783*V; // deltD/V=0.783, from fig 20.17\n", +"printf('\t deltD is : %.3f \n',deltD);\n", +"delt=(deltD*(t2-t1));\n", +"printf('\t delt is : %.1f \n',delt);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.7: calculation_of_Sand_Cooling_with_Negllgible_Resistance.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.7 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=284; // inlet hot fluid,F\n", +"T2=104; // outlet hot fluid,F\n", +"t1=86; // inlet cold fluid,F\n", +"t2=104; // outlet cold fluid,F\n", +"W=1000; // lb/hr\n", +"k=0.15; // thermal conductivity\n", +"L=10;\n", +"Beta=((2*k)/(500*(2/12))); // hoi=500Btu/(hr)*(ft^2)*(F) for water\n", +"printf('\t beta is : %.4f \n',Beta);\n", +"printf('\t for sand \n');\n", +"C=0.2; // Btu/(lb)*(F)\n", +"Q=((W)*(C)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for sand is : %.1e Btu/hr \n',Q);\n", +"c=1;\n", +"w=(Q/(t2-t1));\n", +"printf('\t w is : %.0e lb/hr \n',w);\n", +"R=((W*C)/(w*c));\n", +"printf('\t R is : %.1f \n',R);\n", +"S=((T2-T1)/(t1-T1));\n", +"printf('\t S is : %.2f \n',S);\n", +"W1=(8.33*(k*L)/C); // ((W1*C)/(k*L))=8.33 from fig 20.20b for Beta=0\n", +"printf('\t rate per tube is : %.1f lb/hr \n',W1);\n", +"N1=(W/W1);\n", +"printf('\t number of tubes : %.0f \n',N1);\n", +"printf('\t for air assume hoi=9 and Beta=0.2 \n');\n", +"c1=0.25;\n", +"w1=(Q/(c1*(t2-t1)));\n", +"printf('\t w1 is : %.0e lb/hr \n',w1);\n", +"W2=(5.23*(k*L)/C); // ((W1*C)/(k*L))=5.23 from fig 20.20b for Beta=0.2\n", +"printf('\t rate per tube is : %.0f lb/hr \n',W2);\n", +"N2=(W/W2);\n", +"printf('\t number of tubes : %.0f \n',N2);\n", +"// end\n", +"\n", +"\n", +"\n", +"\n", +"\n", +"\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.8_1: Immersion_Water_Heater.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.8a \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"L=3; // ft\n", +"B=2; // ft\n", +"h=18/12; // ft , height of water present in tank\n", +"printf('\t unsteady state \n');\n", +"m=(L*B*h*62.5);\n", +"printf('\t Lb of water is : %.1f lb \n',m);\n", +"t1=50;\n", +"t2=150;\n", +"c=1;\n", +"Q=(m*c*(t2-t1))/(2*3412); // kwhr\n", +"printf('\t heat to be supplied : %.2f kwhr \n',Q);\n", +"printf('\t losses \n');\n", +"Q1=(L*B*260)/(1000); // from fig 20.25c\n", +"printf('\t from surface of water : %.2f kwhr \n',Q1);\n", +"Q2=(5.5*((2*B*2)+(2*L*B))/(1000)); // from fig 20.25c\n", +"printf('\t from sides of vessel : %.2f kwhr \n',Q2);\n", +"printf('\t losses from bottom are negigible \n');\n", +"Qt=(Q+Q1+Q2);\n", +"printf('\t total requirement : %.2f kwhr \n',Qt);\n", +"printf('\t steady state \n');\n", +"m1=8; // gal/hr\n", +"Qs=(m1*8.33*c*(t2-t1))/(3412); // kwhr\n", +"printf('\t heat to be supplied : %.2f kwhr \n',Qs);\n", +"Qts=(Qs+Q1+Q2);\n", +"printf('\t total requirement : %.2f kwhr \n',Qts);\n", +"// end\n", +"" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.8_2: Strip_Heater_for_Air_Heating.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.8b \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"m=100; // lb\n", +"t1=70;\n", +"t2=370; \n", +"L=4;\n", +"B=3;\n", +"n=4; // number of air changers\n", +"c1=0.12\n", +"Q1=(m*c1*(t2-t1));\n", +"printf('\t heat to steel charge : %.1e Btu \n',Q1);\n", +"c2=0.25\n", +"Q2=(n*L*B*2*0.075*c2*(t2-t1));\n", +"printf('\t heat to air : %.1e Btu \n',Q2);\n", +"printf('\t From Fig. 20.25a for 52ft^2 of oven outside·surface and a temperature rise of 300F the loss is 5kw for 1 in.thick insulations.For 2 in.thick insulation the loss is 2.5kw \n');\n", +"Qt=((Q1+Q2)/(3412))+(2.5);\n", +"printf('\t total requirement : %.2f kw \n',Qt);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.8_3: Finned_strip_Heater.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.8c \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"m=270; // cfm\n", +"t1=70;\n", +"t2=120; \n", +"L=1.5; // ft\n", +"B=1.5; // ft\n", +"c=0.25\n", +"row=0.075; // lb/ft^3\n", +"Q=(m*row*60*c*(t2-t1));\n", +"printf('\t heat : %.2e Btu \n',Q);\n", +"V=(m/(L*B*60)); // fps\n", +"printf('\t velocity is : %.0f fps \n',V);\n", +"printf('\t Refer to Fig.20.22a.The air is capable of removing 33watts/in which is the maximum dissipation which may be expected. Any group of heaters providing 5 kw which do not require a dissipation of more than 33 w/in. and which will fit into the duct will be satisfactory \n');\n", +"printf('\t Thus in Table 20.3 elements of 350 watts with a total length each of 18 in. each are satisfactory \n');\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 20.8_4: Clamp_on_Plastic_Heating.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 20.8d \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"t1=70;\n", +"t2=300; \n", +"L=26; // in\n", +"B=12; // in\n", +"H=1; // in\n", +"c1=0.13\n", +"// specific gravity of cast iron is 7.2\n", +"printf('\t unsteady state \n');\n", +"m=(L*B*H*62.5*7.2/1728); // lb\n", +"printf('\t weight of plate : %.0f lb \n',m);\n", +"Q1=(m*c1*(t2-t1));\n", +"printf('\t heat : %.1e Btu \n',Q1);\n", +"printf('\t From Figure 20.25b for a black body the radiation is 1.5w/in^2.The radiation from the top is actually 110 per cent of this value, and from the bottom of the plate it is 55 per cent for an average of 82.5 per cent is taken \n');\n", +"Q2=(2*26*12*1.5*0.825/1000); // ke\n", +"printf('\t radiation loss : %.1f kw \n',Q2);\n", +"Qt=((Q1)/(3412))+(Q2);\n", +"printf('\t total requirement : %.1f kw \n',Qt);\n", +"printf('\t staedy state \n');\n", +"m2=70;\n", +"c2=0.22;\n", +"Qs=(m2*c2*(t2-t1));\n", +"printf('\t heat : %.2e Btu \n',Qs);\n", +"Ql=0.8; // kw\n", +"Qts=((Qs)/(3412))+(Ql);\n", +"printf('\t total requirement : %.2f kw \n',Qts);\n", +"printf('\t The steady state is controlling.The requirements are satisfied, by four 24-in. strip heaters, but the sheath temperature must now be checked. Since the temperature drop per unit flux density is 14 to 19F, assume an average of 16.5°F. For clamp-on strips 24 in. long the watts per square inch deliverable are 16 \n');\n", +"delt=(16*16.5);\n", +"printf('\t delt is : %.0f F \n',delt);\n", +"printf('\t The sheath temperature is then 300 + 264 = 564°F, which is satisfactory for steel sheathed elements with a 750F maximum. \n');\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/4-Radiation.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/4-Radiation.ipynb new file mode 100644 index 0000000..8a19823 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/4-Radiation.ipynb @@ -0,0 +1,155 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 4: Radiation" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 4.1: Radiation_between_large_2_planes.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"clc\n", +"//page 75\n", +"printf('\t example 4.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=1000+460; // R\n", +"T2=800+460; // R\n", +"Q=((0.173)*((14.6)^4-(12.6)^4)); // using eq.4.24,Btu/(hr)*(ft^2)\n", +"printf('\t heat removed from colder wall per unit area is : %.0f Btu/(hr)*(ft^2) \n',Q);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 4.2: Radiation_between_Planes_with_Different_Emissivities.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 4.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=1000+460; // R\n", +"T2=800+460; // R\n", +"e1=0.6; // emissivity of hotter wall\n", +"e2=0.8; // emissivity of colder wall\n", +"Q=(((0.173)/((1/0.6)+(1/0.8)-1))*((14.6)^4-(12.6)^4)); // using eq.4.26,heat loss per unit area,Btu/(hr)*(ft^2)\n", +"printf('\t heat removed from colder wall per unit area is : %.0f Btu/(hr)*(ft^2) \n',Q);\n", +"printf('\t For perfect black bodies the value was 3500 Btu/(hr)(ft^2) \n');\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 4.3: Calculation_of_Radiation_from_a_Pipe.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"clc\n", +"//page 78\n", +"printf('\t example 4.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=125+460; // R\n", +"T2=70+460; // R\n", +"e=0.9; // emissivity,using table 4.1B\n", +"A=(%pi)*(3.375/12)*(1); // area,ft^2/lin ft\n", +"printf('\t area is : %.2f ft^2/lin ft \n',A);\n", +"Q=(0.9)*(0.88)*(0.173)*((T1/100)^4-(T2/100)^4); // heat loss using eq.4.32,Btu/(hr)*(lin ft)\n", +"printf('\t heat loss is : %.1f Btu/(hr)*(lin ft) \n',Q);\n", +"hr=(Q)/((A)*(T1-T2)); // fictitious film coefficient,using eq 4.33,Btu/(hr)(ft^2)(F)\n", +"printf('\t fictitious film coefficient is : %.2f Btu/(hr)(ft^2)(F) \n',hr);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 4.4: Radiation_from_a_Pipe_to_a_Duct.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"clc\n", +"//page 82\n", +"printf('\t example 4.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=300+460; // R\n", +"T2=75+460; //R\n", +"A1=0.622; // area from table 11 in the appendix A,ft^2/lin ft\n", +"A2=4*(1*1); // surface area of duct,ft^2/lin ft\n", +"e1=0.79; // emissivity of oxidized steel from table 4.1\n", +"e2=0.276; // emissivity of oxidized zinc from table 4.1\n", +"printf('\t surface area of pipe is : %.3f ft^2/lin ft \n',A1);\n", +"printf('\t surface area of duct is : %.0f ft^2/lin ft \n',A2);\n", +"printf('\t The surface of the pipe is not negligible by comparison with that of the duct, and(f) of Table 4.2 applies most nearly \n');\n", +"Fa=1; // from table 4.2\n", +"Fe=((1)/((1/e1)+((A1/A2)*((1/e2)-1)))); // from table 4.2\n", +"printf('\t Fe is : %.2f \n',Fe);\n", +"Q=(0.173*10^-8)*(Fa)*(Fe)*(A1)*((T1)^4-(T2)^4); // heat loss due to radiation,Btu/(hr)*(lin ft)\n", +"printf('\t heat loss due to radiation is : %.0f Btu/(hr)*(lin ft) \n',Q);\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/5-Temperature.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/5-Temperature.ipynb new file mode 100644 index 0000000..d013263 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/5-Temperature.ipynb @@ -0,0 +1,285 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 5: Temperature" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 5.1: Calculation_of_the_LMTD.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 5.1 \n');\n", +"T1=300; // hot fluid inlet temperature,F\n", +"T2=200; // hot fluid outlet temperature,F\n", +"t1=100; // cold fluid inlet temperature,F\n", +"t2=150; // cold fluid outlet temperature,F\n", +"printf('\t for counter current flow \n');\n", +"delt1=T1-t2; //F\n", +"delt2=T2-t1; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"printf('\t for parallel flow \n');\n", +"delt1=T1-t1; // F\n", +"delt2=T2-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 5.2: Calculation_of_the_LMTD_with_Equal_Outlet_Temperatures.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 5.2 \n');\n", +"T1=300; // hot fluid inlet temperature,F\n", +"T2=200; // hot fluid outlet temperature,F\n", +"t1=150; // cold fluid inlet temperature,F\n", +"t2=200; // cold fluid outlet temperature,F\n", +"printf('\t for counter current flow \n');\n", +"delt1=T1-t2; //F\n", +"delt2=T2-t1; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"printf('\t for parallel flow \n');\n", +"delt1=T1-t1; // F\n", +"delt2=T2-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"if(delt2==0);\n", +" printf('\t denominator becomes infinity so LMTD becomes Zero \n');\n", +" printf('\t LMTD is Zero \n');\n", +"else\n", +" LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +" end\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 5.3: Calculation_of_the_LMTD.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 5.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=300; // hot fluid inlet temperature,F\n", +"T2=200; // hot fluid outlet temperature,F\n", +"t1=100; // cold fluid inlet temperature,F\n", +"t2=275; // cold fluid outlet temperature,F\n", +"printf('\t for counter current flow \n');\n", +"deltc=T2-t1; //F\n", +"delth=T1-t2; // F\n", +"printf('\t delth is : %.0f F \n',delth);\n", +"printf('\t deltc is : %.0f F \n',deltc);\n", +"LMTD=((delth-deltc)/((2.3)*(log10(delth/deltc))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 5.4: Calculation_of_the_LMTD_with_One_Isothermal_Fluid.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 5.4 \n');\n", +"printf('\t process is isothermal with hot fluid so temperature of hot fluid remains constant \n');\n", +"T1=300; // hot fluid inlet temperature,F\n", +"T2=300; // hot fluid outlet temperature,F\n", +"t1=100; // cold fluid inlet temperature,F\n", +"t2=275; // cold fluid outlet temperature,F\n", +"printf('\t for counter current flow \n');\n", +"delt1=T1-t2; //F\n", +"delt2=T2-t1; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"printf('\t for parallel flow \n');\n", +"delt1=T1-t1; // F\n", +"delt2=T2-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"if(delt2==0);\n", +" printf('\t denominator becomes infinity so LMTD becomes Zero \n');\n", +" printf('\t LMTD is Zero \n');\n", +"else\n", +" LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +" end\n", +"printf('\t these are identical \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 5.5: Calculation_of_point.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 5.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"printf('\t for inlet \n');\n", +"t1=99.1; // temperature of inlet,F\n", +"t2=129.2; // temperature of outlet,F\n", +"c=.478; // Btu/(hr)*(ft)*(F/ft)\n", +"mu=2.95*2.42; // lb/(ft)(hr)\n", +"k=0.078; // Btu/(hr)*(ft)*(F/ft)\n", +"G=854000; // mass velocity,lb/(ft^2)(hr)\n", +"D=0.622/12; // diameter,ft\n", +"Re=((D)*((G)/(mu)))^(0.9);\n", +"printf('\t Re is : %.2e \n',Re);\n", +"Pr=((c)*(mu)/k)^(1/3); // prandtl number raised to power 1/3\n", +"printf('\t Pr is : %.2f \n',Pr);\n", +"Nu=0.0115*(Re)*(Pr); // formula for nusselt number\n", +"printf('\t nusselt number is : %.0f \n',Nu);\n", +"hi=((k)*(Nu)/(D)); // heat transfer coefficient\n", +"printf('\t heat transfer coefficient is : %.0f \n',hi); // caculation mistake in book\n", +"printf('\t for outlet \n');\n", +"c=.495; // Btu/(hr)*(ft)*(F/ft)\n", +"mu=2.20*2.42; // lb/(ft)(hr)\n", +"k=0.078; // Btu/(hr)*(ft)*(F/ft)\n", +"G=854000; // mass velocity,lb/(ft^2)(hr)\n", +"D=0.622/12; // diameter,ft\n", +"Re=((D)*((G)/(mu)))^(.9); // reynolds number raised to poer 0.9, calculation mistake in book\n", +"printf('\t Re is : %.2e \n',Re);\n", +"Pr=((c)*(mu)/k)^(1/3); // prandtl number raised to power 1/3\n", +"printf('\t Pr is : %.2f \n',Pr);\n", +"Nu=0.0115*(Re)*(Pr); // formula for nusselt number\n", +"printf('\t nusselt number is : %.0f \n',Nu);\n", +"hi=((k)*(Nu)/(D)); // heat transfer coefficient\n", +"printf('\t heat transfer coefficient is : %.0f \n',hi); // caculation mistake in book\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 5.6: Calculation_of_the_Caloric_Temperature.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 5.6 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=300; // hot fluid inlet temperature,F\n", +"T2=200; // hot fluid outlet temperature,F\n", +"t1=80; // cold fluid inlet temperature,F\n", +"t2=120; // cold fluid outlet temperature,F\n", +"printf('\t for counter current flow \n');\n", +"delT=T1-T2; // temperature difference for crude oil,F\n", +"printf('\t temperature difference for crude oil is : %.0f F \n',delT);\n", +"Kc=0.68; // from fig.17\n", +"delt=t2-t1; // temperature difference for gasoline,F\n", +"printf('\t temperature difference for gasoline is : %.0f F \n',delt);\n", +"Kc<=0.10; // from fig.17\n", +"printf('\t The larger value of K. correspQnds to the controlling heat transfer coefficient which is assumed to establish the variation of U with temperature \n');\n", +"deltc=T2-t1; //F\n", +"delth=T1-t2; // F\n", +"printf('\t deltc is : %.0f F \n',deltc);\n", +"printf('\t delth is : %.0f F \n',delth);\n", +"A=((deltc)/(delth));\n", +"printf('\t ratio of two local temperature difference is : %.3f \n',A);\n", +"Fc=0.425; // from fig.17\n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"// end\n", +"" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/6-CounterflowDouble_pipe_exchangers.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/6-CounterflowDouble_pipe_exchangers.ipynb new file mode 100644 index 0000000..78cd86a --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/6-CounterflowDouble_pipe_exchangers.ipynb @@ -0,0 +1,349 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 6: CounterflowDouble pipe exchangers" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 6.1: Double_Pipe_Benzene_Toluene_Exchanger.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 6.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=160; // inlet hot fluid,F\n", +"T2=100; // outlet hot fluid,F\n", +"t1=80; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"w=9820; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for benzene \n');\n", +"tav=((t1+t2)/2); // F\n", +"printf('\t average temperature of benzene is : %.0f F \n',tav);\n", +"c=0.425; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for benzene is : %.2e Btu/hr \n',Q);\n", +"printf('\t for toulene \n');\n", +"Tav=((T1+T2)/2); //F\n", +"printf('\t average temperature of toulene is : %.0f F \n',Tav);\n", +"c=0.44; // Btu/(lb)*(F)\n", +"W=((Q)/((c)*(T1-T2))); // lb/hr\n", +"printf('\t W is :%.2e lb/hr \n',W);\n", +"printf('\t 2.LMTD \n');\n", +"printf('\t for counter current flow \n');\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"printf('\t 3.caloric temperatures \n');\n", +"printf('\t both streams will show that neither is viscous at the cold terminal (the viscosities less than 1 centipoise) and the temperature ranges and temperature difference are moderate. The coefficients may accordingly be evaluated from properties at the arithmetic mean, and the value of (mu/muw)^0.14 may be assumed equal to 1.0 \n');\n", +"tav=((t1+t2)/2); // F\n", +"printf('\t average temperature of benzene is : %.0f F \n',tav);\n", +"Tav=((T1+T2)/2); //F\n", +"printf('\t average temperature of toulene is : %.0f F \n',Tav);\n", +"printf('\t hot fluid:annulus,toulene \n');\n", +"D1=0.138; // ft\n", +"D2=0.1725; // ft\n", +"aa=((%pi)*(D2^2-D1^2)/4); // flow area,ft^2\n", +"printf('\t flow area is : %.5f ft^2 \n',aa);\n", +"De=(D2^2-D1^2)/D1; // equiv diameter,ft\n", +"printf('\t equiv diameter is : %.4f ft \n',De);\n", +"Ga=(W/aa); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Ga);\n", +"mu1=0.41*2.42; // at 130 F,lb/(ft)*(hr)\n", +"Rea=((De)*(Ga)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Rea);\n", +"jH=167; // from fig.24\n", +"c=0.44; // Btu/(lb)*(F),at 130F\n", +"k=0.085; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Pr=((c)*(mu1)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"ho=((jH)*(k/De)*(Pr)*(1^0.14)); // using eq.6.15b,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner pipe,benzene \n');\n", +"D=0.115; // ft\n", +"ap=((%pi)*(D^2)/4); // flow area, ft^2\n", +"printf('\t flow area is : %.4f ft^2 \n',ap);\n", +"Gp=(w/ap); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gp);\n", +"mu2=0.5*2.42; // at 130 F,lb/(ft)*(hr)\n", +"Rep=((D)*(Gp)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Rep);\n", +"jH=236; // from fig.24\n", +"c=0.425; // Btu/(lb)*(F),at 130F\n", +"k=0.091; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Pr=((c)*(mu2)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"hi=((jH)*(k/D)*(Pr)*(1^0.14)); // using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=1.38; // ft\n", +"OD=1.66; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hi to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=0.002; // required by problem,(hr)*(ft^2)*(F)/Btu\n", +"UD=((Uc)/((1)+(Uc*Rd))); // design overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"A=((Q)/((UD)*(LMTD))); // required surface,ft^2\n", +"printf('\t required surface is : %.1f ft^2 \n',A);\n", +"A1=0.435; // From Table 11 for 1(1/4)in IPS standard pipe there are 0.435 ft2 of external surface per foot length,ft^2\n", +"L=(A/A1); // required length;lin ft\n", +"printf('\t required length is : %.0f lin ft \n',L);\n", +"printf('\t This may be fulfilled by connecting three 20-ft hairpins in series \n');\n", +"A2=120*0.435; // actual surface supplied,ft^2\n", +"printf('\t actual surface supplied is : %.1f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(LMTD)));\n", +"printf('\t actual design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"De1=(D2-D1); //ft\n", +"printf('\t De1 is : %.4f ft \n',De1);\n", +"Rea1=((De1)*(Ga)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Rea1);\n", +"f=(0.0035)+((0.264)/(Rea1^0.42)); // friction factor, using eq.3.47b\n", +"printf('\t friction factor is : %.4f \n',f);\n", +"s=0.87;\n", +"row=62.5*0.87; // from table 6\n", +"delFa=((4*f*(Ga^2)*L)/(2*4.18*(10^8)*(row^2)*(De1))); // ft\n", +"printf('\t delFa is : %.1f ft \n',delFa);\n", +"V=((Ga)/(3600*row)); //fps\n", +"printf('\t V is : %.2f fps \n',V);\n", +"Fl=((3*(V^2))/(2*32.2)); //ft\n", +"printf('\t Fl is : %.1f ft \n',Fl);\n", +"delPa=((delFa+Fl)*(row)/144); // psi\n", +"printf('\t delPa is : %.1f psi \n',delPa);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=(0.0035)+((0.264)/(Rep^0.42)); // friction factor, using eq.3.47b\n", +"printf('\t friction factor is : %.4f \n',f);\n", +"s=0.88;\n", +"row=62.5*0.88; // from table 6\n", +"delFp=((4*f*(Gp^2)*L)/(2*4.18*(10^8)*(row^2)*(D))); // ft\n", +"printf('\t delFp is : %.1f ft \n',delFp);\n", +"delPp=((delFp)*(row)/144); // psi\n", +"printf('\t delPp is : %.1f psi \n',delPp);\n", +"printf('\t allowable delPp is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 6.2: Calculation_of_the_True_Temperature_Difference.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 6.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=300; // inlet hot fluid,F\n", +"T2=200; // outlet hot fluid,F\n", +"t1=190; // inlet cold fluid,F\n", +"t2=220; // outlet cold fluid,F\n", +"n=6; // number of parallel streams\n", +"P=((T2-t1)/(T1-t1));\n", +"printf('\t P is : %.3f \n',P);\n", +"R=((T1-T2)/((n)*(t2-t1)));\n", +"printf('\t R is : %.3f \n',R);\n", +"gama=((1-P)/((2.3)*((n*R)/(R-1))*log10(((R-1)/R)*(1/P)^(1/n)+(1/R)))); // using eq.6.35a\n", +"printf('\t gama is : %.3f \n',gama);\n", +"delt=(gama*(T1-t1)); // true temperature difference,F\n", +"printf('\ true temperature difference is : %.1f F \n',delt);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 6.3: Double_Pipe_Lube_Oil_Crude_Oil_Exchanger.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 6.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=450; // inlet hot fluid,F\n", +"T2=350; // outlet hot fluid,F\n", +"t1=300; // inlet cold fluid,F\n", +"t2=310; // outlet cold fluid,F\n", +"W=6900; // lb/hr\n", +"w=72500; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for lube oil \n');\n", +"c=0.62; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for lube oil is : %.2e Btu/hr \n',Q);\n", +"printf('\t for crude oil \n');\n", +"c=0.585; // Btu/(lb)*(F)\n", +"Q1=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for crude oil is : %.2e Btu/hr \n',Q1); // calculation mistake in book\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"A=((delt1)/(delt2));\n", +"printf('\t ratio of two local temperature difference is : %.3f \n',A);\n", +"Fc=0.395; // from fig.17\n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.1f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:annulus,lube oil \n');\n", +"D1=0.199; // ft\n", +"D2=0.256; // ft\n", +"aa=((%pi)*(D2^2-D1^2)/4); // flow area,ft^2\n", +"printf('\t flow area is : %.4f ft^2 \n',aa);\n", +"De=(D2^2-D1^2)/D1; // equiv diameter,ft\n", +"printf('\t equiv diameter is : %.2f ft \n',De);\n", +"Ga=(W/aa); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Ga);\n", +"mu1=3*2.42; // at 389.5F,lb/(ft)*(hr), from fig.14\n", +"Rea=((De)*(Ga)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.0e \n',Rea);\n", +"jH=20.5; // from fig.24\n", +"c=0.615; // Btu/(lb)*(F),at 130F\n", +"k=0.067; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Pr=((c)*(mu1)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"Ho=((jH)*(k/De)*(Pr)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"printf('\t cold fluid:inner pipe,crude oil \n');\n", +"D=0.172; // ft\n", +"ap=((%pi)*(D^2)/4); // flow area, ft^2\n", +"printf('\t flow area is : %.4f ft^2 \n',ap);\n", +"Gp=(w/(2*ap)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gp);\n", +"mu2=0.83*2.42; // at 304 F,lb/(ft)*(hr)\n", +"Rep=((D)*(Gp)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Rep);\n", +"jH=320; // from fig.24\n", +"c=0.585; // Btu/(lb)*(F),at 304F,from fig.4\n", +"k=0.073; // Btu/(hr)*(ft^2)*(F/ft), from fig.1\n", +"Pr=((c)*(mu2)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"Hi=((jH)*(k/D)*(Pr)*(1^0.14)); //Hi=(hi/phyp),using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t Hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"ID=2.067; // ft\n", +"OD=2.38; //ft\n", +"Hio=((Hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct Hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"muw=0.77*2.42; // lb/(ft)*(hr), from fig.14\n", +"phyp=(mu2/muw)^0.14;\n", +"printf('\t phyp is : %.0f \n',phyp); // from fig.24\n", +"hio=(Hio)*(1); // from eq.6.37\n", +"printf('\t Correct hio to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"tw=(tc)+(((Ho)/(Hio+Ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"muw=6.6*2.42; // lb/(ft)*(hr), from fig.14\n", +"phya=(mu1/muw)^0.14;\n", +"printf('\t phya is : %.1f \n',phya); // from fig.24\n", +"ho=(Ho)*(phya); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.1f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"Rd=0.006; // required by problem,(hr)*(ft^2)*(F)/Btu\n", +"UD=((Uc)/((1)+(Uc*Rd))); // design overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"A=((Q)/((UD)*(LMTD))); // required surface,ft^2\n", +"printf('\t required surface is : %.0f ft^2 \n',A);\n", +"A1=0.622; // From Table 11,ft^2\n", +"Lr=(A/A1); // required length;lin ft\n", +"printf('\t required length is : %.0f lin ft \n',Lr);\n", +"printf('\t Since two parallel streams are employed, use eight 20 ft hairpins or 320 lin. feet \n');\n", +"L=320;\n", +"A2=320*0.622; // actual surface supplied,ft^2\n", +"printf('\t actual surface supplied is : %.1f ft^2 \n',A2);\n", +"UD=((Q)/((A2)*(LMTD)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"De1=.058; //ft\n", +"printf('\t De1 is : %.3f ft \n',De1);\n", +"Rea1=((De1)*(Ga)/7.25); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Rea1);\n", +"f=(0.0035)+((0.264)/(2680^0.42)); // friction factor, using eq.3.47b\n", +"printf('\t friction factor is : %.4f \n',f);\n", +"s=0.775;\n", +"row=62.5*0.775; // from fig 6\n", +"delFa=((4*f*(Ga^2)*L)/(2*4.18*(10^8)*(row^2)*(De1))); // ft\n", +"printf('\t delFa is : %.1f ft \n',delFa);\n", +"V=((Ga)/(3600*row)); //fps\n", +"printf('\t V is : %.1f fps \n',V);\n", +"delFl=((8*(V^2))/(2*32.2)); //ft\n", +"printf('\t delFl is : %.2f ft \n',delFl);\n", +"delPa=((delFa+delFl)*(row)/144); // psi\n", +"printf('\t delPa is : %.1f psi \n',delPa);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=(0.0035)+((0.264)/(Rep^0.42)); // friction factor, using eq.3.47b\n", +"printf('\t friction factor is : %.5f \n',f);\n", +"s=0.76;\n", +"row=62.5*0.76; // from table 6\n", +"Lp=160;\n", +"delFp=((4*f*(Gp^2)*Lp)/(2*4.18*(10^8)*(row^2)*(D))); // ft\n", +"printf('\t delFp is : %.1f ft \n',delFp);\n", +"delPp=((delFp)*(row)/144); // psi\n", +"printf('\t delPp is : %.1f psi \n',delPp);\n", +"printf('\t allowable delPp is 10 psi \n');\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/7-Parallel_Counterflow_Shell_and_Tube_Excahngers.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/7-Parallel_Counterflow_Shell_and_Tube_Excahngers.ipynb new file mode 100644 index 0000000..e15b284 --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/7-Parallel_Counterflow_Shell_and_Tube_Excahngers.ipynb @@ -0,0 +1,749 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 7: Parallel Counterflow Shell and Tube Excahngers" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.1: shell_side_equivalent.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.1 \n');\n", +"PT=1; // square pitch,in\n", +"do=0.75; // outer diameter,in\n", +"de=((4*(PT^2-(3.14*do^2/4)))/(3.14*do));\n", +"printf('\t equivalent diameter is : %.2f in \n',de);\n", +"De=(de/12); // ft\n", +"printf('\t De is : %.3f in \n',De);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.2: Calculation_of_FT_for_Fluids_with_Equal_Ranges.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"printf('\t considering 50F approach \n');\n", +"T1=350; //F\n", +"T2=250; //F\n", +"t2=T2-50; // formula for approach,f\n", +"printf('\t t2 is : %.0f F \n',t2);\n", +"printf('\t fluids are with equal ranges,so \n');\n", +"t1=t2-(T1-T2); // F\n", +"printf('\t t1 is : %.0f F \n',t1);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.0f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.2f \n',S);\n", +"printf('\t FT is 0.925 \n'); // from fig 18\n", +"printf('\t considering 0F approach \n');\n", +"T1=300; //F\n", +"T2=200; //F\n", +"t2=T2-0; // formula for approach,f\n", +"printf('\t t2 is : %.0f F \n',t2);\n", +"printf('\t fluids are with equal ranges,so \n');\n", +"t1=t2-(T1-T2); // F\n", +"printf('\t t1 is : %.0f F \n',t1);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.0f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.2f \n',S);\n", +"printf('\t FT is 0.80 \n'); // from fig 18\n", +"printf('\t considering 20F cross \n');\n", +"T1=280; //F\n", +"T2=180; //F\n", +"t2=T2+20; // formula for approach,f\n", +"printf('\t t2 is : %.0f F \n',t2);\n", +"printf('\t fluids are with equal ranges,so \n');\n", +"t1=t2-(T1-T2); // F\n", +"printf('\t t1 is : %.0f F \n',t1);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.0f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.64 \n'); // from fig 18\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.3: Calculation_of_a_Kerosene_Crude_Oil_Exchanger.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=390; // inlet hot fluid,F\n", +"T2=200; // outlet hot fluid,F\n", +"t1=100; // inlet cold fluid,F\n", +"t2=170; // outlet cold fluid,F\n", +"W=43800; // lb/hr\n", +"w=149000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for kerosene \n');\n", +"c=0.605; // Btu/(lb)*(F)\n", +"Q1=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for kerosene is : %.1e Btu/hr \n',Q1); // calculation mistake in problem\n", +"printf('\t for crude oil \n');\n", +"c=0.49; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for mid continent crude is : %.1e Btu/hr \n',Q); // calculation mistake in problem\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.2f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.905 \n'); // from fig 18\n", +"delt=(0.905*LMTD); // F\n", +"printf('\t delt is : %.0f F \n',delt);\n", +"X=((delt1)/(delt2));\n", +"printf('\t ratio of two local temperature difference is : %.3f \n',X);\n", +"Fc=0.42; // from fig.17\n", +"Kc=0.20; // crude oil controlling\n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,kerosene \n');\n", +"ID=21.25; // in\n", +"C=0.25; // clearance\n", +"B=5; // baffle spacing,in\n", +"PT=1.25;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2\n", +"printf('\t flow area is : %.4f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.40*2.42; // at 280F,lb/(ft)*(hr), from fig.14\n", +"De=0.99/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=93; // from fig.28\n", +"c=0.59; // Btu/(lb)*(F),at 280F,from fig.4\n", +"k=0.0765; // Btu/(hr)*(ft^2)*(F/ft), from fig.1\n", +"Pr=((c)*(mu1)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"Ho=((jH)*(k/De)*(Pr)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"printf('\t cold fluid:inner tube side,crude oil \n');\n", +"D=0.0675; // ft\n", +"Nt=158;\n", +"n=4; // number of passes\n", +"L=16; //ft\n", +"at1=0.515; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=3.6*2.42; // at 129F,lb/(ft)*(hr)\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=31; // from fig.24\n", +"c=0.49; // Btu/(lb)*(F),at 304F,from fig.4\n", +"k=0.077; // Btu/(hr)*(ft^2)*(F/ft), from fig.1\n", +"Pr=((c)*(mu2)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"Hi=((jH)*(k/D)*(Pr)*(1^0.14)); //Hi=(hi/phyp),using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t Hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hi);\n", +"ID=0.81; // ft\n", +"OD=1; //ft\n", +"Hio=((Hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct Hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',Hio);\n", +"muw=1.5*2.42; // lb/(ft)*(hr), from fig.14\n", +"phyt=(mu2/muw)^0.14;\n", +"printf('\t phyt is : %.2f \n',phyt); // from fig.24\n", +"hio=(Hio)*(phyt); // from eq.6.37\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"tw=(tc)+(((Ho)/(Hio+Ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"muw=0.56*2.42; // lb/(ft)*(hr), from fig.14\n", +"phys=(mu1/muw)^0.14;\n", +"printf('\t phys is : %.2f \n',phys); // from fig.24\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.2618; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.5f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.00175; // friction factor for reynolds number 25300, using fig.29\n", +"s=0.73; // for reynolds number 25300,using fig.6\n", +"Ds=21.25/12; // ft\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPa is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000285; // friction factor for reynolds number 8220, using fig.26\n", +"s=0.83;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.15; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPs is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.4: Calculation_of_a_Distilled_water_Raw_water_Exchanger.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.4 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=93; // inlet hot fluid,F\n", +"T2=85; // outlet hot fluid,F\n", +"t1=75; // inlet cold fluid,F\n", +"t2=80; // outlet cold fluid,F\n", +"W=175000; // lb/hr\n", +"w=280000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for distilled water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for distilled water is : %.1e Btu/hr \n',Q);\n", +"printf('\t for raw water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for raw water is : %.1e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.2f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.945 \n'); // from fig 18\n", +"delt=(0.945*LMTD); // F\n", +"printf('\t delt is : %.2f F \n',delt);\n", +"X=((delt1)/(delt2));\n", +"printf('\t ratio of two local temperature difference is : %.3f \n',X);\n", +"Fc=0.42; // from fig.17\n", +"Kc=0.20; // crude oil controlling\n", +"Tc=((T2)+(T1))/2; // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"printf('\t hot fluid:shell side,distilled water \n');\n", +"ID=15.25; // in\n", +"C=0.1875; // clearance\n", +"B=12; // baffle spacing,in\n", +"PT=0.9375;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2,using eq.7.1\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2),using eq.7.2\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.81*2.42; // at 89F,lb/(ft)*(hr), from fig.14\n", +"De=0.55/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=73; // from fig.28\n", +"c=1; // Btu/(lb)*(F),at 89F,from fig.table 4\n", +"k=0.36; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Pr=((c)*(mu1)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"ho=((jH)*(k/De)*(Pr)); // using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.2e Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,raw water \n');\n", +"Nt=160;\n", +"n=2; // number of passes\n", +"L=16; //ft\n", +"at1=0.334; // flow area, in^2,from table 10\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.3e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is %.1f fps \n',V);\n", +"mu2=0.92*2.42; // at 77.5F,lb/(ft)*(hr)\n", +"D=0.65/12; //ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=1350*0.99; //using fig.25,Btu/(hr)*(ft^2)*(F)\n", +"ID=0.65; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"printf('\t ·when both. film coefficients are high the thermal resistance of the tube metal is not necessarily insignificant as assumed in the derivation of Eq. (6.38). For a steel 1.8 BWG tube Rm= 0.00017 and for copper Rm= 0.000017 \n');\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0019; // friction factor for reynolds number 16200, using fig.29\n", +"s=1; // for reynolds number 25300,using fig.6\n", +"Ds=15.25/12; // ft\n", +"phys=1;\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPs is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00019; // friction factor for reynolds number 36400, using fig.26\n", +"s=1;\n", +"phyt=1;\n", +"D=0.054; // ft\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.33; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.5: Calculation_of_the_Optimum_Outlet_water_Temperature.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.5 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=175; // inlet hot fluid,F\n", +"T2=150; // outlet hot fluid,F\n", +"t1=85; // inlet cold fluid,F\n", +"delt1=T2-t1; //F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"U=15; // assumption,Btu/(hr)*(ft^2)*(F)\n", +"theta=8000; // operating hours,hr\n", +"CW=(0.01/8300); // water cost,$/lb\n", +"printf('\t For annual charges assume 20 per cent repair and maintenanc.e and 10 per cent depreciation \n');\n", +"CF=(0.3*4); // annual fixed charges/ft^2\n", +"c=1; // Btu/(lb)*(F)\n", +"X=((U)*(theta)*(CW)/(CF*c));\n", +"printf('\t X is : %.4f \n',X);\n", +"Y=((T1-T2)/delt1);\n", +"printf('\t Y is : %.2f \n',Y);\n", +"A=0.96; // A=(delt2/delt1), from fig 7.24\n", +"delt2=0.96*delt1;\n", +"printf('\t delt2 is : %.1f F \n',delt2);\n", +"t2=T1-delt2; // F\n", +"printf('\t t2 is : %.1f F \n',t2);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.6: Calculation_of_a_Phosphate_Solution_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.6 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=150; // inlet hot fluid,F\n", +"T2=90; // outlet hot fluid,F\n", +"t1=68; // inlet cold fluid,F\n", +"t2=90; // outlet cold fluid,F\n", +"W=20160; // lb/hr\n", +"w=41600; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for solution \n');\n", +"c=(0.3*0.19)+(0.7*1); // Btu/(lb)*(F), bcoz of 30 percent of solution\n", +"Q1=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for solution is : %.2e Btu/hr \n',Q1);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.2f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.81 \n'); // from fig 18\n", +"delt=(0.81*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"Tc=((T2)+(T1))/2; // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.1f F \n',tc);\n", +"printf('\t hot fluid:shell side,phosphate solution \n');\n", +"ID=10.02; // in\n", +"C=0.25; // clearance\n", +"B=2; // baffle spacing,in\n", +"PT=1;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2,using eq.7.1\n", +"printf('\t flow area is : %.4f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2),using eq.7.2\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=1.20*2.42; // at 120F,lb/(ft)*(hr), from fig.14\n", +"De=0.95/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.3e \n',Res);\n", +"jH=71; // from fig.28\n", +"c=1; // Btu/(lb)*(F),at 120F,from fig.table 4\n", +"k=0.33; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Pr=((0.757)*(mu1)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"ho=((jH)*(k/De)*(Pr)); // using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,raw water \n');\n", +"Nt=52;\n", +"n=2; // number of passes\n", +"L=16; //ft\n", +"at1=0.302; // flow area, in^2,from table 10\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5));\n", +"printf('\t V is %.1f fps \n',V);\n", +"mu2=0.91*2.42; // at 79F,lb/(ft)*(hr),from table 14\n", +"D=(0.62/12); // from table 10\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=800*1; //using fig.25,Btu/(hr)*(ft^2)*(F)\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.5f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.0019; // friction factor for reynolds number 15750, using fig.29\n", +"s=1.3; // for reynolds number 25300,using fig.6\n", +"Ds=10.02/12; // ft\n", +"phys=1;\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPs is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00023; // friction factor for reynolds number 17900, using fig.26\n", +"s=1;\n", +"phyt=1;\n", +"D=0.0517; // ft\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.08; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.7: The_Optimum_Use_of_Exhaust_and_Process_Steam.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.7 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"U=50; // Btu/(hr)*(ft^2)*(F)\n", +"TP=328; // F\n", +"TE=228; // F\n", +"CP=(0.30/(888.8*1000));\n", +"CE=(0.05/(960*1000));\n", +"CF=1.20;\n", +"theta=8000; // annual hours\n", +"X=((CF*(TP-TE))/((CP-CE)*U*theta)); // from eq 7.53\n", +"printf('\t X is : %.9f \n',X);\n", +"a=(1); // coefficient of t^2\n", +"b=(-556); // coefficient of t\n", +"c=(74784-X); // constant\n", +"printf('\t coefficient of t^2 is : %.2f \n',a);\n", +"printf('\t coefficient of t is : %.2f \n',b);\n", +"printf('\t constant term is : %.9f \n',c);\n", +"P=poly([c b a], 't','c');\n", +"t=roots(P);\n", +"printf('\t t is :%.0f \n',t);\n", +"printf('\t t cannot be greater than 328F \n \t t is 218F \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.8: Calculation_of_a_Sugar_solution_Heater_without_Baflles.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.8 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=228; // inlet hot fluid,F\n", +"T2=228; // outlet hot fluid,F\n", +"t1=100; // inlet cold fluid,F\n", +"t2=122; // outlet cold fluid,F\n", +"W=200000; // lb/hr\n", +"w=3950; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for solution \n');\n", +"c=(0.2*0.30)+(0.8*1); // bcoz of 20 percent solution,Btu/(lb)*(F)\n", +"Q1=((W)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for solution is : %.2e Btu/hr \n',Q1);\n", +"printf('\t for steam \n');\n", +"l=960.1; // latent heat of condensation,Btu/(lb)\n", +"Q=((w)*(l)); // Btu/hr\n", +"printf('\t total heat required for steam is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.0f \n',R);\n", +"delt=(LMTD); // when R=0,F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"printf('\t The steam coefficient will be very great compared with that for the sugar solution, and the tube wall will be considerably nearer 228°F than the caloric temperature of the fluid. Obtain Fc from U1 and U0 Failure to correct for wall effects, however, will keep the heater calculation on the safe side.\n');\n", +"ta=111; //F\n", +"Ta=228; //f\n", +"printf('\t hot fluid:tube side,steam \n');\n", +"Nt=76;\n", +"n=2; // number of passes\n", +"L=16; //ft\n", +"at1=0.302; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2elb/(hr)*(ft^2) \n',Gt);\n", +"mu2=0.0128*2.42; // at 228F,lb/(ft)*(hr)\n", +"D=(0.62/12); // from table 10,ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hio=1500; // for condensation of steam\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"printf('\t cold fluid:shell side,sugar solution \n');\n", +"ID=12; // in\n", +"d=0.75/12; // diameter of tube,ft\n", +"Nt=76; // number of tubes\n", +"as=((3.14*(12^2)/4)-(76*3.14*(0.75^2)/4))/144; // flow area,ft^2\n", +"printf('\t flow area is : %.2f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=1.30*2.42; // at 111F,lb/(ft)*(hr), from fig.14\n", +"De=((4*as)/(Nt*3.14*d)); // from eq.6.3,ft\n", +"printf('\t De is : %.3f ft \n',De);\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=61.5; // from fig.24, tube side data\n", +"c=0.86; // Btu/(lb)*(F),at 111F,from fig.4\n", +"k=0.333; // Btu/(hr)*(ft^2)*(F/ft)\n", +"Pr=((c)*(mu1)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.0f \n',Pr);\n", +"Ho=((jH)*(k/De)*(Pr)); // H0=(h0/phya),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"muw=0.51*2.42; // at 210F,lb/(ft)*(hr), from fig.14\n", +"phys=(mu1/muw)^0.14;\n", +"printf('\t phys is : %.2f \n',phys); // from fig.24\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"tw=(ta)+(((hio)/(hio+Ho))*(Ta-ta)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(LMTD)));\n", +"printf('\t actual design overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000155; // friction factor for reynolds number 82500, using fig.26\n", +"s=0.0008;\n", +"phyt=1;\n", +"D=0.0517; \n", +"delPt=((f*(Gt^2)*(L)*(2))/(5.22*(10^10)*(D)*(s)*(phyt)))/2; // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"printf('\t pressure drop for annulus \n');\n", +"De1=((4*as)/((Nt*3.14*d)+(3.14*1))); // from eq.6.4,ft\n", +"printf('\t De1 is : %.3f ft \n',De1);\n", +"Res1=(De1*Gs/mu1); // from eq 7.3\n", +"printf('\t Res1 is : %.2e \n',Res1);\n", +"f=0.00025; // friction factor, using fig.26\n", +"s=1.08; // for reynolds number 25300,using fig.6\n", +"delPs=((f*(Gs^2)*(L)*(1))/(5.22*(10^10)*(De1)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.2f psi \n',delPs);\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 7.9: Outlet_Temperatures.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 7.9 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=390; // F\n", +"t1=100; // F\n", +"U=69.3; // Btu/(hr)*(ft^2)*(F)\n", +"A=662; // ft^2\n", +"W=43800; // lb/hr\n", +"w=149000; // lb/hr\n", +"C=0.60; // Btu/(lb)*(F)\n", +"c=0.49; // Btu/(lb)*(F)\n", +"X=((U*A)/(w*c));\n", +"printf('\t X is : %.2f \n',X);\n", +"R=((w*c)/(W*C));\n", +"printf('\t R is : %.2f \n',R);\n", +"S=0.265; // from fig 7.25, by comparing X an R\n", +"t2=(t1)+((0.265)*(T1-t1)); // S=((t2-t1)/(T1-t1))\n", +"printf('\t t2 is : %.0f F \n',t2);\n", +"T2=((T1)-((R)*(t2-t1))); // R=((T1-T2)/(t2-t1))\n", +"printf('\t T2 is : %.0f F \n',T2);\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/8-Flow_Arrangements_for_increased_heat_recovery.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/8-Flow_Arrangements_for_increased_heat_recovery.ipynb new file mode 100644 index 0000000..f6fe1ac --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/8-Flow_Arrangements_for_increased_heat_recovery.ipynb @@ -0,0 +1,294 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 8: Flow Arrangements for increased heat recovery" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 8.1: Calculation_of_a_Oil_Cooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 8.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=358; // inlet hot fluid,F\n", +"T2=100; // outlet hot fluid,F\n", +"t1=90; // inlet cold fluid,F\n", +"t2=120; // outlet cold fluid,F\n", +"W=49600; // lb/hr\n", +"w=233000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for oil \n');\n", +"c=0.545; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for oil is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2e Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.0f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.1f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.93 \n'); // from fig 19 for 2-4 exchanger\n", +"delt=(0.93*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"X=((delt1)/(delt2));\n", +"printf('\t ratio of two local temperature difference is : %.3f \n',X);\n", +"Fc=0.25; // from fig.17\n", +"Kc=0.47; // crude oil controlling\n", +"Tc=((T2)+((Fc)*(T1-T2))); // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+((Fc)*(t2-t1))); // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,oil \n');\n", +"ID=35; // in\n", +"C=0.25; // clearance\n", +"B=7; // baffle spacing,in\n", +"PT=1.25;\n", +"as=((ID*C*B)/(144*PT))/2; // flow area,ft^2,from eq 7.1\n", +"printf('\t flow area is : %.2f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2),from eq 7.2\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=1.12*2.42; // at 165F,lb/(ft)*(hr), from fig.14\n", +"De=0.99/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.1e \n',Res);\n", +"jH=52.5; // from fig.28\n", +"Z=0.2; // Z=(k)*(Pr*(1/3)) prandelt number\n", +"Ho=((jH)*(1/De)*(Z)); // H0=(h0/phys),using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Ho);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"Nt=454;\n", +"n=6; // number of passes\n", +"L=12; //ft\n", +"at1=0.455; // flow area, in^2\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5)); // fps\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=0.73*2.42; // at 98F,lb/(ft)*(hr),from fig 14\n", +"D=(0.76/12); // ft,from table 10\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=1010*0.96; // using fig 25,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.76; // ft\n", +"OD=1; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"tw=(tc)+(((Ho)/(hio+Ho))*(Tc-tc)); // from eq.5.31\n", +"printf('\t tw is : %.0f F \n',tw);\n", +"muw=1.95*2.42; // lb/(ft)*(hr), from fig.14\n", +"phys=(mu1/muw)^0.14;\n", +"printf('\t phys is : %.2f \n',phys); // from fig.24\n", +"ho=(Ho)*(phys); // from eq.6.36\n", +"printf('\t Correct h0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.2618; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"Q=6980000; // taking rounded value,Btu/hr\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.00215; // friction factor for reynolds number 8900, using fig.29\n", +"s=0.82; // for reynolds number 25300,using fig.6\n", +"Ds=35/12; // ft\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(2*N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.0f psi \n',delPs);\n", +"printf('\t allowable delPs is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000195; // friction factor for reynolds number 34900, using fig.26\n", +"s=1;\n", +"D=0.0633; //ft\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.13; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 8.2: calculation_of_an_Acetone_Acetic_Acid_Exchanger.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 8.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=250; // inlet hot fluid,F\n", +"T2=100; // outlet hot fluid,F\n", +"t1=90; // inlet cold fluid,F\n", +"t2=150; // outlet cold fluid,F\n", +"W=60000; // lb/hr\n", +"w=168000; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for acetone \n');\n", +"c=0.57; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for acetone is : %.2e Btu/hr \n',Q); // calculation mistake in problem\n", +"printf('\t for acetic acid \n');\n", +"c=0.51; // Btu/(lb)*(F)\n", +"Q1=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for acetic acid is : %.2e Btu/hr \n',Q1); // calculation mistake in problem\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.1f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.3f \n',S);\n", +"printf('\t FT is 0.88 \n'); // from fig 20,for 3-6 exchanger\n", +"delt=(0.88*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"Tc=((T2)+(T1))/2; // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,acetone \n');\n", +"ID=21.25; // in\n", +"C=0.25; // clearance\n", +"B=5; // baffle spacing,in\n", +"PT=1;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.20*2.42; // at 175F,lb/(ft)*(hr), from fig.14\n", +"De=0.95/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"phys=1;\n", +"jH=137; // from fig.28\n", +"c=0.63; // Btu/(lb)*(F),at 175F,from fig.2\n", +"k=0.095; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"Pr=((c)*(mu1)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"ho=((jH)*(k/De)*(Pr)*1); // using eq.6.15b,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.0f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,acetic acid \n');\n", +"Nt=270;\n", +"n=2; // number of passes\n", +"L=16; //ft\n", +"at1=0.268; // flow area, in^2,from table 10\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.3f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.1e lb/(hr)*(ft^2) \n',Gt);\n", +"mu2=0.85*2.42; // at 120F,lb/(ft)*(hr)\n", +"D=(0.584/12); // ft\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"jH=56; // from fig.24\n", +"c=0.51; // Btu/(lb)*(F),at 120F,from fig.2\n", +"k=0.098; // Btu/(hr)*(ft^2)*(F/ft), from table 4\n", +"phyt=1;\n", +"Pr=((c)*(mu2)/k)^(1/3); // prandelt number raised to power 1/3\n", +"printf('\t Pr is : %.3f \n',Pr);\n", +"hi=((jH)*(k/D)*(Pr)*(1^0.14)); // using eq.6.15a,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.584; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); //Hio=(hio/phyp), using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=3*(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.2e ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.4f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.00155; // friction factor for reynolds number 52200, using fig.29\n", +"s=0.79; // for reynolds number 25300,using table.6\n", +"Ds=21.25/12; // ft\n", +"N=(12*L/B)+1; // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"delPs=((f*(Gs^2)*(Ds)*(3*N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.1f psi \n',delPs);\n", +"printf('\t allowable delPs is 10 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.00024; // friction factor for reynolds number 158000, using fig.26\n", +"s=1.07;\n", +"D=0.0487; // ft\n", +"delPt=((f*(Gt^2)*(L)*(n*3))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.063; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=(3)*((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"//end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} diff --git a/Process_Heat_Transfer_by_D_Q_Kern/9-Gases.ipynb b/Process_Heat_Transfer_by_D_Q_Kern/9-Gases.ipynb new file mode 100644 index 0000000..af3bf9e --- /dev/null +++ b/Process_Heat_Transfer_by_D_Q_Kern/9-Gases.ipynb @@ -0,0 +1,276 @@ +{ +"cells": [ + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# Chapter 9: Gases" + ] + }, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 9.1: Calculation_of_an_Ammonia_Compressor_Aftercooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 9.1 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"T1=245; // inlet hot fluid,F\n", +"T2=95; // outlet hot fluid,F\n", +"t1=85; // inlet cold fluid,F\n", +"t2=95; // outlet cold fluid,F\n", +"W=9872; // lb/hr\n", +"w=78500; // lb/hr\n", +"printf('\t 1.for heat balance \n');\n", +"printf('\t for ammonia gas \n');\n", +"c=0.53; // Btu/(lb)*(F)\n", +"Q=((W)*(c)*(T1-T2)); // Btu/hr\n", +"printf('\t total heat required for ammonia gas is : %.2e Btu/hr \n',Q);\n", +"printf('\t for water \n');\n", +"c=1; // Btu/(lb)*(F)\n", +"Q=((w)*(c)*(t2-t1)); // Btu/hr\n", +"printf('\t total heat required for water is : %.2f Btu/hr \n',Q);\n", +"delt1=T2-t1; //F\n", +"delt2=T1-t2; // F\n", +"printf('\t delt1 is : %.0f F \n',delt1);\n", +"printf('\t delt2 is : %.0f F \n',delt2);\n", +"LMTD=((delt2-delt1)/((2.3)*(log10(delt2/delt1))));\n", +"printf('\t LMTD is :%.1f F \n',LMTD);\n", +"R=((T1-T2)/(t2-t1));\n", +"printf('\t R is : %.0f \n',R);\n", +"S=((t2-t1)/(T1-t1));\n", +"printf('\t S is : %.4f \n',S);\n", +"printf('\t FT is 0.837 \n'); // from fig 18\n", +"delt=(0.837*LMTD); // F\n", +"printf('\t delt is : %.1f F \n',delt);\n", +"Tc=((T2)+(T1))/2; // caloric temperature of hot fluid,F\n", +"printf('\t caloric temperature of hot fluid is : %.0f F \n',Tc);\n", +"tc=((t1)+(t2))/2; // caloric temperature of cold fluid,F\n", +"printf('\t caloric temperature of cold fluid is : %.0f F \n',tc);\n", +"printf('\t hot fluid:shell side,ammonia at 83psia \n');\n", +"ID=23.25; // in\n", +"C=0.1875; // clearance\n", +"B=12; // baffle spacing,in\n", +"PT=0.937;\n", +"as=((ID*C*B)/(144*PT)); // flow area,ft^2,from eq 7.1\n", +"printf('\t flow area is : %.3f ft^2 \n',as);\n", +"Gs=(W/as); // mass velocity,lb/(hr)*(ft^2),from eq 7.2\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gs);\n", +"mu1=0.012*2.42; // at 170F,lb/(ft)*(hr), from fig.15\n", +"De=0.55/12; // from fig.28,ft\n", +"Res=((De)*(Gs)/mu1); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Res);\n", +"jH=118; // from fig.28\n", +"k=0.017; // Btu/(hr)*(ft^2)*(F/ft),from table 5\n", +"Z=0.97; // Z=(Pr*(1/3)) prandelt number\n", +"ho=((jH)*(k/De)*(Z)*1); // using eq.6.15,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t individual heat transfer coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',ho);\n", +"printf('\t cold fluid:inner tube side,water \n');\n", +"Nt=364;\n", +"n=8; // number of passes\n", +"L=8; //ft\n", +"at1=0.302; // flow area, in^2,from table 10\n", +"at=((Nt*at1)/(144*n)); // total area,ft^2,from eq.7.48\n", +"printf('\t flow area is : %.4f ft^2 \n',at);\n", +"Gt=(w/(at)); // mass velocity,lb/(hr)*(ft^2)\n", +"printf('\t mass velocity is : %.2e lb/(hr)*(ft^2) \n',Gt);\n", +"V=(Gt/(3600*62.5)); // fps\n", +"printf('\t V is : %.2f fps \n',V);\n", +"mu2=0.82*2.42; // at 90F,lb/(ft)*(hr),from fig 14\n", +"D=(0.62/12); // ft,from table 10\n", +"Ret=((D)*(Gt)/mu2); // reynolds number\n", +"printf('\t reynolds number is : %.2e \n',Ret);\n", +"hi=900; // using fig 25,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n',hi);\n", +"ID=0.62; // ft\n", +"OD=0.75; //ft\n", +"hio=((hi)*(ID/OD)); // using eq.6.5\n", +"printf('\t Correct hi0 to the surface at the OD is : %.0f Btu/(hr)*(ft^2)*(F) \n',hio);\n", +"Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)\n", +"printf('\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',Uc);\n", +"A2=0.1963; // actual surface supplied for each tube,ft^2,from table 10\n", +"A=(Nt*L*A2); // ft^2\n", +"printf('\t total surface area is : %.0f ft^2 \n',A);\n", +"UD=((Q)/((A)*(delt)));\n", +"printf('\t actual design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n',UD);\n", +"Rd=((Uc-UD)/((UD)*(Uc))); // (hr)*(ft^2)*(F)/Btu\n", +"printf('\t actual Rd is : %.3f (hr)*(ft^2)*(F)/Btu \n',Rd);\n", +"printf('\t pressure drop for annulus \n');\n", +"f=0.00162; // friction factor for reynolds number 40200, using fig.29\n", +"Ds=23.25/12; // ft\n", +"phys=1;\n", +"N=(12*L/B); // number of crosses,using eq.7.43\n", +"printf('\t number of crosses are : %.0f \n',N);\n", +"rowgas=0.209;\n", +"printf('\t rowgas is %.3f lb/ft^3 \n',rowgas);\n", +"s=rowgas/62.5;\n", +"printf('\t s is %.5f \n',s);\n", +"delPs=((f*(Gs^2)*(Ds)*(N))/(5.22*(10^10)*(De)*(s)*(phys))); // using eq.7.44,psi\n", +"printf('\t delPs is : %.0f psi \n',delPs);\n", +"printf('\t allowable delPs is 2 psi \n');\n", +"printf('\t pressure drop for inner pipe \n');\n", +"f=0.000225; // friction factor for reynolds number 21400, using fig.26\n", +"s=1;\n", +"D=0.0517; //ft\n", +"phyt=1;\n", +"delPt=((f*(Gt^2)*(L)*(n))/(5.22*(10^10)*(D)*(s)*(phyt))); // using eq.7.45,psi\n", +"printf('\t delPt is : %.1f psi \n',delPt);\n", +"X1=0.090; // X1=((V^2)/(2*g)), for Gt 1060000,using fig.27\n", +"delPr=((4*n*X1)/(s)); // using eq.7.46,psi\n", +"printf('\t delPr is : %.1f psi \n',delPr);\n", +"delPT=delPt+delPr; // using eq.7.47,psi\n", +"printf('\t delPT is : %.1f psi \n',delPT);\n", +"printf('\t allowable delPT is 10 psi \n');\n", +"//end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 9.2: Calculation_of_the_Heat_Load_for_an_Air_Intercooler.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 9.2 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"V1=4670; // inlet air volume,cfm\n", +"Pp=0.8153; // Saturation partial pressure of water at 95F,psi,from table 7\n", +"Ps=404.3;// Saturation specific volume of water at 95F,ft^3/lb, from table 7\n", +"printf('\t The air and water both occupy the same volume at their respective partial pressures \n');\n", +"Vw1=(V1*60/Ps); // water entering per hr,lb\n", +"printf('\t volume of water entering is : %.0f lb \n',Vw1);\n", +"printf('\t for first stage \n');\n", +"c=2.33; // compression ratio\n", +"P1=14.7; // psi\n", +"P2=(P1*c); // (c=(P2/P1)),psi\n", +"printf('\t P2 is : %.1f psi \n',P2);\n", +"gama=1.4; // for air\n", +"T1abs=95; // F\n", +"T2absr=((T1abs+460)*(P2/P1)^((gama-1)/gama));\n", +"printf('\t T2absr is : %.0f R \n',T2absr);\n", +"T2abs=(T2absr-459.67); // F\n", +"printf('\t T2abs is : %.0f F \n',T2abs);\n", +"printf('\t for intercooler \n');\n", +"V2=(V1*60*P1/P2); // ft^3/hr\n", +"printf('\t final gas volume is : %.1e ft^3/hr \n',V2);\n", +"Vw2=(V2/Ps); // water remaining in air, lb/hr\n", +"printf('\t water remaining in air is : %.0f lb/hr \n',Vw2);\n", +"C=(Vw1-Vw2); // condensation in inter cooler, lb/hr\n", +"printf('\t condensation in inter cooler is : %.0f lb/hr \n',C);\n", +"Vs=14.8; // Specific volume of atmospheric air,ft^3/lb\n", +"printf('\t Specific volume of atmospheric air is : %.1f ft^3/lb \n',Vs);\n", +"Va=(V1*60/Vs); // air in inlet gas, lb/hr\n", +"printf('\t air in inlet gas is : %.2e lb/hr\n',Va);\n", +"printf('\t heat load(245 to 95F) \n)');\n", +"printf('\t sensible heat \n');\n", +"Qair=((Va)*(0.25)*(245-T1abs)); // Btu/hr\n", +"printf('\t Qair is : %.2e Btu/hr \n',Qair);\n", +"Qwaters=(Vw1*0.45*(245-T1abs)); // Btu/hr\n", +"printf('\t Qwaters is : %.2e Btu/hr \n',Qwaters);\n", +"printf('\t latent heat \n');\n", +"l=1040.1; // latent heat\n", +"Qwaterl=(C*l); // Btu/hr\n", +"printf('\t Qwater1 is : %.2e Btu/hr \n',Qwaterl);\n", +"Qt1=Qair+Qwaters+Qwaterl;\n", +"printf('\t total heat is : %.3e Btu/hr \n',Qt1);\n", +"printf('\t for second stage \n');\n", +"c=2.33; // compression ratio\n", +"P3=(P2*c); // (c=(P3/P1)),psi\n", +"printf('\t P3 is : %.1f psi \n',P3);\n", +"V3=(V1*60*P1/P3); // ft^3/hr\n", +"printf('\t final gas volume is : %.2e ft^3/hr \n',V3);\n", +"Vw3=(V3/Ps); // water remaining in air, lb/hr\n", +"printf('\t water remaining in air is : %.1f lb/hr \n',Vw3);\n", +"C1=(297-Vw3); // condensation in inter cooler, lb/hr\n", +"printf('\t condensation in inter cooler is : %.1f lb/hr \n',C1);\n", +"printf('\t heat load(245 to 95F) \n)');\n", +"printf('\t sensible heat \n');\n", +"Qair=(Va*0.25*(245-T1abs)); // Btu/hr\n", +"printf('\t Qair is : %.2e Btu/hr \n',Qair);\n", +"Qwaters=(Vw2*0.44*(245-T1abs)); // Btu/hr\n", +"printf('\t Qwater is : %.2e Btu/hr \n',Qwaters);\n", +"printf('\t latent heat \n');\n", +"l=1040.1; // latent heat\n", +"Qwaterl=(C1*l); // Btu/hr, calculation mistake in book\n", +"printf('\t Qwater is : %.2e Btu/hr \n',Qwaterl);\n", +"Qt1=Qair+Qwaters+Qwaterl;\n", +"printf('\t total heat is : %.3e Btu/hr \n',Qt1);\n", +"// end" + ] + } +, +{ + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Example 9.3: Calculation_of_the_Dew_Point_after_Compression.sce" + ] + }, + { +"cell_type": "code", + "execution_count": null, + "metadata": { + "collapsed": true + }, + "outputs": [], +"source": [ +"printf('\t example 9.3 \n');\n", +"printf('\t approximate values are mentioned in the book \n');\n", +"Va=18900; // air in inlet gas\n", +"Vw1=692; // water entering\n", +"Ma=(Va/29); // moles\n", +"Mw=(Vw1/18); // moles\n", +"M=(Ma+Mw); // moles\n", +"printf('\t total number of moles re : %.1f \n',M);\n", +"printf('\t Moles of air is : %.0f \n',Ma);\n", +"printf('\t Moles of water is : %.1f \n',Mw);\n", +"printf('\t after compression \n');\n", +"P=34.2; // pressure,psi\n", +"pw=(Mw/M)*(P); // partial pressure\n", +"printf('\t partial pressure is :%.1f psi \n',pw);\n", +"Td=124; // F, table table 7\n", +"printf('\t dew point is : %.0f F \n',Td);\n", +"// end" + ] + } +], +"metadata": { + "kernelspec": { + "display_name": "Scilab", + "language": "scilab", + "name": "scilab" + }, + "language_info": { + "file_extension": ".sce", + "help_links": [ + { + "text": "MetaKernel Magics", + "url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md" + } + ], + "mimetype": "text/x-octave", + "name": "scilab", + "version": "0.7.1" + } + }, + "nbformat": 4, + "nbformat_minor": 0 +} -- cgit