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

felton

3 I+ J" f" u3 \) H8 d2 v* A2 N想通过plot模拟四连杆运动，
; d* @7 y- J9 |, _' g3 ]但是不会删除之前的线，
最后所有线的轨迹都在上面，
请教大神怎么可以删除？非常感谢！
clc
a=100;
0 a0 x" C# D! N5 f; Qb=350;
+ w0 [/ o  d, z; f1 }c=300;
d=400;
syms t0;
: v  L( ^/ m' K# `# n4 lsyms t1;
! c8 N8 _# H9 T' P% g7 p/ R5 tsyms t2;
, Q( T( b% U/ |A=2*c*d-2*a*c*cos(t0);
  R4 Z1 N4 b8 QB=2*a*c*sin(t0);
2 H  u+ P: o! SC=c^2+a^2+d^2-b^2-2*a*d*cos(t0);
) W; b) k; G# L3 ]$ a/ at1=2*atan((B-sqrt(B^2-C^2+A^2))/(C-A));
, p* [2 P+ k. {# P' V: jfigure;
syms xa xb xc xd ya yb yc yd;
t0=0:0.1:2*pi;
, d4 I$ R+ f+ b% U: P( Q$ r5 ?7 }5 q7 }D=2*b*d-2*a*b*cos(t0);
4 F6 M/ ?- v: T7 k( @0 _E=-2*a*b*sin(t0);
: K7 C# ~# \4 XF=a^2+b^2-c^2+d^2-2*a*d*cos(t0);
t2=2*atan((E+sqrt(D.^2+E.^2-F.^2))./(D+F));
2 y; b8 L2 J. e8 ~$ ?$ c& @xa=0;
9 d9 u! [- J( d' ~7 O* i# tya=0;
xb=a*cos(t0);
yb=a*sin(t0);
xc=xb+b*cos(t2);
$ o3 X6 ?- y7 m6 I  ~' Wyc=yb+b*sin(t2);
7 g$ M. [: I0 l  @% ^2 dxd=d;
( v! C+ G' M; `$ g2 r0 Oyd=0;
3 ?) @+ p9 w* ]0 AAB=line([xa,xb(1)],[ya,yb(1)]);
7 x4 q7 i7 V5 g6 p( ~0 xBC=line([xb(1),xc(1)],[yb(1),yc(1)]);
CD=line([xc(1),xd],[yc(1),yd]);
6 ]0 S! ]* T! d7 v9 O; U9 |9 SAD=line([xa,xd],[ya,yd]);
) h% O& D8 k: r5 |for i=1:length(xb)
$ y/ e7 q4 t) z    plot([xa,xb(i)],[ya,yb(i)]),hold on;
7 n% E. B  ?  X# y    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
# B3 c- V  u* @) ?    plot([xc(i),xd],[yc(i),yd]),hold on;
) z- [6 L& n8 _    plot([xa,xd],[ya,yd]),hold on;
    drawnow
* m0 S5 s' ^3 C# ?1 E3 w    pause(0.1)
end

Allevi

+ Y( E$ _5 s6 c2 p  w8 c/ P8 G配合clf函数
; W/ G/ q4 N: L6 Z* _! pXmin = min([xa xb xc xd]); Xmax =  max([xa xb xc xd]);
2 s( `' o# V3 C! r* L; ]# mYmin = min([ya yb yc yd]); Ymax =  max([ya yb yc yd]);
for i=1:length(xb)
/ X; Q0 Q1 |( V3 P! f& e& h    clf;   
    plot([xa,xb(i)],[ya,yb(i)],'k');
    xlim([Xmin Xmax]); ylim([Ymin Ymax]);hold on;
8 n8 i: t: ~8 }* }/ Q8 W    plot([xb(i),xc(i)],[yb(i),yc(i)],'r');
! ^1 O2 [, B+ n7 `    plot([xc(i),xd],[yc(i),yd],'b');
5 Y- g# Z3 d# G0 Y2 v    plot([xa,xd],[ya,yd],'m');
    drawnow
+ ^( A$ w! @3 O/ N1 W4 m1 U. l    pause(0.1)
& z+ ~2 e- h  m; q6 Y& V$ zend