 Application Center - Maplesoft

# Rectangular cooling fin

You can switch back to the summary page by clicking here.

A Rectangular Cooling Fin*

*Maple 6

1998 Waterloo Maple Inc.

NOTE: This worksheet demonstrates how Maple can be used in the design of a rectangular cooling fin.

Introduction

In this worksheet we determine a formula for the height of a rectangular cooling fin to give the maximum heat flow. > restart;

Definition of the Problem

We consider a rectangular cooling fin with constant volume V, length and thickness . Cooling takes place by free and forced convection. The heat transfer coefficient is , in and the thermal conductivity, , is in . We neglect radiation and assume the surface temperature of the heat source is constant.

Solution

The temperature distribution in the fin, is given by:

> We simplify this by substituting for .

>  This differential equation is solved subject to certain boundary conditions: The first is that the temperature at the base of the fin is equal to dT, the difference between the temperature of the heat source and the ambient fluid. The second condition is that there is no heat loss through the top of the fin.

> sol := dsolve({deq2, T(0) = dT, D(T)(h) = 0},T(x)); We then determine the heat flow, using the flow through the base of the fin.

>  > Q := simplify(-lambda*l*d*(2*dT*m/(sqrt(d)*(exp(m*h/(sqrt(d)))^2+1))-(dT+dT*exp(m*h/(sqrt(d)))^2)*m/((exp(m*h/(sqrt(d)))^2+1)*sqrt(d)))); We eliminate d using the formula , giving Q as a function of .

>  The optimal value of is a maximum, ie when its derivative with respect to h is zero.

>  We substitute t for and determine the root of this equation.

>  We only need consider the numerator and remove , , and from the equation by equating them to 1:

> s4:=numer(subs(lambda=1, V=1, h=1, dT=1, s3)); We find the root as follows, using positive values of t.

> tsoln:=fsolve(s4, t=0..infinity, avoid={t=0}); To get the optimal value for the height of the fin under the conditions of constant volume and length, we substitute back.

>  Solving this for h we get:

> solve(gl, h); Conclusion

The mathematical model delivers a simple formula for the optimal height at constant volume, dependant on the parameters of the fin.

Reference

Frank P. Incropera and David P. De Witt, Fundamentals of Heat and Mass Transfer, John Wiley & Sons.

Maple Services