ContourPlot[(x^2-y)*Sin[x*y],{x,-3,3},{y,-3,3},
Contours->{-3,0,3},PlotPoints->10,ImageSize->Large,
ContourStyle->{Cyan,Directive[{White,Dashed}],Purple},
ColorFunction->"CandyColors",PlotLegends->Automatic,
ContourLabels->Function[{x,y,z},Style[Text[z,{x,y}],
{Cyan,White,Purple}[[z/3+2]],15]]]
No comments:
Post a Comment