diff options
Diffstat (limited to '1073/CH3/EX3.43')
| -rwxr-xr-x | 1073/CH3/EX3.43/3_43.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/1073/CH3/EX3.43/3_43.sce b/1073/CH3/EX3.43/3_43.sce new file mode 100755 index 000000000..f28a6d143 --- /dev/null +++ b/1073/CH3/EX3.43/3_43.sce @@ -0,0 +1,13 @@ +clc;
+clear;
+//Example 3.4
+lambda=2257 //[kJ/kg]
+lambda=lambda*1000 //in [J/kg]
+rho_l=957.9 //rho*l[kg/m^3]
+rho_v=0.5955 //[kg/m^3]
+sigma=5.89*10^-2 //[N/m]
+g=9.81 //[m/s^2]
+//Peak heat flux is given by
+Q_by_A_max=(%pi/24)*(lambda*rho_v^0.5*(sigma*g*(rho_l-rho_v))^(1/4)) //W/m^2
+Q_by_A_max=Q_by_A_max/(10^6) //MW/(sq m)
+printf("\n Peak heat flux is %f MW/sq m",Q_by_A_max);
|