Hola,
[attachment id=0 msg=458099]
clear, clc, close all
figure(1)
hold on
for k=1:3000
x=rand(1);
y=rand(1);
rho=rand(1);
theta=2*pi*rand(1);
X=2*pi*rand(1);
Y=rand(1);
R=Y*min(1/abs(cos(X)),1/abs(sin(X)));
subplot(1,3,1)
plot(x,y,'bo','MarkerSize',1,'MarkerFaceColor','b')
hold on
subplot(1,3,2)
polarplot(theta,rho,'bo','MarkerSize',1,'MarkerFaceColor','b')
hold on
subplot(1,3,3)
plot(R*cos(X),R*sin(X),'bo','MarkerSize',1,'MarkerFaceColor','b') % sería sin(X)
hold on
end
subplot(1,3,1)
axis square
subplot(1,3,3)
axis square
Me ha impresionado esa distribución que ha encontrado Luis.
Saludos.