Maple Solutions to the Chemical Engineering Problem Set

n:='n':
polyplot:=plot([seq(rhs(eqn[n]),n=2..5)],T=-40..100,color=[red,black,blue,green]):
> plots[display]({polyplot,dataplot});
-60
1200
1000
800
600
400
200
-40
-20
0 20
40
60
80
100
T
From which we observe that the red line (the quadratic) is clearly poorer than the others; all of which
seem more or less equally good. However, if we plot the equations on a semilog plot we see that the
polynomials suffer from a rather serious problem.
> lplot1:=plots[logplot]([seq(rhs(eqn[n]),n=2..5)],T=-40..100,color=[red,black,blue,green]):
> lplot2:=plots[logplot](datapoints,style=point,symbol=box):
> plots[display]({lplot1,lplot2});
Page 16