- /
-
Strong Wind 3
on 18 Oct 2021
- 1
- 10
- 0
- 0
- 278
q=50:-.5:1;
hold on
imagesc(q'.*q.^0,[20,80])
colormap(jet(256))
for l=0.1:0.01:5
i=1;
for r=0.1:0.01:3.86
x(1)=l;
for n=1:100;
x(n+1)=r*x(n)*(1-x(n));
end
k(i)=x(101);
i=i+1;
end
r=0.1:0.01:5;
plot(30+5*r(1:numel(k)),15*k,'k.');
hold on;
end
% plot(peaks);
% colormap(parula(5));
text(70,40,'🌑','color','w','fontsize',50)
axis([0 100 0.01 60]);
% figure;
%t=uisetcolor
%set(gca,'Color',[0.8392 0.9882 1])
% x=0:0.00001:5;
% y=sin(2*pi*10000*x);
% plot(x,y);
%
%
%
% colormap(parula(5));
% for i=1:490
% line([r(i) r(i+1)] ,[k(i) k(i+1)]);
% hold on;
% end
% x = [3 2];
% y = [15 12];
% pl = line(x,y);