1 files changed, 16 insertions, 0 deletions
diff --git a/1571/CH12/EX12.1/Chapter12_Example1.sce b/1571/CH12/EX12.1/Chapter12_Example1.sce
new file mode 100755
index 000000000..e77f7f3ba
--- /dev/null
+++ b/1571/CH12/EX12.1/Chapter12_Example1.sce
@@ -0,0 +1,16 @@
+clc
+clear
+
+//INPUT
+t1=300;//temperature of the surroundings in K
+t2=900;//temperature of the hot body p in K
+t3=500;//temperature of the hot body q in K
+a=5.67*10^-8;//stefan boltzmann constant in W/m^2.K^4
+
+//CALCULATIONS
+q1=a*(t2^4-t1^4);//heat lost from hot body p in w/m^2
+q2=a*(t3^4-t1^4);//heat lost from hot body q in w/m^2
+q=q1/q2;//ratio of heat lost from two substances
+
+//OUTPUT
+mprintf('ratio of heat lost from two substances is %3.2f',q)