diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1073/CH3/EX3.37/3_37.sce | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1073/CH3/EX3.37/3_37.sce')
| -rwxr-xr-x | 1073/CH3/EX3.37/3_37.sce | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/1073/CH3/EX3.37/3_37.sce b/1073/CH3/EX3.37/3_37.sce new file mode 100755 index 000000000..23d855086 --- /dev/null +++ b/1073/CH3/EX3.37/3_37.sce @@ -0,0 +1,45 @@ +clc;
+clear;
+//Example 3.37
+k=0.03 //W/(m.K)
+Npr=0.697 //Prandtl number
+v=2.076*10^-6 //m^2/s
+Beta=0.002915 //K^-1
+D=25 ; //[Diameter in cm]
+D=D/100 //[m]
+Tf=343 //Film temperature in [K]
+A=%pi*(D/2)^2 //Area in [m^2]
+P=%pi*D //Perimeter [m]
+T1=293 //[K]
+T2=393 //[K]
+g=9.81 //[m/s^2]
+
+//Case (i) HOT SURFACE FACING UPWARD
+L=A/P //Characteristic length in [m]
+Beta=1/Tf; //[K^-1]
+dT=T2-T1 //[K]
+Ngr=(g*Beta*dT*(L^3))/(v^2) //Grashoff number
+Nra=Ngr*Npr
+Nnu=0.15*(Nra^(1.0/3.0)) //Nusselt number
+h=Nnu*k/L //[W/m^2.K]
+Q=h*A*dT //[W]
+printf("\nHeat transferred when disc is horizontal with hot surface facing upward is %f W\n",Q);
+
+//Case-(ii) HOT FACE FACING DOWNWARD
+Nnu=0.27*(Nra^(1/4)) //Nusselt number
+h=Nnu*k/L //W/(m^2.K)
+Q=h*A*dT //[W]
+printf("\nHeat transferred when disc is horizontal with hot surface facing downward is %f W\n",Q);
+
+
+//Case-(iii)-For disc vertical
+L=0.25 //Characteristic length[m]
+D=L //dia[m]
+A=%pi*((D/2)^2) //[sq m]
+Ngr=(g*Beta*dT*(L^3))/(v^2) //Grashoff number
+Npr=0.697
+Nra=Ngr*Npr
+Nnu=0.10*(Nra^(1/3)) //Nusselt number
+h=Nnu*k/D //[W/(m^2.K)]
+Q=h*A*dT //[W]
+printf("For vertical disc,heat transferred is %f W",Q);
|