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

felton

' A+ O1 k! X8 Y$ r  X) G# A, ]
' j( X7 e. u! D5 {8 L& P5 B# x$ c7 N  c想通过plot模拟四连杆运动，
但是不会删除之前的线，
6 I) a1 a) r/ _: h最后所有线的轨迹都在上面，
& O) ?9 i6 T# o7 g  U% o请教大神怎么可以删除？非常感谢！
! o& s3 d8 }6 }" y) oclc
. y/ Y# r2 ]* w5 H9 da=100;
b=350;
$ v& w/ T- E% Bc=300;
d=400;
' P. Q8 ]) j; Msyms t0;
syms t1;
syms t2;
A=2*c*d-2*a*c*cos(t0);
6 z* y! e1 l" S: d/ I, pB=2*a*c*sin(t0);
2 @2 c* v$ l6 N5 T- ~1 `9 s" f( XC=c^2+a^2+d^2-b^2-2*a*d*cos(t0);
! i7 o8 g4 L# a5 y" _t1=2*atan((B-sqrt(B^2-C^2+A^2))/(C-A));
figure;
syms xa xb xc xd ya yb yc yd;
3 Z# i( p; d3 i1 ?8 B2 at0=0:0.1:2*pi;
D=2*b*d-2*a*b*cos(t0);
E=-2*a*b*sin(t0);
, j4 w& g# n# [1 Z3 [9 T) {F=a^2+b^2-c^2+d^2-2*a*d*cos(t0);
* x1 @" e" Q& J6 `- h! _. et2=2*atan((E+sqrt(D.^2+E.^2-F.^2))./(D+F));
xa=0;
ya=0;
* _' O4 x3 O' ^7 f0 kxb=a*cos(t0);
" `) E) }6 ]' ^" i. jyb=a*sin(t0);
/ @4 B4 z( s& M% g: P- Kxc=xb+b*cos(t2);
; q1 U  N; ?3 b" Ayc=yb+b*sin(t2);
xd=d;
9 j9 e& V" Y9 t; U- G- Syd=0;
AB=line([xa,xb(1)],[ya,yb(1)]);
BC=line([xb(1),xc(1)],[yb(1),yc(1)]);
& M/ N1 W$ c" F# t$ S8 G5 [5 G. T$ kCD=line([xc(1),xd],[yc(1),yd]);
3 \8 g' G7 e7 Z) M: ]4 HAD=line([xa,xd],[ya,yd]);
8 g" {$ ]$ {2 j2 C3 X9 R4 \; Qfor i=1:length(xb)
4 ^# l& E6 o1 `3 D9 \0 D. t) n. A: E    plot([xa,xb(i)],[ya,yb(i)]),hold on;
    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
4 q0 J0 d2 \' o4 j    plot([xc(i),xd],[yc(i),yd]),hold on;
    plot([xa,xd],[ya,yd]),hold on;
9 {; Y) d* a! ~7 W    drawnow
    pause(0.1)
. a- u6 b! S1 I9 b) d' f& L: a* gend

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]);
& ~2 V% f% N/ y+ A) Efor i=1:length(xb)
& ]1 h7 x4 y9 L$ T; ?" D; O    clf;   
    plot([xa,xb(i)],[ya,yb(i)],'k');
    xlim([Xmin Xmax]); ylim([Ymin Ymax]);hold on;
    plot([xb(i),xc(i)],[yb(i),yc(i)],'r');
. s- d* j8 l' C5 Z+ T+ G    plot([xc(i),xd],[yc(i),yd],'b');
    plot([xa,xd],[ya,yd],'m');
    drawnow
% `* w$ I, h( t% ~( [3 D    pause(0.1)
6 Q. O- z+ J* Q. P( s" V; `end