Maclaurin Trisectrix Inverse Curve

Author

Eric W. Weisstein
March 16, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneCurves/MaclaurinTrisectrixInverseCurve.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/MaclaurinTrisectrixInverseCurve.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Plot

mac={1-4Cos[t]^2,Tan[t](1-4Cos[t]^2)};

Show[GraphicsArray[Block[{$DisplayFunction=Identity},InverseCurvePlot[mac,{#,0,1},{t,-π/2,π/2},PlotRange->{-3,3}]&/@{-3,-2,1}
]]]

InverseCurvePlot[mac,{-2,0,1},{t,-π/2,π/2}]

FullSimplify[InverseCurve[mac,{-3,0,1},t]]

InverseCurvePlot[mac,{-3,0,1},{t,-π/2,π/2},PlotRange->{{-3,-2},{-1,1}.5}]