满意答案
yclwww1206
推荐于 2018.04.15
采纳率:42% 等级:7
已帮助:709人
%滚动的圆环
ccc
Roll=VideoWriter("rolling_circle");%,做成动画文件,注意文件名不加空格,容易出错
open(Roll);
figure %打开新作图窗口
for varphi=0:0.1*pi:6*pi %圆环转过的弧度
if isempty (get (0,'children' )) %if 语句作用:关闭作图窗口后,程序停止
break
end
hold off
t=linspace(0,2*pi,100); %先画每一帧上的圆
xr=varphi+cos(t); %圆心的横坐标
yr=1+sin(t); %圆心的纵坐标
plot(xr,yr) %画圆
hold on
m=linspace(0,varphi,100) %画圆上某一点的轨迹
x=m-sin(m); %轨迹上的横坐标分成100个点
y=1-cos(m); %轨迹上的纵坐标分为100个点
plot(x,y) %画轨迹
axis([0,20,0,5])
writeVideo (Roll,getframe) ;
end
close(Roll);
01分享举报