1 files changed, 14 insertions, 0 deletions
diff --git a/1571/CH12/EX12.4/Chapter12_Example4.sce b/1571/CH12/EX12.4/Chapter12_Example4.sce
new file mode 100755
index 000000000..2946dabc6
--- /dev/null
+++ b/1571/CH12/EX12.4/Chapter12_Example4.sce
@@ -0,0 +1,14 @@
+clc
+clear
+
+//INPUT
+t1=1373;//temperature of the sphere in K
+t2=283;//temperature of the black body in K
+r=4.17*10^5;//rate of heat radiate in ergs/sq.cm/sec
+a=4*3.14*(6^2);//surface area of the sphere in sq.cm
+
+//CALCULATIONS
+tr=r*a*(t1^4/t2^4)*(2.39005736*10^(-8));//total heat radiated in cal/sec
+
+//OUTPUT
+mprintf('total heat radiated is %3.2f cal/sec',tr)