想通过plot模拟四连杆运动，但是不会删除之前的线怎么办？

felton

想通过plot模拟四连杆运动，
1 `- {, \  \3 L! z但是不会删除之前的线，
) V! H% s2 Q0 W最后所有线的轨迹都在上面，
5 y. B0 V8 h( z9 e' _# F请教大神怎么可以删除？非常感谢！
1 M9 O  O) h- rclc
a=100;
b=350;
c=300;
d=400;
syms t0;
syms t1;
1 U# }, c- P& f# p! R% a( @syms t2;
A=2*c*d-2*a*c*cos(t0);
B=2*a*c*sin(t0);
C=c^2+a^2+d^2-b^2-2*a*d*cos(t0);
t1=2*atan((B-sqrt(B^2-C^2+A^2))/(C-A));
figure;
* m9 q  T! E6 t: ^' {5 o/ W4 z1 psyms xa xb xc xd ya yb yc yd;
) \* h3 B1 q% `. ~. O8 [) d' Rt0=0:0.1:2*pi;
D=2*b*d-2*a*b*cos(t0);
E=-2*a*b*sin(t0);
F=a^2+b^2-c^2+d^2-2*a*d*cos(t0);
  f  I7 J; T+ D3 Ft2=2*atan((E+sqrt(D.^2+E.^2-F.^2))./(D+F));
' |0 d" P  l/ y9 kxa=0;
; {$ ?1 T% I( u$ jya=0;
5 ?* W+ d5 @" sxb=a*cos(t0);
7 f, u4 P3 c$ d' L* R1 ^3 l' dyb=a*sin(t0);
xc=xb+b*cos(t2);
yc=yb+b*sin(t2);
xd=d;
! P$ x; m5 Q0 |( J  Z, J9 {yd=0;
AB=line([xa,xb(1)],[ya,yb(1)]);
BC=line([xb(1),xc(1)],[yb(1),yc(1)]);
7 d5 J) t: z+ @* T" gCD=line([xc(1),xd],[yc(1),yd]);
AD=line([xa,xd],[ya,yd]);
5 S7 e6 z* z4 _0 V' ]for i=1:length(xb)
7 p( L% ]3 t5 @( n) R    plot([xa,xb(i)],[ya,yb(i)]),hold on;
/ t; `3 n5 W. n    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
    plot([xc(i),xd],[yc(i),yd]),hold on;
& l; P! T* L$ J6 i$ J    plot([xa,xd],[ya,yd]),hold on;
    drawnow
5 V" g) `8 U, j8 a% D2 n    pause(0.1)
end

Allevi

0 F" w- ^/ ?2 S4 o0 M  j配合clf函数
Xmin = min([xa xb xc xd]); Xmax =  max([xa xb xc xd]);
& }2 ^. _5 S/ Y7 g8 r+ [Ymin = min([ya yb yc yd]); Ymax =  max([ya yb yc yd]);
for i=1:length(xb)
2 V9 m  @& Y, X% {    clf;   
' ^( u; ?0 V. O3 ?8 s8 ~    plot([xa,xb(i)],[ya,yb(i)],'k');
( n' |) f$ H  L    xlim([Xmin Xmax]); ylim([Ymin Ymax]);hold on;
4 m7 a$ e6 a0 F7 ]    plot([xb(i),xc(i)],[yb(i),yc(i)],'r');
    plot([xc(i),xd],[yc(i),yd],'b');
    plot([xa,xd],[ya,yd],'m');
' ?( n9 L4 x  ^4 l9 z# _+ ?5 G    drawnow
, f  Y/ c  v9 o& i1 i# Z; ~    pause(0.1)
end