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

felton

想通过plot模拟四连杆运动，
但是不会删除之前的线，
最后所有线的轨迹都在上面，
8 L" \3 X8 W; o! \请教大神怎么可以删除？非常感谢！
clc
1 c/ r! l& @: [/ Y2 Z8 z/ }( Pa=100;
b=350;
c=300;
" T; @. k4 [8 ?* xd=400;
syms t0;
syms t1;
$ f7 ]  {& P/ j' isyms t2;
: n; ?7 O' ^/ ~8 j  sA=2*c*d-2*a*c*cos(t0);
B=2*a*c*sin(t0);
C=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));
8 s' B/ j3 i; k0 b) k3 n) Gfigure;
syms xa xb xc xd ya yb yc yd;
t0=0:0.1:2*pi;
D=2*b*d-2*a*b*cos(t0);
: {, M; }- }/ LE=-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));
( g' Z% ~% `: Y3 {' @) Nxa=0;
. N3 {) ?8 K0 {- G- {9 Mya=0;
xb=a*cos(t0);
yb=a*sin(t0);
$ d2 q$ L6 I, Pxc=xb+b*cos(t2);
yc=yb+b*sin(t2);
' A8 ]7 q# e* X3 v5 pxd=d;
- Z/ O5 E& _" I% R" j9 q7 w- Uyd=0;
AB=line([xa,xb(1)],[ya,yb(1)]);
% F. f9 |( b/ Q+ K* W5 g5 `BC=line([xb(1),xc(1)],[yb(1),yc(1)]);
CD=line([xc(1),xd],[yc(1),yd]);
/ p* E! e; O0 D& x$ }7 KAD=line([xa,xd],[ya,yd]);
& E* W( f" b2 b- k7 S' J5 Yfor i=1:length(xb)
    plot([xa,xb(i)],[ya,yb(i)]),hold on;
  J: \, b$ F) e' T8 u    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
& S2 _5 K- O+ ]    plot([xc(i),xd],[yc(i),yd]),hold on;
    plot([xa,xd],[ya,yd]),hold on;
    drawnow
    pause(0.1)
7 [+ n& t5 b% @end

Allevi

/ ]5 f( U5 `/ X" ~% q配合clf函数
( w) y. u" P  y# I! f1 q2 sXmin = min([xa xb xc xd]); Xmax =  max([xa xb xc xd]);
Ymin = min([ya yb yc yd]); Ymax =  max([ya yb yc yd]);
$ K# a" J7 t9 J/ r* A8 [for i=1:length(xb)
    clf;   
+ s( a9 G' m3 B$ x    plot([xa,xb(i)],[ya,yb(i)],'k');
+ K' n* p7 y" C; T% F    xlim([Xmin Xmax]); ylim([Ymin Ymax]);hold on;
9 v" a8 p# o  Y7 u/ R; ^    plot([xb(i),xc(i)],[yb(i),yc(i)],'r');
    plot([xc(i),xd],[yc(i),yd],'b');
    plot([xa,xd],[ya,yd],'m');
' S4 A5 B! }, M* Q6 Q" h3 S    drawnow
    pause(0.1)
) N0 Y9 b# h+ s0 gend