Wednesday, December 25, 2019

RegionPlot Examples


RegionPlot[Cos[x^7+y^7]<=.05,{x,-4,4},{y,-4,4},
PlotPoints->100,BoundaryStyle->None,ImageSize->500,
ColorFunction->Function[{x,y},
ColorData["BrightBands"][Abs[x-y]]]]


RegionPlot[Sin[2x^3*y]Cos[2y^3*x]<.1,{x,-4,4},{y,-4,4},
PlotPoints->100,BoundaryStyle->Gray,ImageSize->500,
PlotStyle->Texture[ExampleData[{"ColorTexture",
"MultiSpiralsPattern"}]]]



No comments:

Post a Comment