diff options
Diffstat (limited to '551/CH15/EX15.31/31.sce')
| -rwxr-xr-x | 551/CH15/EX15.31/31.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/551/CH15/EX15.31/31.sce b/551/CH15/EX15.31/31.sce new file mode 100755 index 000000000..fad4432ea --- /dev/null +++ b/551/CH15/EX15.31/31.sce @@ -0,0 +1,14 @@ +clc
+T1=91; //K
+T2=303; //K
+e1=0.03;
+e2=0.03;
+d1=0.3; //m
+d2=0.45; //m
+a=5.67*10^(-8);
+F_12=1;
+
+Q=4*%pi*(d1/2)^2*a*(T1^4-T2^4)/( ((1-e1)/e1) + 1/F_12 + ((1-e2)/e2)*d1^2/d2^2);
+disp("Rate of heat flow =")
+disp(Q)
+disp("W")
\ No newline at end of file |