Trident

Author

Eric W. Weisstein
May 10, 2008

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

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

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

Plot

<<Utilities`Typesetting`

Factor[(x^3)-(a^3)]

Plot[Table[(((x^3)-(a^3))/x),{a,0,3,.4}],{x,-3,3},Evaluated->True,AspectRatio->Automatic,PlotRange->{-5,10},PlotStyle->{Black,Red,Orange,Yellow,Green,Blue,Purple},AxesLabel->{x,InlineFraction[x^3-a^3,x]},ImageSize->{Automatic,250}]