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

felton

6 ?& S1 Y0 D; W' c
想通过plot模拟四连杆运动，
但是不会删除之前的线，
$ M9 K; s  T* n9 ?# N9 t8 Q最后所有线的轨迹都在上面，
请教大神怎么可以删除？非常感谢！
clc
a=100;
b=350;
c=300;
d=400;
syms t0;
syms t1;
syms t2;
A=2*c*d-2*a*c*cos(t0);
B=2*a*c*sin(t0);
( _0 s- v6 y  A! VC=c^2+a^2+d^2-b^2-2*a*d*cos(t0);
* l. E, |$ M0 g0 y' Ht1=2*atan((B-sqrt(B^2-C^2+A^2))/(C-A));
2 ~# Z; V3 `2 J. f. [2 c- G1 Afigure;
syms xa xb xc xd ya yb yc yd;
$ f# |0 }  a+ b( o+ a3 Dt0=0:0.1:2*pi;
D=2*b*d-2*a*b*cos(t0);
- Y9 F" ^0 x! g. `# h) d: ?E=-2*a*b*sin(t0);
F=a^2+b^2-c^2+d^2-2*a*d*cos(t0);
8 P! a; v# t8 a' Z1 D4 lt2=2*atan((E+sqrt(D.^2+E.^2-F.^2))./(D+F));
' u7 \% [) B# C/ N% X' Pxa=0;
+ q7 w+ K4 f2 ?& x) pya=0;
xb=a*cos(t0);
8 |3 Y' I3 h1 L7 ?" g3 E6 kyb=a*sin(t0);
: o/ t1 F2 p" I; Y5 s3 Qxc=xb+b*cos(t2);
yc=yb+b*sin(t2);
, c; }$ q! I* q: @. n. K( Fxd=d;
/ O2 H+ f/ ]$ Y7 ]; Hyd=0;
7 z) y4 P; N5 D$ EAB=line([xa,xb(1)],[ya,yb(1)]);
7 l. `) F+ c) b9 u* Q8 P5 _; u4 P8 R$ BBC=line([xb(1),xc(1)],[yb(1),yc(1)]);
CD=line([xc(1),xd],[yc(1),yd]);
, C# y1 M- f+ s$ r, n* JAD=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;
6 m: @6 A) V. R/ Z- o: I3 t: J    plot([xc(i),xd],[yc(i),yd]),hold on;
) J4 B: z( k# q) J- m2 U    plot([xa,xd],[ya,yd]),hold on;
" ?  Z& ~& q. }0 h2 g6 p6 g% w    drawnow
5 b/ p, O* q: X. P    pause(0.1)
  I3 v# c0 R% r; _) b# x- P, hend

Allevi

3 J. ?4 u7 u  v; J配合clf函数
5 L8 }% f3 r" D# K# eXmin = 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;   
* G, [9 A9 N7 t0 R" A    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');
    plot([xc(i),xd],[yc(i),yd],'b');
. F9 J7 y3 z4 X9 I    plot([xa,xd],[ya,yd],'m');
7 x' f# j4 {- @+ i5 j    drawnow
( Z9 \6 \2 F5 c5 t    pause(0.1)
( \) c7 ?9 |& m3 J" a: N. m8 [7 Zend