initial commit / add all books

1 files changed, 40 insertions, 0 deletions

diff --git a/1328/CH10/EX10.4/10_4.sce b/1328/CH10/EX10.4/10_4.sce
new file mode 100644
index 000000000..84daa1b65
--- /dev/null
+++ b/1328/CH10/EX10.4/10_4.sce
@@ -0,0 +1,40 @@
+printf("\t example 10.4 \n");

+printf("\t approximate values are mentioned in the book \n");

+t1=100; // F

+t2=0; // F

+T1abs=100+460; // R

+T2abs=460; //R

+delt=t1-t2;

+printf("\t delt is : %.f F \n",delt);

+hc=0.3*(delt^0.25); // convection loss, Btu/(hr)*(ft^2)*(°F)

+printf("\t convection loss is : %.2f Btu/(hr)(ft^2)(F) \n",hc);

+e=0.8; // emissivity

+hr=((0.173*e*((T1abs/100)^4-(T2abs/100)^4))/(T1abs-T2abs)); // radiation rate, from 4.32, Btu/(hr)(ft^2)(F)

+printf("\t radiation loss is : %.2f Btu/(hr)(ft^2)(F) \n",hr);

+hl=hc+hr; // combined loss, Btu/(hr)(ft^2)(F)

+printf("\t combined loss is : %.1f Btu/(hr)(ft^2)(F) \n",hl);

+D=5; // ft

+L=12; // ft

+A1=((2*3.14*D^2)/(4))+(3.14*D*L); // total tank area

+printf("\t total tank area is : %.1f ft^2 \n",A1);

+Q=(hl*A1*delt); // total heat loss

+printf("\t total heat loss : %.2e Btu/hr \n",Q);

+printf("\t This heat must be supplied by the pipe bundle,Assuming exhaust steam to be at 212°F \n");

+d0=1.32;

+X=(delt/d0);

+tf=((t1+212)/2); // F

+printf("\t X is : %.0f \n",X);

+printf("\t tf is : %.0f F \n",tf);

+hio=48; // from fig 10.4, Btu/(hr)(ft^2)(F)

+ho=1500; // condensation of steam,Btu/(hr)(ft^2)(F)

+Uc=((hio)*(ho)/(hio+ho)); // clean overall coefficient,Btu/(hr)*(ft^2)*(F)

+printf("\t clean overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n",Uc);

+Rd=0.02; // dirt factor, (hr)(ft^2)(F)/Btu

+UD=((Uc)/((1)+(Uc*Rd))); // design overall coefficient,Btu/(hr)*(ft^2)*(F)

+printf("\t design overall coefficient is : %.1f Btu/(hr)*(ft^2)*(F) \n",UD);

+A2=((Q)/((UD)*(212-100))); // total surface,ft^2

+printf("\t total surface is : %.1f ft^2 \n",A2);

+A3=2.06; // area/pipe

+N=(A2/A3);

+printf("\t number of pipes are : %.0f \n",N);

+//end