RosettaCodeData/Task/Superellipse/Mathematica/superellipse.math

2 lines
82 B
Plaintext

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