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

felton

/ L7 |1 `2 g- G: p* u  H# k
1 E' x( Z/ J( Q& k5 t" }想通过plot模拟四连杆运动，
. |" |  l4 s3 a6 @# @但是不会删除之前的线，
最后所有线的轨迹都在上面，
* O. d; d/ Q% F1 h8 r8 d请教大神怎么可以删除？非常感谢！
8 S7 R& i0 h( O. O  H' bclc
' n. L3 m; B2 s# o8 _) wa=100;
b=350;
) o0 K1 q* U' P* ^8 L* M5 B! Bc=300;
d=400;
( Z( U8 s/ Z9 \6 F9 [: B$ ]syms t0;
4 ?0 T; |$ s5 asyms t1;
syms t2;
/ ~. C! t: o2 @* ^: p; TA=2*c*d-2*a*c*cos(t0);
B=2*a*c*sin(t0);
3 r- b6 F9 x) I1 T2 J0 d& F. _4 n0 E6 cC=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;
syms xa xb xc xd ya yb yc yd;
t0=0:0.1:2*pi;
D=2*b*d-2*a*b*cos(t0);
$ g' D  H! N& z, C9 [E=-2*a*b*sin(t0);
: ?8 F+ ?" C/ M6 |6 aF=a^2+b^2-c^2+d^2-2*a*d*cos(t0);
8 f6 q6 x- ~, M) }! mt2=2*atan((E+sqrt(D.^2+E.^2-F.^2))./(D+F));
7 t4 ?8 G: e. `xa=0;
ya=0;
' Y/ }- K# j5 @% [6 M# zxb=a*cos(t0);
8 e, L$ e# h) P. ^$ Q) gyb=a*sin(t0);
0 }. J  F, {# k! ]2 ?xc=xb+b*cos(t2);
& L7 Q& ^/ S" V8 {& d; p% vyc=yb+b*sin(t2);
xd=d;
3 x( r7 `: C8 myd=0;
# ?* Z% c4 U' }6 m& \* ?( cAB=line([xa,xb(1)],[ya,yb(1)]);
BC=line([xb(1),xc(1)],[yb(1),yc(1)]);
CD=line([xc(1),xd],[yc(1),yd]);
$ u& J1 a! G' f9 NAD=line([xa,xd],[ya,yd]);
for i=1:length(xb)
    plot([xa,xb(i)],[ya,yb(i)]),hold on;
    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
) g- n* p1 o3 B  w( n$ A0 b! @/ _    plot([xc(i),xd],[yc(i),yd]),hold on;
, A* d( X# e( y$ T* I1 d    plot([xa,xd],[ya,yd]),hold on;
: `9 F; w! U& c5 e) b9 y    drawnow
    pause(0.1)
end

Allevi

配合clf函数
1 r. G; s+ E# a6 R0 ~Xmin = min([xa xb xc xd]); Xmax =  max([xa xb xc xd]);
Ymin = min([ya yb yc yd]); Ymax =  max([ya yb yc yd]);
for i=1:length(xb)
    clf;   
    plot([xa,xb(i)],[ya,yb(i)],'k');
; h: U2 n: f$ x* @. r1 d    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');
+ Y  N' Y7 T; b; A& t    drawnow
    pause(0.1)
end