initial commit / add all books

12 files changed, 143 insertions, 0 deletions

diff --git a/1309/CH12/EX12.3/Result12_3.pdf b/1309/CH12/EX12.3/Result12_3.pdf
new file mode 100755
index 000000000..6a905460c
--- /dev/null
+++ b/1309/CH12/EX12.3/Result12_3.pdf
diff --git a/1309/CH12/EX12.3/ch12_3.sce b/1309/CH12/EX12.3/ch12_3.sce
new file mode 100755
index 000000000..06061dc96
--- /dev/null
+++ b/1309/CH12/EX12.3/ch12_3.sce
@@ -0,0 +1,37 @@
+clc;
+clear;
+printf("\t\t\tChapter12_example3\n\n\n");
+//  Determination of the heat transferred by radiation from dA1 to A. 
+// The view factor Fd1_2 can be calculated as Fd1_2=Fd1_3+Fd1_4+Fd1_5
+// For Fd1_3
+a_13=100;
+b_13=250;
+c_13=100;
+X_13=a_13/c_13;
+Y_13=b_13/c_13;
+printf("\nFor Fd1_3, the values of a/c=%.1f and b/c=%.1f",X_13,Y_13);
+Fd1_3=0.17; // value for Fd1_3 corresponding to above calculated values of a/c and b/c
+// For Fd1_4
+a_14=300;
+b_14=50;
+c_14=100;
+X_14=a_14/c_14;
+Y_14=b_14/c_14;
+printf("\nFor Fd1_4, the values of a/c=%.1f and b/c=%.1f",X_14,Y_14);
+Fd1_4=0.11; //value for Fd1_4 corresponding to above calculated values of a/c and b/c
+// For Fd1_5
+a_15=100;
+b_15=50;
+c_15=100;
+X_15=a_15/c_15;
+Y_15=b_15/c_15;
+printf("\nFor Fd1_5, the values of a/c=%.1f and b/c=%.1f",X_15,Y_15);
+Fd1_5=0.09; //value for Fd1_3 corresponding to above calculated values of a/c and b/c
+Fd1_2=Fd1_3+Fd1_4-Fd1_5;
+printf("\nFd1_2=%.2f",Fd1_2);
+printf("\n%d percent of the energy leaving dA1 reaches A",100*Fd1_2);
+sigma=0.1714e-8; // Stefan-Boltzmann constant
+T1=660;
+T2=560;
+q12_A1=sigma*Fd1_2*(T1^4-T2^4);
+printf("\nThe net heat transferred is %.1f BTU/(hr.sq.ft)",q12_A1);
diff --git a/1309/CH12/EX12.4/Result12_4.pdf b/1309/CH12/EX12.4/Result12_4.pdf
new file mode 100755
index 000000000..49171e3c7
--- /dev/null
+++ b/1309/CH12/EX12.4/Result12_4.pdf
diff --git a/1309/CH12/EX12.4/ch12_4.sce b/1309/CH12/EX12.4/ch12_4.sce
new file mode 100755
index 000000000..876b57d5b
--- /dev/null
+++ b/1309/CH12/EX12.4/ch12_4.sce
@@ -0,0 +1,16 @@
+clc;
+clear;
+printf("\t\t\tChapter12_example4\n\n\n");
+// Determination of the heat transferred to the conveyed parts for the conditions given
+L1=1;
+angle=%pi*45/180;
+L2=L1*sin(angle);
+L3=L2;
+printf("\nThe Widths are L1=%d m, L2=%.3f m and L3=%.3f m",L1,L2,L3);
+T1=303;
+T2=473;
+sigma=5.67e-8; // Stefan-Boltzmann constant
+q21_A2=sigma*(T2^4-T1^4)*((L1/L2)+1-(L3/L2))/2;
+q31_A3=sigma*(T2^4-T1^4)*((L1/L2)-1+(L3/L2))/2;
+printf("\nThe heat transferred from A2 to A1 is %.2e W/sq.m",q21_A2);
+printf("\nThe heat transferred from A3 to A1 is %.2e W/sq.m",q31_A3);
diff --git a/1309/CH12/EX12.5/Result12_5.pdf b/1309/CH12/EX12.5/Result12_5.pdf
new file mode 100755
index 000000000..490d263b0
--- /dev/null
+++ b/1309/CH12/EX12.5/Result12_5.pdf
diff --git a/1309/CH12/EX12.5/ch12_5.sce b/1309/CH12/EX12.5/ch12_5.sce
new file mode 100755
index 000000000..08cc42a57
--- /dev/null
+++ b/1309/CH12/EX12.5/ch12_5.sce
@@ -0,0 +1,22 @@
+clc;
+clear;
+printf("\t\t\tChapter12_example5\n\n\n");
+//  Determination of the heat exchanged between the two plates
+// The view factor can be found with the crossed-string method
+// from figure 12.13(b)
+ac=1;
+bd=1;
+ad=(9+1)^0.5;
+bc=ad;
+crossed_strings=ad+bc;
+uncrossed_strings=ac+bd;
+L1_F12=(1/2)*(crossed_strings-uncrossed_strings);
+printf("\nThe Product L1F12=%.2f ft",L1_F12);
+L1=3;
+F12=L1_F12/L1;
+printf("\nThe view factor F12=%.2f",F12);
+sigma=5.67e-8; // Stefan-Boltzmann constant
+T1=560;
+T2=460;
+q12_A1=sigma*(T1^4-T2^4)*F12;
+printf("\nThe heat transfer rate is %.2e W/sq.m",q12_A1);
diff --git a/1309/CH12/EX12.6/Result12_6.pdf b/1309/CH12/EX12.6/Result12_6.pdf
new file mode 100755
index 000000000..59053a362
--- /dev/null
+++ b/1309/CH12/EX12.6/Result12_6.pdf
diff --git a/1309/CH12/EX12.6/ch12_6.sce b/1309/CH12/EX12.6/ch12_6.sce
new file mode 100755
index 000000000..ce5bb6eaf
--- /dev/null
+++ b/1309/CH12/EX12.6/ch12_6.sce
@@ -0,0 +1,26 @@
+clc;
+clear;
+printf("\t\t\tChapter12_example6\n\n\n");
+//  Determination of the heat that must be supplied to each of the isothermal surfaces, and also the temperature of the insulated surface. 
+// we can apply the equations as follows
+// q1=sigma*A1*[(T1^4-T2^4)F12+(T1^4-T3^4)F13]..... (1)
+// q2=sigma*A2*[(T2^4-T1^4)F21+(T2^4-T3^4)F23]..... (2)
+// q3=sigma*A3*[(T3^4-T1^4)F31+(T3^4-T2^4)F32]..... (3)
+// given data:
+T1=1000;
+T3=500;
+q2=0;
+F12=1/2;
+F13=1/2;
+F21=1/2;
+F23=1/2;
+F31=1/2;
+F32=1/2;
+T2=[(T1^4+T3^4)/2]^(1/4); // using equation (2)
+printf("\nThe temperature T2=%.1f degree R",T2);
+sigma=0.1714e-8; // Stefan-Boltzmann constant
+q1_A1=sigma*[(T1^4-T2^4)*F12+(T1^4-T3^4)*F13]; // using equation (1)
+printf("\nThe heat flux through area A1 is %d BTU/(hr.sq.ft)",q1_A1);
+q3_A3=sigma*[(T3^4-T1^4)*F31+(T3^4-T2^4)*F32]; // using equation (3)
+printf("\nThe heat flux through area A3 is %d BTU/(hr.sq.ft)",q3_A3);
+printf("\nThe results are logical in that the heat entering the system (the oven itself) must equal that which leaves under steady-state conditions.");
diff --git a/1309/CH12/EX12.7/Result12_7.pdf b/1309/CH12/EX12.7/Result12_7.pdf
new file mode 100755
index 000000000..4f328c0a4
--- /dev/null
+++ b/1309/CH12/EX12.7/Result12_7.pdf
diff --git a/1309/CH12/EX12.7/ch12_7.sce b/1309/CH12/EX12.7/ch12_7.sce
new file mode 100755
index 000000000..f1bf55ff8
--- /dev/null
+++ b/1309/CH12/EX12.7/ch12_7.sce
@@ -0,0 +1,18 @@
+clc;
+clear;
+printf("\t\t\tChapter12_example7\n\n\n");
+// Determination of the heat lost by the oven through its top surface. 
+// all energy leaving A1 is intercepted by A2 and vice versa
+F12=1;
+F21=1;
+F11=0; // the surfaces are flat
+F22=0;
+emissivity1=0.94; // for oxidized steel from appendix table E1
+emissivity2=0.94
+T1=533;
+T2=323;
+sigma=5.67e-8; // Stefan-Boltzmann constant
+q1=(sigma*(T1^4-T2^4))/((1/emissivity1)+(1/emissivity2)-1);
+printf("\nThe heat lost through bottom surface is %d W/sq.m",q1);
+q2=-q1;
+printf("\nThe heat lost through top surface is %d W/sq.m",q2);
diff --git a/1309/CH12/EX12.8/Result12_8.pdf b/1309/CH12/EX12.8/Result12_8.pdf
new file mode 100755
index 000000000..e729a7b95
--- /dev/null
+++ b/1309/CH12/EX12.8/Result12_8.pdf
diff --git a/1309/CH12/EX12.8/ch12_8.sce b/1309/CH12/EX12.8/ch12_8.sce
new file mode 100755
index 000000000..ac436d2e1
--- /dev/null
+++ b/1309/CH12/EX12.8/ch12_8.sce
@@ -0,0 +1,24 @@
+clc;
+clear;
+printf("\t\t\tChapter12_example8\n\n\n");
+// Determination of the net heat exchanged between the dish and the surroundings by radiation at the instant the dish is removed from the oven. Perform the calculations (a) if the dish and surroundings behave like black bodies, and again (b) if the dish has an emissivity of 0.82 and the surroundings have an emissivity of 0.93.
+D=12/12; // diameter in ft
+L=6/12; // length in ft
+A=2*%pi*D^2/4+%pi*D*L;
+printf("\nThe Surface area is %.2f sq.ft",A);
+printf("\n\t\t\tSolution to part (a)\n");
+F12=1; // the view factor between the dish and the surroundings is unity
+T1=810;
+T2=530;
+sigma=0.1714e-8; // Stefan-Boltzmann constant
+q1=sigma*A*(T1^4-T2^4)*F12;
+printf("\nThe heat exchanged between the dish and the surroundings is %d BTU/hr",q1);
+printf("\n\t\t\tSolution to part (b)\n");
+// For gray-surface behavior, we can apply the following Equation
+// q1/(A1e1)-[F11*(q1/A1)*(1-e1)/e1+F12*(q2/A2)*(1-e2)/e2]=sigma*T1^4-(F11*sigma*T1^4+F12*sigma*T2^4)... equation (1)
+F11=0;
+e1=0.82;
+e2=0.93;
+// putting q2/A2=0 in equation (1) as A2 tends to infinity
+q1_=A*e1*[sigma*T1^4-F12*sigma*T2^4];
+printf("\nThe heat exchanged between the dish and the surroundings for the second case is %d BTU/hr",q1_);