RosettaCodeData/Task/Superellipse/Mathematica/superellipse.math
2023-07-01 13:44:08 -04:00

1 line
82 B
Text

ContourPlot[Abs[x/200]^2.5 + Abs[y/200]^2.5 == 1, {x, -200, 200}, {y, -200, 200}]