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

felton

8 H3 ]/ r4 ], G) n2 b) E, ^4 {
想通过plot模拟四连杆运动，
但是不会删除之前的线，
最后所有线的轨迹都在上面，
8 z: G( s7 D8 Z# L- \% w: M( _请教大神怎么可以删除？非常感谢！
clc
9 }* Q0 [4 Z) T0 T: da=100;
/ U) l. O; A  B0 x& l& Pb=350;
c=300;
d=400;
2 v7 {- l, E) v+ u; T5 fsyms t0;
4 s  e0 e# {9 }syms t1;
syms t2;
, e( X- \- s7 L- C4 n& XA=2*c*d-2*a*c*cos(t0);
7 j- K) R7 S  ~+ a, [$ PB=2*a*c*sin(t0);
8 B8 {8 w4 a% M' }# _2 ~C=c^2+a^2+d^2-b^2-2*a*d*cos(t0);
7 E) ?% X1 H- O+ j& b% C# ]) vt1=2*atan((B-sqrt(B^2-C^2+A^2))/(C-A));
figure;
syms xa xb xc xd ya yb yc yd;
8 r( y% t6 M9 Y- it0=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);
t2=2*atan((E+sqrt(D.^2+E.^2-F.^2))./(D+F));
+ ~# }1 f6 W* o2 A# a% Zxa=0;
0 P3 X- `; j5 G3 F  yya=0;
xb=a*cos(t0);
$ j, e( ~; O& x' z: |yb=a*sin(t0);
xc=xb+b*cos(t2);
yc=yb+b*sin(t2);
xd=d;
yd=0;
AB=line([xa,xb(1)],[ya,yb(1)]);
5 p( m! e6 W; M+ Y! M# f0 aBC=line([xb(1),xc(1)],[yb(1),yc(1)]);
CD=line([xc(1),xd],[yc(1),yd]);
AD=line([xa,xd],[ya,yd]);
for i=1:length(xb)
    plot([xa,xb(i)],[ya,yb(i)]),hold on;
: J3 W- `4 s4 h, N/ j2 g2 E9 j; e    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
1 o; z) n( b! y# S$ Z+ O    plot([xc(i),xd],[yc(i),yd]),hold on;
    plot([xa,xd],[ya,yd]),hold on;
: N1 Z2 x' ^# a; b- [& N( Q    drawnow
! c5 b6 G# C, L& ^: E, ~    pause(0.1)
0 @( \3 q4 i! K% a8 ~end

Allevi

配合clf函数
Xmin = min([xa xb xc xd]); Xmax =  max([xa xb xc xd]);
( y& @" c! I: c- i* eYmin = min([ya yb yc yd]); Ymax =  max([ya yb yc yd]);
8 h; p8 }3 P0 u" b- O4 e- P% mfor i=1:length(xb)
5 q! ]) Z6 _- S' {8 R% ^& N9 c; T6 ~    clf;   
    plot([xa,xb(i)],[ya,yb(i)],'k');
; a! f0 |% [1 k4 `    xlim([Xmin Xmax]); ylim([Ymin Ymax]);hold on;
    plot([xb(i),xc(i)],[yb(i),yc(i)],'r');
    plot([xc(i),xd],[yc(i),yd],'b');
    plot([xa,xd],[ya,yd],'m');
    drawnow
3 y2 k4 N, X. @    pause(0.1)
; O( _' H. i$ G: o9 jend