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")
|