1 files changed, 16 insertions, 0 deletions
diff --git a/1571/CH12/EX12.2/Chapter12_Example2.sce b/1571/CH12/EX12.2/Chapter12_Example2.sce
new file mode 100755
index 000000000..70f733cb1
--- /dev/null
+++ b/1571/CH12/EX12.2/Chapter12_Example2.sce
@@ -0,0 +1,16 @@
+clc
+clear
+
+//INPUT
+t1=573;//temperature of the hot side in K
+t2=273;//temperature of the coll side in K
+m=82;//mass of the black body in gm
+cp=0.1;//specific heat of the black body kj/kg.K
+dt=0.35;//ice melting at a rate of temperature in deg.C/sec
+a=8;//area of black body in sq.cm
+
+//CALCULATIONS
+s=m*cp*dt/(a*(t1^4-t2^4));//boltzmann constant in cal/sq.cm/sec/deg^4
+
+//OUTPUT
+mprintf('boltzmann constant is %3.13f cal/sq.cm/sec/deg^4',s)