Countercurrent Double-Pipe Heat Exchanger - Maple Help
For the best experience, we recommend viewing online help using Google Chrome or Mozilla Firefox.

Online Help

All Products    Maple    MapleSim


Home : Support : Online Help : Applications and Example Worksheets : Science and Engineering : Countercurrent Double-Pipe Heat Exchanger

Countercurrent Double-Pipe

Heat Exchanger

Introduction

This application models the temperature dynamics of a countercurrent double-pipe heat exchanger. Three partial differential equations describe the following:

 

• 

The heat balances across the tube- and shell-side liquids

• 

A heat balance across the tube-wall (taking into account the heat flow from the shell- and tube-side liquids, and conduction along the length of the tube)

 

The equations are solved numerically, and the temperature profiles are plotted.  The heat exchanger is assumed to be perfectly insulated. Densities, specific heat capacities, heat transfer coefficients, and thermal conductivities are assumed to be constant.

 

Parameters

Specific heat capacities for the tube-side fluid, shell-side fluid, and the tube wall:

> 

Cpt≔4085:Cps≔4186:Cpw≔380:

Densities:

> 

rhot≔800:rhos≔1200:rhow≔8000:

Flow rates:

> 

Ft≔1:Fs≔1:

Heat transfer coefficients:

> 

Ut≔40000:Us≔40000:

Thermal conductivity of tube-wall:

> 

kw≔109:

Length of heat exchanger:

> 

L≔1:

Internal and external diameter of inner tube, and internal diameter of outer tube:

> 

Di≔0.05:Do≔0.06:Dis≔0.1:

Partial Differential Equations Derived from Energy Balances

Tube wall heat balance:

> 

pde1≔π4⁢Do2−Di2⁢Cpw⁢rhow⁢∂∂t⁢Tw⁡x,t=Ut π Di Tt⁡x,t−Tw⁡x,t−Us π Do⁢Tw⁡x,t−Ts⁡x,t+kw π4⋅Do2−Di2⁢∂2∂x2⁢Tw⁡x,t:

Tube-side heat balance:

> 

pde2≔rhot Cpt π4⁢Di2⁢∂∂t⁢Tt⁡x,t=−Cpt⁢Ft⁢∂∂x⁢Tt⁡x,t−π⁢Di⁢Ut⁢Tt⁡x,t−Tw⁡x,t:

Shell-side heat balance:

> 

pde3≔rhos Cps π4⁢Dis2−Do2⁢∂∂t⁢Ts⁡x,t=Cps Fs ∂∂x⁢Ts⁡x,t+π⁢Do⁢Us⁢Tw⁡x,t−Ts⁡x,t:

Initial and boundary conditions:

> 

ibc≔Tsx,0=300,TsL,t=300,Ttx,0=360,Tt0,t=360,Twx,0=330,D1Tw0,t=0,D1TwL,t=0:

Solution and Results

> 

sol≔pdsolvepde1,pde2,pde3,ibc,numeric,time=t,range=0.. L:

> 

p1≔sol:-plotTt,x= 0.5 L,t=0..5,axes=boxed,color=black,legend=Tube-side liquid:p2≔sol:-plotTs,x=0.5 L,t=0..5,axes=boxed,color=blue,legend=Shell-side liquid:p3≔sol:-plotTw,x=0.5 L,t=0..5,axes=boxed,color=red,legend=Tube wall: plotsdisplayp1,p2,p3,labels=Time (s),Temperature (C),title=Temperature Halfway along Heat Exchanger,titlefont=Helvetica, 18,Bold

> 

p1≔sol:-plotTt,t=5,x=0..L,axes=boxed,color=black,legend=Tube-side liquid:p2≔sol:-plotTs,t=5,x=0..L,axes=boxed,color=blue,legend=Shell-side liquid:p3≔sol:-plotTw,t=5,x=0..L,axes=boxed,color=red,legend=Tube wall:plotsdisplay⁡p1,p2,p3,labels=Distance (m),Temperature (C),title=Temperature Profile along Heat Exchanger,titlefont=Helvetica, 18,Bold

>