Trident of Newton

Author

Eric W. Weisstein
March 6, 2018

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

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

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

Plot

NewtonTrident[{a_,b_,c_,d_},{x_,y_}]:=x y=={d,c,b,a}.x^Range[0,3]

NewtonTrident[{a,b,c,d},{x,y}]

ContourPlot[Evaluate[NewtonTrident[#,{x,y}]&/@{{1,1,1,1},{1,1,1,-1},{-1,-1,-1,1},{1,2,3,4}}],{x,-10,10},{y,-10,10},PlotLegends->"Expressions",LabelStyle->(FontFamily->"Times")]