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 /581/CH1/EX1.2 | |
| 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 '581/CH1/EX1.2')
| -rwxr-xr-x | 581/CH1/EX1.2/Example1_2.sci | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/581/CH1/EX1.2/Example1_2.sci b/581/CH1/EX1.2/Example1_2.sci new file mode 100755 index 000000000..17db26f17 --- /dev/null +++ b/581/CH1/EX1.2/Example1_2.sci @@ -0,0 +1,26 @@ +
+clear;
+clc;
+printf("\tExample 1.2\n");
+x=poly([0],'x');
+k1=372; // Thermal Conductivity of slab,W/m*K
+x1=0.003; // Thickness of slab,m
+x2=0.002;// Thickness of steel,m
+k2=17; // Thermal Conductivity of steel,W/m*K
+T1=400; // Temperature on one side,C
+T2=100;//Temperature on other side,C
+
+Tcu=roots(x+2*x*(k1/x1)*(x2/k2)-(400-100));
+
+//q=k1*(Tcu/x1)=k2*(Tss/x2);
+
+Tss = Tcu*(k1/x1)*(x2/k2); // formula for temperature gradient in steel side
+
+Tcul=T1-Tss;
+Tcur=T2+Tss;
+printf("\t temperature on left copper side is : %.0f C\n",Tcul);
+printf("\t Temperature on right copper side is : %.0f C\n",Tcur);
+q=k2*Tss/(1000*x2); // formula for heat conducted
+printf("\t heat conducted through the wall is : %.0f W\n",q);
+printf("\t our initial approximation was accurate within a few percent.");
+//End
\ No newline at end of file |