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/CH2/EX2.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/CH2/EX2.1')
| -rw-r--r-- | 534/CH2/EX2.1/2_1_Thermal_Diffusivity.sce | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/534/CH2/EX2.1/2_1_Thermal_Diffusivity.sce b/534/CH2/EX2.1/2_1_Thermal_Diffusivity.sce new file mode 100644 index 000000000..dd10dc0c1 --- /dev/null +++ b/534/CH2/EX2.1/2_1_Thermal_Diffusivity.sce @@ -0,0 +1,46 @@ +clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 2.1 Page 68 \n')//Example 2.1
+// Find Value for Thermal Diffusivity
+
+function a=alpha(p, Cp, k)
+ a=k/(p*Cp); //[m^2/s]
+ funcprot(0);
+endfunction
+
+//(a) Pure Aluminium at 300K
+// From Appendix A, Table A.1
+
+p = 2702; //[Kg/m^3] - Density Of Material
+Cp = 903; //[J/kg.K] - Specific heat of Material
+k = 237; //[W/m.k] - Thermal Conductivity of Material
+
+printf("\n (a) Thermal Diffuisivity of Pure Aluminium at 300K = %.2e m^2/s\n",alpha(p, Cp, k));
+
+//(b) Pure Aluminium at 700K
+// From Appendix A, Table A.1
+
+p = 2702; //[Kg/m^3] - Density Of Material
+Cp = 1090; //[J/kg.K] - Specific heat of Material
+k = 225; //[W/m.k] - Thermal Conductivity of Material
+
+printf("\n (b) Thermal Diffuisivity of Pure Aluminium at 700K = %.2e m^2/s\n",alpha(p, Cp, k));
+
+//(c) Silicon Carbide at 1000K
+// From Appendix A, Table A.2
+
+p = 3160; //[Kg/m^3] - Density Of Material
+Cp = 1195; //[J/kg.K] - Specific heat of Material
+k = 87; //[W/m.k] - Thermal Conductivity of Material
+
+printf("\n (c) Thermal Diffuisivity of Silicon Carbide at 1000K = %.2e m^2/s\n",alpha(p, Cp, k));
+
+//(d) Paraffin at 300K
+// From Appendix A, Table A.3
+
+p = 900; //[Kg/m^3] - Density Of Material
+Cp = 2890; //[J/kg.K] - Specific heat of Material
+k = .24; //[W/m.k] - Thermal Conductivity of Material
+
+printf("\n (d) Thermal Diffuisivity of Paraffin at 300K = %.2e m^2/s",alpha(p, Cp, k));
+//END
|