From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 551/CH15/EX15.25/25.sce | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 551/CH15/EX15.25/25.sce

(limited to '551/CH15/EX15.25')

diff --git a/551/CH15/EX15.25/25.sce b/551/CH15/EX15.25/25.sce
new file mode 100755
index 000000000..30b80f44b
--- /dev/null
+++ b/551/CH15/EX15.25/25.sce
@@ -0,0 +1,37 @@
+clc
+T=2773; //K
+lambda=1.2*10^(-6); //m
+e=0.9;
+a=5.67*10^(-8);
+
+disp("(i) Monochromatic emissive power at 1.2 μm length")
+C1=0.3742*10^(-15); //W.m^4/m^2
+C2=1.4388*10^(-4); //mK
+E_lambda_b=C1*lambda^(-5)/(exp(C2/lambda/T)-1);
+disp("E_lambda_b =")
+disp(E_lambda_b)
+disp("W/m^2")
+
+
+disp("(ii) Wavelength at which the emission is maximum =")
+lambda_max=2898/T;
+disp(lambda_max)
+disp("μm")
+
+
+disp("(iii) Maximum emissive power =")
+E_lambda_b_max=1.285*10^(-5)*T^5;
+disp(E_lambda_b_max)
+disp("W/m^2 per metre length")
+
+
+disp("(iv) Total emissive power =")
+Eb=a*T^4;
+disp(Eb)
+disp("W/m^2")
+
+
+disp("(v) Total emissive power =")
+E=e*a*T^4;
+disp(E)
+disp("W/m^2")
-- 
cgit