Lituus

Note

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

Packages and Initializations

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

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

$HistoryLength = 5;

definition

?Lituus

Lituus[][t]

ParaPlot[Lituus[][t], {t,  .2, 20}, AspectRatio -> Automatic, 
      PlotParameterValue -> True, PlotDot -> True]

ParaPlot[Lituus[][t], {t,  .1, 20 π}, PlotDot -> False, 
        AspectRatio -> Automatic, 
        PlotRange -> {{- .65, 3. }, {- .6, 1}}, 
        Ticks -> {{- .4,  .5, 1, 2, 3}, {- .4,  .5, 1}}, 
        Background -> GrayLevel[0], 
        PlotPoints -> 500];