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

felton

- u, i4 h( L/ k& x  M/ ~8 d% i
想通过plot模拟四连杆运动，
  x( ?+ h7 m) h1 E但是不会删除之前的线，
1 U8 ]+ \& `4 P  d最后所有线的轨迹都在上面，
4 k, H% P8 N/ C1 m  j# b% O$ M+ F请教大神怎么可以删除？非常感谢！
/ D3 j# }( W5 W, q9 m- ]1 bclc
a=100;
( M% {/ T7 D& E) G8 U# W  t+ tb=350;
c=300;
# {' r) U, @* g2 pd=400;
syms t0;
syms t1;
: ?5 a8 z9 S, E- F) r" Esyms t2;
A=2*c*d-2*a*c*cos(t0);
B=2*a*c*sin(t0);
0 V( _& X$ v8 q8 rC=c^2+a^2+d^2-b^2-2*a*d*cos(t0);
( P% X6 w( }9 Bt1=2*atan((B-sqrt(B^2-C^2+A^2))/(C-A));
% j7 ?2 u* T) C( |7 `; ^, @* Nfigure;
/ h+ X4 l, y- g; Jsyms xa xb xc xd ya yb yc yd;
t0=0:0.1:2*pi;
1 S. G2 s7 T+ zD=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);
t2=2*atan((E+sqrt(D.^2+E.^2-F.^2))./(D+F));
% v- S) X0 {5 a# n6 n* U" @. hxa=0;
4 I/ L9 F3 `& O& B, \ya=0;
xb=a*cos(t0);
$ g( r1 Q4 @+ |, Q  Wyb=a*sin(t0);
$ p. n# [. }1 V( t0 d; Pxc=xb+b*cos(t2);
yc=yb+b*sin(t2);
$ Y  f" B; `0 J! B7 f; \xd=d;
yd=0;
7 U; |" {' D! k- oAB=line([xa,xb(1)],[ya,yb(1)]);
BC=line([xb(1),xc(1)],[yb(1),yc(1)]);
8 D2 y/ a8 w+ W8 u( A+ v, |CD=line([xc(1),xd],[yc(1),yd]);
1 Q4 L- _0 o: g3 e& IAD=line([xa,xd],[ya,yd]);
3 z# k% V; @/ m  kfor i=1:length(xb)
    plot([xa,xb(i)],[ya,yb(i)]),hold on;
    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
    plot([xc(i),xd],[yc(i),yd]),hold on;
& G9 Y  T  e8 ]- a/ E, x0 G    plot([xa,xd],[ya,yd]),hold on;
    drawnow
) M. N0 g# [6 Z# Y1 x7 W    pause(0.1)
( ~& o  ~8 b4 g& p6 ?end

Allevi

配合clf函数
Xmin = min([xa xb xc xd]); Xmax =  max([xa xb xc xd]);
Ymin = min([ya yb yc yd]); Ymax =  max([ya yb yc yd]);
7 \( ?. X* ^- V% E7 Mfor i=1:length(xb)
    clf;   
) Q5 @- K4 g. D' r3 l    plot([xa,xb(i)],[ya,yb(i)],'k');
2 X8 D8 E* A5 B# ]( [5 y1 e    xlim([Xmin Xmax]); ylim([Ymin Ymax]);hold on;
# n; L5 _  P+ m    plot([xb(i),xc(i)],[yb(i),yc(i)],'r');
" F; ~8 N8 A, l9 a5 V    plot([xc(i),xd],[yc(i),yd],'b');
    plot([xa,xd],[ya,yd],'m');
  J8 O1 S( s4 u+ P2 o4 H1 J    drawnow
8 q% A- Q  |3 G7 V0 M    pause(0.1)
9 s, J1 C+ {) y; H6 gend