initial commit / add all books

1 files changed, 30 insertions, 0 deletions

diff --git a/1328/CH19/EX19.5/19_5.sce b/1328/CH19/EX19.5/19_5.sce
new file mode 100644
index 000000000..1cf416bcf
--- /dev/null
+++ b/1328/CH19/EX19.5/19_5.sce
@@ -0,0 +1,30 @@
+printf("\t example 19.5 \n");

+Q=500000;

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

+a=(3.5+(3.14*4*(120/360)))/(2); // a=(alpha*Acp) from fig 19.17

+AR=(3+3.6+3);

+printf("\t a is : %.2f ft^2/ft \n",a);

+printf("\t AR is : %.1f ft^2/ft \n",AR);

+// Arbitrarily neglecting end wa.lls and also .the side wall refractory over 3'0" above the floor

+R=(AR/a);

+printf("\t ratio of two areas is : %.2f \n",R);

+eG=0.265;

+TG=1174; // F

+TS=500; // F

+f=0.56; // from fig 19.15 as (AR/Acpt)=2.49 and eG=0.265

+q=15300; // at TG and TS,q=(Q/(a*f))

+// 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.

+q1=(q)-(7*(TG-TS)); // q1=(Q/(a*f))

+printf("\t q1 is : %.2e Btu/(hr)*(ft^2) \n",q1);

+q2=(q1*f); // q2=(Q/(a))

+printf("\t q2 is : %.2e Btu/(hr)*(ft^2) \n",q2);

+printf("\t convection rate basis \n");

+q3=(1*(TG-TS)*(4.2/a)); // q2=(Q/(a))

+printf("\t q3 is : %.1e Btu/(hr)*(ft^2) \n",q3); // calculation mistake in book

+qt=(q2+q3); // qt=(Q/(a))

+printf("\t qt is : %.2e Btu/(hr)*(ft^2) \n",qt);

+ar=(Q/qt);

+printf("\t required a is : %.0f ft^2 \n",ar);

+L=(ar/a);

+printf("\t length required is : %.1f ft \n",L);

+// end