diff options
Diffstat (limited to '1328/CH18/EX18.3/18_3.sce')
| -rw-r--r-- | 1328/CH18/EX18.3/18_3.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1328/CH18/EX18.3/18_3.sce b/1328/CH18/EX18.3/18_3.sce new file mode 100644 index 000000000..7f1efed0d --- /dev/null +++ b/1328/CH18/EX18.3/18_3.sce @@ -0,0 +1,12 @@ +printf("\t example 18.3 \n");
+Ts=1000;
+t0=100;
+alpha=0.41; // alpha=(k/(c*row)), ft^2/hr
+theta=15/60;
+l=1; // ft
+X=(4*alpha*theta)/(l^2);
+printf("\t X is : %.2f \n",X);
+Y=0.155; // Y=f3*(X)from fig 18.9 when L=infinity
+t=Ts+(t0-Ts)*(Y); // eq 18.52
+printf("\t t si : %.1e F \n",t);
+// end
|