4 files changed, 65 insertions, 0 deletions
diff --git a/965/CH11/EX11.1/1.sci b/965/CH11/EX11.1/1.sci
new file mode 100644
index 000000000..b6ad157f9
--- /dev/null
+++ b/965/CH11/EX11.1/1.sci
@@ -0,0 +1,12 @@
+clc;
+clear all;
+disp("rate of energy emmission")
+A=0.12;//m^2
+T=527+273;// K
+sigma=5.67*10^(-8);
+Eb=sigma*A*T^4;//W
+disp("W",Eb,"The total rate of energy emmision, Eb =")
+Ibn=sigma*(T/100)^4/10^(-8);// W/m^2 sr
+disp("W/m^2 .sr",Ibn,"Intensity of normal radiation , Ibn =")
+lmax=2898/T;//mu.m
+disp("mu m",lmax, "Wavelength of maximum monochromatic emmissive power = ")
diff --git a/965/CH11/EX11.2/2.sci b/965/CH11/EX11.2/2.sci
new file mode 100644
index 000000000..8d1aac88b
--- /dev/null
+++ b/965/CH11/EX11.2/2.sci
@@ -0,0 +1,10 @@
+clc;
+clear all;
+disp("surface temperature of sun")
+lmax=0.49;//mu m
+T=2898/lmax;//mu.m
+disp("K",T, "surface temperature of sun = ")
+
+sigma=5.67*10^(-8);
+Eb=sigma*T^4;//W/m^2
+disp("W/m^2",Eb,"The total rate of energy emmision, Eb =")
diff --git a/965/CH11/EX11.3/3.sci b/965/CH11/EX11.3/3.sci
new file mode 100644
index 000000000..8b1ef396d
--- /dev/null
+++ b/965/CH11/EX11.3/3.sci
@@ -0,0 +1,19 @@
+clc;
+clear all;
+disp("monochromatic emmisive power")
+T=2500+273;//K
+l=1.2*10^(-6);// m
+e=0.9;
+sigma=5.67*10^(-8);
+C1=3.742*10^(-15);// W m^4/m2
+C2=1.4388*10^(-2);// mK
+Elb=(C1*l^(-5))/(exp(C2/(l*T))-1);// W/m^2
+disp("W/m^2",Elb,"monochromatic emmisive power at l= 1.2 mu m = ")
+lmax=2898/T;
+disp("mu m",lmax,"wavelength at which the emission is maximum is")
+Elbmax = (1.285*10^(-5))*T^5;// W/m^2
+disp("W/m^2 per meter length",Elbmax,"Maximum emissive power =")
+Eb=sigma*T^4;//W/m^2
+disp("W/m^2",Eb,"total emissive power =")
+Eeb= e*Eb;//W/m^2
+disp("W/m^2",Eeb,"Total emissive power with emissivity =")
diff --git a/965/CH11/EX11.4/4.sci b/965/CH11/EX11.4/4.sci
new file mode 100644
index 000000000..63a049e0d
--- /dev/null
+++ b/965/CH11/EX11.4/4.sci
@@ -0,0 +1,24 @@
+clc;
+clear all;
+disp("Energy emitted by sun")
+T=5750;//K
+ds=1.4*10^9;//m diameter of sun
+de=12.8*10^6;//m diameter of earth
+d=15*10^10;//m distance between earth and sun
+
+rs=ds/2;
+re=de/2;
+sigma=5.67*10^(-8);
+As=4*%pi*rs^2;//m^2 surface area of sun
+Eb=sigma*As*T^4;//W
+disp("W",Eb,"total energy emitted by sun =")
+Eo= Eb/(4*%pi*d^2);
+disp("W/m^2",Eo, "Energy received outside earth''s atmosphere =")
+Ee=Eo*%pi*re^2;
+disp("W/m^2",Ee, "Energy received by earth =")
+x=(1-0.42)*Eo// direct energy reaching the earth
+y=0.22*x// diffusion rate
+z=x+y// total radiation reaching the collector
+ap=1.6*1.6*cos(%pi*40/180)// projected area
+Es=ap*z;
+disp("W",Es,"The energy received by the solar collector =")