10 files changed, 120 insertions, 0 deletions
diff --git a/3850/CH28/EX28.1/Ex28_1.sce b/3850/CH28/EX28.1/Ex28_1.sce
new file mode 100644
index 000000000..4d41967c2
--- /dev/null
+++ b/3850/CH28/EX28.1/Ex28_1.sce
@@ -0,0 +1,22 @@
+
+//To Calculate the Amount of Heat flowing per second through the cube.
+
+//Example 28.1
+
+clear;
+
+clc;
+
+x=0.1;//Edge Length of the Copper Cube in cm
+
+A=x^2;//Area of cross section in cm^2
+
+K=385;//Thermal Conductivity of Copper in W/m-deg Celsius
+
+T1=100;//Temperature of the first face
+
+T2=0;//Temperature at the second face
+
+Rf=K*A*(T1-T2)/x;//Amount of Heat flowing per second (del(Q)/del(t))
+
+printf("The amount of heat flowing per sec=%d W",Rf);
diff --git a/3850/CH28/EX28.1/Ex28_1.txt b/3850/CH28/EX28.1/Ex28_1.txt
new file mode 100644
index 000000000..a3c69d528
--- /dev/null
+++ b/3850/CH28/EX28.1/Ex28_1.txt
@@ -0,0 +1 @@
+ The amount of heat flowing per sec=3850 W
+\ No newline at end of file
diff --git a/3850/CH28/EX28.2/Ex28_2.sce b/3850/CH28/EX28.2/Ex28_2.sce
new file mode 100644
index 000000000..c933de860
--- /dev/null
+++ b/3850/CH28/EX28.2/Ex28_2.sce
@@ -0,0 +1,18 @@
+
+//To Calculate the Thermal Resistance of an aluminium rod
+
+//Example 28.2
+
+clear;
+
+clc;
+
+x=0.2;//Length of Aluminium Rod in metres
+
+K=200;//Thermal Conductivity of Aluminium in W/m-K
+
+A=1*10^-4;//Area of Cross Section in metre^2
+
+R=x/(K*A);//Thermal Resistance in K/W
+
+printf("The Thermal Resistance is of Aluminium Rod=% d K/W",R);
diff --git a/3850/CH28/EX28.2/Ex28_2.txt b/3850/CH28/EX28.2/Ex28_2.txt
new file mode 100644
index 000000000..94928f126
--- /dev/null
+++ b/3850/CH28/EX28.2/Ex28_2.txt
@@ -0,0 +1,2 @@
+
+ The Thermal Resistance is of Aluminium Rod= 10 K/W
+\ No newline at end of file
diff --git a/3850/CH28/EX28.3/Ex28_3.sce b/3850/CH28/EX28.3/Ex28_3.sce
new file mode 100644
index 000000000..a0fe4360b
--- /dev/null
+++ b/3850/CH28/EX28.3/Ex28_3.sce
@@ -0,0 +1,14 @@
+//To Calculate the Temperature of Sun
+//Example 28.3
+
+clear;
+
+clc;
+
+b=0.288;//Wein Constant in cm-K
+
+Lambda=470*10^(-7);//Wavelength corresponding to maximum intensity in centimetres
+
+T=b/Lambda;//Temperature at the Surface of Sun
+
+printf("Temperature at the sun surface = %f K",T);//The answer provided in the textbook is wrong
diff --git a/3850/CH28/EX28.3/Ex28_3.txt b/3850/CH28/EX28.3/Ex28_3.txt
new file mode 100644
index 000000000..9b9258257
--- /dev/null
+++ b/3850/CH28/EX28.3/Ex28_3.txt
@@ -0,0 +1 @@
+ Temperature at the sun surface = 6127.659574 K
+\ No newline at end of file
diff --git a/3850/CH28/EX28.4/Ex28_4.sce b/3850/CH28/EX28.4/Ex28_4.sce
new file mode 100644
index 000000000..8bff3c869
--- /dev/null
+++ b/3850/CH28/EX28.4/Ex28_4.sce
@@ -0,0 +1,20 @@
+
+//To calculate the Net Rate of Heat Loss
+
+//Example 28.4
+
+clear;
+
+clc;
+
+A=10*10^-4;//Surface Area of Blackbody in m^2
+
+T=400;//Initial Temperature in Kelvin
+
+T0=300;//Final Temperature in Kelvin
+
+Sigma=5.67*10^-8;//Stefan Constant
+
+delU=Sigma*A*(T^4-T0^4);//Net Rate of Heat Loss
+
+printf("The net rate of loss of heat is=%2f W",delU);
diff --git a/3850/CH28/EX28.4/Ex28_4.txt b/3850/CH28/EX28.4/Ex28_4.txt
new file mode 100644
index 000000000..a4b04eb10
--- /dev/null
+++ b/3850/CH28/EX28.4/Ex28_4.txt
@@ -0,0 +1,2 @@
+
+ The net rate of loss of heat is=0.992250 W
+\ No newline at end of file
diff --git a/3850/CH28/EX28.5/Ex28_5.sce b/3850/CH28/EX28.5/Ex28_5.sce
new file mode 100644
index 000000000..8d08263c6
--- /dev/null
+++ b/3850/CH28/EX28.5/Ex28_5.sce
@@ -0,0 +1,38 @@
+
+//To Calculate the Amount of Time for Cooling
+
+//Example 28.5
+
+clear;
+
+clc;
+
+T1=70;//Initial Temperature in degree Celsius in First Case
+
+T2=60;//Final Temperature in degree Celsius in First Case
+
+Tav=(T1+T2)/2;//Average Temperature in First Case
+
+Ts=30;//Temperature of Surrounding in degree Celsius
+
+Tdif1=Tav-Ts;//Average Temperature Difference from Surrounding in first case
+
+t=5;//Time taken for cooling from 70 deg Celsius to 60 deg Celsius
+
+Rt=(T1-T2)/t;//Rate of fall of Temperature
+
+bA=Rt/Tdif1;//Product of Wein Constannt and Area
+
+T3=60;//Initial Temperature in degree Celsius in second case
+
+T4=50;//Final Temperature in degree Celsius in second case
+
+Tdif2=T3-T4;//Change in Temperature in second case
+
+Tav1=(T3+T4)/2;//Average Temperature in second case
+
+Tdif3=Tav1-Ts;//Average Temperature Difference from Surrounding in second case
+
+t1=Tdif2/(bA*Tdif3);//Time taken by the liquid to cool
+
+printf("Time taken by the liquid to cool=%d min",t1);
diff --git a/3850/CH28/EX28.5/Ex28_5.txt b/3850/CH28/EX28.5/Ex28_5.txt
new file mode 100644
index 000000000..a97f9f8a4
--- /dev/null
+++ b/3850/CH28/EX28.5/Ex28_5.txt
@@ -0,0 +1,2 @@
+
+ Time taken by the liquid to cool=7 min
+\ No newline at end of file