1 files changed, 18 insertions, 0 deletions
diff --git a/555/CH6/EX6.7/7.sce b/555/CH6/EX6.7/7.sce
new file mode 100644
index 000000000..bab5492ab
--- /dev/null
+++ b/555/CH6/EX6.7/7.sce
@@ -0,0 +1,18 @@
+// Implementation of example 6.7
+// Basic and Applied Thermodynamics by P.K.Nag
+
+clc
+clear
+
+// T temperature,W work done,Q heat trnsfer..
+// Radiation from panel is proportional to area and T2^4
+// so if A is area then Q2=K*A*(T2)^4
+// for minimum area we differentiate the expression A=W/[K*(T2^3)*(T1-T2)]..
+// finally the expression for minimum area is Amin=256*W/[27*K*(T1^4)]
+
+W=1 // kW
+K= 5.67*10d-9 // W/(m^2)*(K^4)
+T1=1000 // K
+Amin= (256*W*1000)/[27*K*(T1*T1*T1*T1)];
+printf("minimum area = %.4f m^2",Amin);
+// end
+\ No newline at end of file