summaryrefslogtreecommitdiff
path: root/965/CH2/EX2.46/46.sci
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /965/CH2/EX2.46/46.sci
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '965/CH2/EX2.46/46.sci')
-rw-r--r--965/CH2/EX2.46/46.sci24
1 files changed, 24 insertions, 0 deletions
diff --git a/965/CH2/EX2.46/46.sci b/965/CH2/EX2.46/46.sci
new file mode 100644
index 000000000..68e0ec7f1
--- /dev/null
+++ b/965/CH2/EX2.46/46.sci
@@ -0,0 +1,24 @@
+clc;
+clear all;
+disp("heat flow per length")
+r1=110;//mm outer radius of pipe
+r2=r1+50;//mm outer radius of insulation
+//k=0.06(1+0.0018*t);// W/(m*C)
+ti=280;// degree C
+to=50;// degree C
+
+km=0.06*(1+(0.0018/2)*(ti+to));
+km
+Q=2*3.1416*km*(ti-to)/(log (r2/r1));
+disp("W/m",Q,"heat transfer per unit length = ")
+
+// to calcuate the temperature at the mid thickness
+//Q=2*3.1416*k*(ti-tmt)/((ln (rmt/r1));
+rmt=(r1+r2)/2;
+//k=0.06(1+0.0018*(t1+tmt)/2)
+//Q=2*3.1416*0.06(1+0.0018*(t1+tmt)/2)*(ti-tmt)/((ln (rmt/r1))
+//0.0009*tmt^2+tmt-187.56
+tmt=(-1+(1+4*0.0009*187.56)^0.5)/(2*0.0009);
+disp("degree C",tmt,"The temperature at the mid thickness =")
+
+