Cubical Parabolic Hyperbola

Author

Eric W. Weisstein
March 16, 2008

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

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

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

Plot

Plot[{(x-1)^2(x-2),(x-3)^2(x+1)},{x,-2,5},
PlotStyle->{Red,Blue},AxesLabel->{x,y[x]},
PlotRange->{{-3.2,5},{-5,10}},
Epilog->{
{Red,Text[HoldForm[y[x]==(x-1)^2(x-2)],{2.3,9.5}]},
{Blue,Text[HoldForm[y[x]==(x-3)^2(x+1)],{-1.8,8}]}
}
]