Note

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

Packages and Initializations

Needs["ParaPlot`"]
(*MathSource Item:0207-986*)

Needs["PlaneCurveFormulas`"](*0208-482*)

Needs["PlaneCurveGenerator`"](*0208-314*)

$HistoryLength = 10;

e

Do[ParaPlot[
        Evaluate@
          Conchoid[ConchoidOfNicomedes[1, 2][t], {0, i}, 
            Range[-3, 3, 6/20]], {t, 0, 2*π}, PlotPoints -> 144, 
        AspectRatio -> Automatic, 
        PlotStyle -> Table[Hue[j], {j,  .6, 1, ((1 -  .6)/6)}], 
        Background -> GrayLevel[1], 
        Epilog -> {Text["XahLee.org", {3, -2.2}]}, 
        PlotRange -> {{-1, 1} 4, {-2.5, 5.2}}, 
        Axes -> True], {i,  .02, 4, ((4 -  .02)/5)}]