Double Pipe Heat Exchanger: Expt - No:6a Date
Double Pipe Heat Exchanger: Expt - No:6a Date
KRISHNA
Expt.no:6a
Date:
DOUBLE PIPE HEAT EXCHANGER
PROBLEM STATEMENT:
Benzene is cooled from 141 oF to 79oF in the inner pipe of a double pipe heat
exchanger.Cooling water flows counter currently to the benzene entering the jacket at
65oF(18.3oC) and leaving at 75oF(23.9oC). The exchanger consists of an inner pipe of 7/8 in.
(22.2 mm)BWG 16 copper tubing jacketed with 11/2 in.(38.1 mm)Schedule 40 steel pipe.The
linear velocity of the benzene is 5ft/s(1.52 m/s).Neglecting the resistance of the wall and scale
films and assuming L/D >150 for both pipes compute the film coefficient of benzene and water
and the overall coefficient based on the outside area of inner pipe.
MATLAB CODE:
clc;
clear all;
for f=1:10
t1(1)=141;
t2=79;
t(f)=(t1(f)+t2)/2;
T1=65;T2=75;
T=(T1+T2)/2;
pb=53.1;
ub=1.16;
kb=0.089;
cpb=0.435;
pw=62.3;
uw=2.38;
kw=0.346;
cpw=1;
Dit=0.0621;
Dot=0.0729;
Dij=0.1342;
vb=5;
A=(3.14*(Dij^2-Dot^2))/4;
wp=3.14*(Dij+Dot);
rh=A/wp;
De=4*rh;
mb=0.8044;
q=mb*cpb*(t1(f)-t2);
mw=q/(cpw*(T2-T1));
vw=mw/(A*pw);
reb=(Dit*vb*3600*pb)/ub;
prb=(cpb*ub)/kb;
rew=(De*vw*3600*pw)/uw;
prw=(cpw*uw)/kw;
nub=(0.023*reb*prb)/((reb^0.2)*(prb^(2/3)));
hi=(nub*kb)/Dit;
nuw=(0.023*rew*prw)/((rew^0.2)*(prw^(2/3)));
h0=(nuw*kw)/De;
dti(f)=((t(f)-T)/hi)/((1/hi)+(Dit/De*h0));
tw=t(f)-dti(f);
uw1=1.45;
phib=(ub/uw1)^0.14;
phiw=(uw/uw1)^0.14;
hii=hi*phib;
h00=h0*phiw;
dtii(f)=((t(f)-T)/hii)/((1/hii)+(Dit/De*h00));
j(f)=(1/h00)+(Dot/(hii*Dit));
Name:A.S.R.KRISHNA
U(f)=1/j(f);
t1(f+1)=t1(f)+10;
end
for i=1:10
x(i)=t1(i);
y(i)=U(i);
end
solution=[x',y']
plot(x,y),
xlabel('Temperature'),
ylabel('Overall coefficient')
title('Temperature Vs Overall coefficient')
Name:A.S.R.KRISHNA
OUTPUT:
1 141.0000 204.8601
2 151.0000 211.5007
3 161.0000 216.9698
4 171.0000 221.5651
5 181.0000 225.4892
6 191.0000 228.8854
7 201.0000 231.8579
8 211.0000 234.4845
9 221.0000 236.8248
10 231.0000 238.9251
Name:A.S.R.KRISHNA
PLOT: