summaryrefslogtreecommitdiff
path: root/1328/CH18/EX18.2/18_2.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1328/CH18/EX18.2/18_2.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '1328/CH18/EX18.2/18_2.sce')
-rw-r--r--1328/CH18/EX18.2/18_2.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/1328/CH18/EX18.2/18_2.sce b/1328/CH18/EX18.2/18_2.sce
new file mode 100644
index 000000000..1ed2ebc5d
--- /dev/null
+++ b/1328/CH18/EX18.2/18_2.sce
@@ -0,0 +1,21 @@
+printf("\t example 18.2 \n");
+tav=500; // F
+Ts=1000;
+t0=100;
+c=0.12; // Btu/(lb)*(F)
+k=24; // Btu/(hr)*(ft^2)*(F/ft)
+row=488; // lb/ft^3
+alpha=0.41; // alpha=(k/(c*row)), ft^2/hr
+x=0.333; // ft
+theta=4;
+printf("\t values are approximately mentioned in the book \n");
+X=(x/(2*(alpha*theta)^(1/2)));
+printf("\t X is : %.2f \n",X);
+Y=0.142; // Y=f1(X) from fig 18.7
+t=Ts+(t0-Ts)*(Y); // eq 18.43
+printf("\t t si : %.0f F \n",t);
+q=((k*(Ts-t0))/(3.14*alpha*theta)^(1/2)); // q=(Q/A),from eq 18.47
+printf("\t q is : %.0f Btu/(hr)*(ft^2) \n",q);
+q1=(2*k*(Ts-t0)*(theta/(3.14*alpha))^(1/2)); // q=(Q1/A). eq 18.49
+printf("\t The total heat which flowed through a square foot of wall in the 4 hr is : %.1e Btu/ft^2 \n",q1);
+// end