RosettaCodeData/Task/Superellipse/Maple/superellipse.maple

plots:-implicitplot(abs((1/200)*x^2.5)+abs((1/200)*y^2.5) = 1, x = -10 .. 10, y = -10 .. 10);