summaryrefslogtreecommitdiff
path: root/587/CH3/EX3.13/example3_13.sce
blob: c5605827b5712ffeb9c9ba2019168b59ea4e689b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clear;
clc;

//Example3.13[Heat Loss from Buried Steam Pipes]
//Given:-
T_esurf=10;//Surface temperatur of earth[degree Celcius]
T_psurf=80;//Outer surface temperature of pipe[degree Celcius]
k_soil=0.9//Thermal Conductivity of soil[W/m.degree Celcius]
L=30;//Length of pipe[m]
D=0.1;//Diameter of pipe[m]
z=0.5;//Depth at which pipe is kept[m]
//Solution:-
//Calculating shape factor
if(z>(1.5*D))then 
 S=(2*%pi*L)/(log((4*z)/D)), end;//[m]
 disp(S,"Shape factor is")
 Q_=S*k_soil*(T_psurf-T_esurf);//[W]
 disp("W",Q_,"The steady rate of heat transfer from the pipe is")