bd-brentplot.mw

> sd:=y -> (y - 1932.3)/9.3;

sd := proc (y) options operator, arrow; (y-1932.3)/9.3 end proc

> d:=y->((y - 1932.3)/9.3)^2;

d := proc (y) options operator, arrow; (y-1932.3)^2/9.3^2 end proc

> pld:=plot(d(y),y=1991..2006,d=40..70):

> display([li4,pld]);

[Plot]

> fourpoly:=[[1991.916,40],[1992.3,42],[1993.1917,43],[1995.5,44],[1996,47],[1997.84,48],[1998.545,49],[1998.778,53],[2000,54],[2003,55],[2003.55,57],[2005.219,59],[2005.345,66]]:

> with(plots):

> li4:=listplot(fourpoly):

>

>