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/CH2/EX2.25/2_25.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/CH2/EX2.25/2_25.sce')
| -rwxr-xr-x | 1073/CH2/EX2.25/2_25.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/1073/CH2/EX2.25/2_25.sce b/1073/CH2/EX2.25/2_25.sce new file mode 100755 index 000000000..a9c1b7d59 --- /dev/null +++ b/1073/CH2/EX2.25/2_25.sce @@ -0,0 +1,16 @@ +clc;
+clear;
+//Examplr 2.25
+h=8.5 ; //[W/sq m.K]
+dT=175 ; //[K]
+r2=0.0167; //[m]
+Q_by_l=h*2*%pi*r2*dT //[W/m]
+k=0.07 ; //For insulating material in [W/m.K]
+//for insulated pipe--50% reduction in heat loss
+Q_by_l1=0.5*Q_by_l //[w/m]
+deff('[x]=f(r3)','x=Q_by_l1-dT/((log(r3/r2))/(2*%pi*k)+1/(2*%pi*r3*h))')
+
+//by trial and error method we get:
+r3=fsolve(0.05,f)
+t=r3-r2 //thickness of insulation in [m]
+printf('\n Hence,required thickness of insulation is %f m=%f mm or %d m",t,t*1000,round(t*1000));
|