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/CH3/EX3.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/CH3/EX3.1')
| -rw-r--r-- | 534/CH3/EX3.1/3_1_Human_Heat_Loss_part2.sce | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/534/CH3/EX3.1/3_1_Human_Heat_Loss_part2.sce b/534/CH3/EX3.1/3_1_Human_Heat_Loss_part2.sce new file mode 100644 index 000000000..7043393fc --- /dev/null +++ b/534/CH3/EX3.1/3_1_Human_Heat_Loss_part2.sce @@ -0,0 +1,44 @@ +clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 3.1 Page 104 \n') //Example 3.1
+// Find Skin Temperature & Aerogel Insulation Thickness
+
+A=1.8; // [m^2] Area for Heat transfer i.e. both surfaces
+Ti = 35+273; //[K] - Inside Surface Temperature of Body
+Tsurr = 10+273; //[K] - Temperature of surrounding
+Tf = 283; //[K] - Temperature of Fluid Flow
+e=.95; // Emissivity of Surface
+Lst=.003; //[m] - Thickness of Skin
+kst=.3; // [W/m.K] Effective Thermal Conductivity of Body
+kins = .014; // [W/m.K] Effective Thermal Conductivity of Aerogel Insulation
+hr = 5.9; //[W/m^2.k] - Natural Thermal Convectivity from body to air
+stfncnstt=5.67*10^(-8); // [W/m^2.K^4] - Stefan Boltzmann Constant
+q = 100; //[W] Given Heat rate
+
+//Using Conducion Basic Eq 3.19
+Rtot = (Ti-Tsurr)/q;
+//Also
+//Rtot=Lst/(kst*A) + Lins/(kins*A)+(h*A + hr*A)^-1
+//Rtot = 1/A*(Lst/kst + Lins/kins +(1/(h+hr)))
+
+//Thus
+//For Air,
+h=2; //[W/m^2.k] - Natural Thermal Convectivity from body to air
+Lins1 = kins * (A*Rtot - Lst/kst - 1/(h+hr));
+
+//For Water,
+h=200; //[W/m^2.k] - Natural Thermal Convectivity from body to air
+Lins2 = kins * (A*Rtot - Lst/kst - 1/(h+hr));
+
+Tsa=305; //[K] Body Temperature Assumed
+
+//Temperature of Skin is same in both cases as Heat Rate is same
+//q=(kst*A*(Ti-Ts))/Lst
+Ts = Ti - q*Lst/(kst*A);
+
+//Also from eqn of effective resistance Rtot F
+printf("\n\n (I) In presence of Air, Insulation Thickness = %.1f mm",Lins1*1000)
+
+printf("\n (II) In presence of Water, Insulation Thickness = %.1f mm",Lins2*1000);
+printf("\n\n Temperature of Skin = %.2f degC",Ts-273);
+//END
\ No newline at end of file |