1 files changed, 21 insertions, 0 deletions
diff --git a/551/CH15/EX15.26/26.sce b/551/CH15/EX15.26/26.sce
new file mode 100755
index 000000000..4f263654b
--- /dev/null
+++ b/551/CH15/EX15.26/26.sce
@@ -0,0 +1,21 @@
+clc
+T1=1273; //K
+T2=773; //K
+e1=0.42;
+e2=0.72;
+a=5.67*10^(-8);
+
+disp("(i) When the body is grey with ε1 = 0.42")
+q=e1*a*(T1^4-T2^4)/10^3; //kW
+disp("Heat loss per m2 by radiation =")
+disp(q)
+disp("kW")
+
+disp("(ii) When the body is not grey")
+E_emitted=e1*a*T1^4;
+E_absorbed=e2*a*(T2)^4;
+
+q=(E_emitted-E_absorbed)/10^3;
+disp("Heat loss per m2 by radiation =")
+disp(q)
+disp("kW")
+\ No newline at end of file