MATLAB 实现滑轮运转 动态

MATLAB 实现滑轮运转

实现代码如下：

过程：
就是高中的三角函数，变为一个动态的过程就行啦。

a=2;
b=5;
P1=[0,0];
axis(gca,'equal');
axis([-2 7 -2 3]);
k=1;
for t=1:500
    theta=k*(t/10);
    P2=a*[cos(theta) sin(theta)];
    alfa=asin(a*sin(theta)/b);
    P3=[(a*cos(theta)+b*cos(alfa)) 0];
    crank=line([P1(1) P2(1)],[P1(2) P2(2)]);
    silder=line([P2(1) P3(1)],[P2(2) P3(2)]);
    P2_traj=viscircles([0,0],a,'LineStyle','--');
    P1_circ=viscircles(P1,0.1);
    P2_circ=viscircles(P2,0.1);
    P3_circ=viscircles(P3,0.1);
    pause(0.01);
    delete(crank)
    delete(silder)
    delete(P1_circ)
    delete(P2_circ)
    delete(P3_circ)
end