diff options
Diffstat (limited to '1073/CH4/EX4.4/4_4.sce')
| -rwxr-xr-x | 1073/CH4/EX4.4/4_4.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/1073/CH4/EX4.4/4_4.sce b/1073/CH4/EX4.4/4_4.sce new file mode 100755 index 000000000..69d78cd61 --- /dev/null +++ b/1073/CH4/EX4.4/4_4.sce @@ -0,0 +1,17 @@ +clc;
+clear;
+//Example 4.4
+e=0.9 //Emissivity
+L=1 //[m]
+Do=50 //[mm]
+Do=Do/1000 //[m]
+sigma=5.67*10^-8 //[W/(m^2.K^4)]
+T1=415 //[K]
+T2=290 //[K]
+dT=T1-T2 //[K]
+hc=1.18*(dT/Do)^(0.25) //[W/sq m.K]
+A=%pi*Do*L //Area in [sq m]
+Qc=hc*A*dT //Heat loss by convection W/m
+Qr=e*sigma*A*(T1^4-T2^4) //Heat loss by radiation per length W/m
+Qt=Qc+Qr //Total heat loss in [W/m]
+printf("\n Total heat loss by convection is %f W/m",Qt);
|