RosettaCodeData/Task/Superellipse/Maxima/superellipse.maxima

8 lines
115 B
Plaintext

wxdraw2d(
implicit(
abs(x/200)^(2.5)+abs(y/200)^2.5=1,
x,-250,250,
y,-250,250
)
)$