diff options
Diffstat (limited to '534/CH12/EX12.2/12_2_Spectral_Distribution.sce')
| -rw-r--r-- | 534/CH12/EX12.2/12_2_Spectral_Distribution.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/534/CH12/EX12.2/12_2_Spectral_Distribution.sce b/534/CH12/EX12.2/12_2_Spectral_Distribution.sce new file mode 100644 index 000000000..c39690689 --- /dev/null +++ b/534/CH12/EX12.2/12_2_Spectral_Distribution.sce @@ -0,0 +1,19 @@ +clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 12.2 Page 734\n')// Example 12.2
+
+// Total Irradiation
+x=[0 5 20 25];
+y=[0 1000 1000 0];
+clf();
+plot2d(x,y,style=5,rect=[0,0,30,1100]);
+xtitle("Spectral Distribution", "wavelength (micro-m)", "G (W/m^2.micro-m)");
+
+//By Equation 12.4
+G = 1000*(5-0)/2+1000*(20-5)+1000*(25-20)/2;
+
+printf("\n G = %i W/m^2",G);
+//END
+
+
+
|