for i = 2:6
    m = 2*i;
    t = 0:0.01:2*pi/m;
    x = (1/2).*min(sec(m.*t/4), csc(m.*t/4)).*cos(t);
    y = (1/2).*min(sec(m.*t/4), csc(m.*t/4)).*sin(t);
    figure(1)
    plot(x,y, 'DisplayName', ['m = ' num2str(m)])
    hold on
    t = 0:0.01:2*pi;
    x = (1/2).*min(sec(m.*t/4), csc(m.*t/4)).*cos(t);
    y = (1/2).*min(sec(m.*t/4), csc(m.*t/4)).*sin(t);
    figure(2)
    plot(x,y, 'DisplayName', ['m = ' num2str(m)])
    hold on
end
figure(1)
legend()
figure(2)
legend()