Shape Factor: Polygon-In-Polygon

M.M. Yovanovich

SHPPOLYPOLY.MWS

Shape factor for two-dimensional region bounded by isothermal regular polygons of [Maple Math] sides.

The inscribed circles to the inner and outer polygons are denoted as [Maple Math] and [Maple Math] .

As the number of sides goes to infinity, the shape factor expression goes to the well-known expression for a region bounded by two isothermal circles, i.e. [Maple Math] .

> restart:

General Expression for [Maple Math] Sides.

> S:= 4*Pi*L/ln(1 + ((D/d)^2 - 1)/(N/Pi*tan(Pi/N)));

[Maple Math]

Shape Factor for Triangle-In-Triangle.

> S3:= subs(N=3, S);

[Maple Math]

Shape Factor for Square-In-Square.

> S4:= subs(N=4,S);

[Maple Math]

Calculation of Shape Factor for Square-In-Square for [Maple Math] .

> Ssqsq_vals:= evalf([seq(subs(L=1, D=j*d, S4), j=2..10)], 4);

[Maple Math]