% Кривые Ламе
n = 0.5
a = 1.0
b = 1.0
f = 0:pi/180:pi/2
x = a*cos(f).^(2/n)
y = b*sin(f).^(2/n)
figure()
plot(x, y)
grid on
axis equal
xlab = xlabel('Ось абсцисс Х');
ylab = ylabel('Ось ординат Y');
title('Кривые Ламе');
%Суперэллипс
%clear all;
m=1;
n=1/2;
a = 10;
b = 10;
f = 0:pi/360:2*pi;
%f = 0:pi/180:pi/2;
x = (cos(f).^(2/n)).*(a*sign(cos(f)));
y = (sin(f).^(2/n)).*(b*sign(sin(f)));
%figure()
plot(x1, y1, x, y)
grid on
axis equal
xlab = xlabel('Ось абсцисс Х');
ylab = ylabel('Ось ординат Y');
title('Кривые Ламе');