[/quote]
圆均匀分布在阿基米德螺线上,该如何修改?急急急!
clear all
n=8;%圈数
v=0.06;%时间变量t的间隔
t=0:v:n*2*pi;
a=5;%每一圈平面的间隔是a2pi左右
k=5;%z最终上升多少个t,可计算出每一圈z上升k2pi左右
m0=360;%初始相角矫正控制,控制结尾在哪个位置
x=a*(t+1).*sin(t+m0);
y=a*(t+1).*cos(t+m0);
figure(1)
plot(x,y,'-'); % plot figure
axis equal % make figure squre
h=line('xdata',x(1),'ydata',y(1),'color',[1,0,0],'Marker','o','MarkerSize',4*pi,'EraseMode','none');
i=1;
while 1
set(h,'xdata',x(i),'ydata',y(i));
set(gcf,'color',[0.1,0.6,0.8]);
i=i+1;
axis off
drawnow;
% pause(i*0.01);
end