1 files changed, 15 insertions, 0 deletions
diff --git a/1304/CH1/EX1.9/1_9.sce b/1304/CH1/EX1.9/1_9.sce
new file mode 100644
index 000000000..c744e12fd
--- /dev/null
+++ b/1304/CH1/EX1.9/1_9.sce
@@ -0,0 +1,15 @@
+clear;
+clc;
+printf("\t\t\tExample Number 1.9\n\n\n");
+// calculating increasing in emmisive power
+// solution
+
+sigma= 5.6697*10^(-8);// [W/m^2 K^4] Stefan Boltzmann constant
+T1=20+273.15;//[K] initial temperature
+
+T2=100+273.15;//[K] final temperature
+//emmissive power E is given as sigma*T^4
+//hence 
+dE = sigma*((T2)^(4)-(T1)^(4));//[W/m^2] difference in emmissive power
+
+printf("The increase in emmissive power of the blackbody after heating is %f W/m^2",dE);