diff options
Diffstat (limited to '617/CH4/EX4.5/Example4_5.sci')
| -rwxr-xr-x | 617/CH4/EX4.5/Example4_5.sci | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/617/CH4/EX4.5/Example4_5.sci b/617/CH4/EX4.5/Example4_5.sci new file mode 100755 index 000000000..65a309602 --- /dev/null +++ b/617/CH4/EX4.5/Example4_5.sci @@ -0,0 +1,12 @@ +clc();
+clear;
+// To estimate the time lag of temperature (sine) wave
+t = 24; // Time period of tempearture wave in hr
+k = 0.6; // Thermal conductivity of wall in Btu/hr-ft-degF
+Cp = 0.2; // Specific heat capacity of wall in Btu/lb-degF
+y = 110; // specific gravity in lb/ft^3
+x = 8/12; // Distance from surface in ft
+a = k/(y*Cp); // Thermal diffusivity in ft^2/hr
+n=1/t; // frequency in /hr
+delr = x/(2*sqrt(a*%pi*n); // Time lag in hr
+printf("Time lag of the temperature at a point 8 in from surface is %.1f hr", delr;
|