Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DensityPlot[ZernikeR[n, m, Norm[{x, y}]] Cos[m ArcTan[x, y]], {x, -1, 1}, {y, -1,1}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}},ColorFunction -> (Hue[2 (1 - #1)/3] &), PlotPoints -> 200,PlotLegends -> Automatic,RegionFunction -> Function[{x, y, z}, -1 < x^2 + y^2 < 1]]
Add Comment
Please, Sign In to add comment