%% 数学之美====》螺旋线
% 海洋与大气科学
% 20231205
clear;clc;close all;
n=10;
t=0:0.01:2pin;
R=1;
xx=nan(length(t),1);yy=nan(length(t),1);
for i=1:length(t)
xx(i)=Rcos(t(i));
yy(i)=Rsin(t(i));
R=R+1;
end
figure
set(gcf,‘position’,[50 50 1200 1200],‘color’,‘w’)
plot(xx,yy,‘k’,‘LineStyle’,‘-.’,‘LineWidth’,3)
set(gca,‘xcolor’,‘w’,‘ycolor’,‘w’,‘xticklabel’,[],‘yticklabel’,[])
axis equal
export_fig(‘数学之美螺旋线01.jpg’,‘-r300’)
%% 数学之美====》螺旋线
clear;clc;close all;
n=50;
t&#