diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /534/CH12/EX12.1 | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '534/CH12/EX12.1')
| -rw-r--r-- | 534/CH12/EX12.1/12_1_Plate_surface.sce | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/534/CH12/EX12.1/12_1_Plate_surface.sce b/534/CH12/EX12.1/12_1_Plate_surface.sce new file mode 100644 index 000000000..953567f5f --- /dev/null +++ b/534/CH12/EX12.1/12_1_Plate_surface.sce @@ -0,0 +1,34 @@ +clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 12.1 Page 731 \n')// Example 12.1
+
+// a) Intensity of emission in each of the three directions
+// b) Solid angles subtended by the three surfaces
+// c) Rate at which radiation is intercepted by the three surfaces
+
+A1 = .001 ;//[m^2] Area of emitter
+In = 7000 ;//[W/m^2.Sr] Intensity of radiation in normal direction
+A2 = .001 ;//[m^2] Area of other intercepting plates
+A3 = A2 ;//[m^2] Area of other intercepting plates
+A4 = A2 ;//[m^2] Area of other intercepting plates
+r = .5 ;//[m] Distance of each plate from emitter
+theta1 = 60 ;//[deg] Angle between surface 1 normal & direction of radiation to surface 2
+theta2 = 30 ;//[deg] Angle between surface 2 normal & direction of radiation to surface 1
+theta3 = 45 ;//[deg] Angle between surface 1 normal & direction of radiation to surface 4
+
+//From equation 12.2
+w31 = A3/r^2;
+w41 = w31;
+w21 = A2*cos(theta2*0.0174532925)/r^2;
+
+
+//From equation 12.6
+q12 = In*A1*cos(theta1*0.0174532925)*w21;
+q13 = In*A1*cos(0)*w31;
+q14 = In*A1*cos(theta3*0.0174532925)*w41;
+
+printf("\n (a) As Intensity of emitted radiation is independent of direction, for each of the three directions I = %i W/m^2.sr \n\n (b) By the Three Surfaces\n Solid angles subtended Rate at which radiation is intercepted \n w4-1 = %.2e sr q1-4 = %.1e W \n w3-1 = %.2e sr q1-3 = %.1e W\n w2-1 = %.2e sr q1-2 = %.1e W ",In,w41,q14,w31,q13,w21,q12);
+//END
+
+
+
|