Note

This Mathematica notebook is from the WWW project A Visual Dictionary of Special Plane Curves. Copyright © 2004 by Xah Lee. (http://xahlee.org/)

Needs["ParaPlot`"]
Needs["PlaneCurveFormulas`"]
Needs["PlaneCurveGenerator`"]
Needs["Graphics`ImplicitPlot`"]
$HistoryLength = 5;

polynomial

Packages and Initializations

Needs["ParaPlot`"]
Needs["PlaneCurveFormulas`"]
Needs["PlaneCurveGenerator`"]

Needs["Graphics`ImplicitPlot`"]
(*MathSource Item:0200-529*)

illustrating polynomial x^n

c = Table[x^n, {n, 0, 10, 2}]

colors = Table[Hue[N@i], {i, 0, 1, 1/Length@c}]

Plot[Evaluate@c, {x, -3, 3}, AspectRatio -> Automatic,  
      PlotStyle -> colors, 
      PlotRange -> {{-1, 1} 2.5, {- .2, 3.5}}, 
      FrameTicks -> {{0, 1, 2}, {-3, -2, -1, 0, 1, 2, 3, 
            4}}, Background -> GrayLevel[0], Axes -> False,  
      Frame -> True, 
      Epilog -> 
        Text[TableForm@
            MapIndexed[(StyleForm[#1, FontSize -> 14, 
                    FontColor -> colors[[First@#2]]]) &, c], 
          Scaled[{ .5,  .7}], {0, 0}]]

c = Table[x^n, {n, 1, 9, 2}]

colors = Table[Hue[N@i], {i, 0, 1, 1/Length@c}]

Plot[Evaluate@c, {x, -3, 3}, AspectRatio -> Automatic,  
      PlotStyle -> Table[Hue[i], {i, 0, 1, 1/Length@c}], 
      PlotRange -> {{-1, 1} 2, {-1, 1} 2.5}, 
      FrameTicks -> {{0, 1, 2}, {-3, -2, -1, 0, 1, 2, 3, 
            4}}, Background -> GrayLevel[0], Axes -> False,  
      Frame -> True, 
      Epilog -> 
        Text[TableForm@
            MapIndexed[(StyleForm[#1, FontSize -> 14, 
                    FontColor -> colors[[First@#2]]]) &, c], 
          Scaled[{ .5,  .7}], {0, 0}]]