%% Bolas en 2d
clear
clc
close all

[x,y] = meshgrid(linspace(-1,1,400));

p_vec = [1, 1.25, 1.5, 1.75, 2, 3, 5, 7.5, 10];

for k = 1:length(p_vec)
    p = p_vec(k);
    contour(x,y,abs(x).^p + abs(y).^p,'LevelList',1, 'linewidth', 3);
    title(['p = ', num2str(p_vec(k))],'FontSize',14);
    axis equal
    axis([-1.5 1.5 -1.5 1.5])
    frame = getframe(gcf);
    pause(0.5)
end

contour(x,y, max(abs(x), abs(y)),'LevelList',1, 'linewidth', 3);
title('p = \infty','FontSize',14);
axis equal
axis([-1.5 1.5 -1.5 1.5])