blob: 5cc2a4ccf12366552e98643345402402d0d6050e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
clc;
clear all;
disp("pipe location distance")
L=1.2;//m thickness of wall
// temperature of wall surfaces
t1= 200;// degree C
t2=60;// degree C
t= 120;// degree C
//k= 0.28*(1+0.036*t);// thermal conductivity relation
// rate of heat transfer Q= km*(A/L)*(t1-t2)
// 0.28*(1+(0.036/2)*(200+60))*(A/1.2)*(200-60)=0.28*(1+(0.036/2)*(200+120))*(A/x)*(200-120)
x=151.42/185.54;//m
disp("m",x,"the distance at which the pipe should be imbedded from hot surface = ")
|
