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

felton

' }1 x' d$ S! d% }; N
% }$ X, R2 g: V4 q7 t; Q想通过plot模拟四连杆运动，
- s) [1 w8 v) u3 A' N但是不会删除之前的线，
最后所有线的轨迹都在上面，
请教大神怎么可以删除？非常感谢！
clc
a=100;
* M2 q$ v! Q! ^$ ^3 d: Lb=350;
c=300;
d=400;
/ Y0 m( I' B1 ]  |* l, m3 xsyms t0;
! R  u- r, x) {) ]$ `" Z0 Qsyms t1;
syms t2;
5 ]# Z: I0 Y- {% ^& W+ o- y# B7 QA=2*c*d-2*a*c*cos(t0);
; {2 ?/ E& o* OB=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));
6 G# Z. j7 M4 e" E; Z6 p) S* mfigure;
syms xa xb xc xd ya yb yc yd;
t0=0:0.1:2*pi;
$ {! `/ F" ^0 Y% F0 z" ?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));
xa=0;
+ B5 S- r* Z6 i. w3 }  zya=0;
5 n3 \+ r% V/ H0 }  dxb=a*cos(t0);
5 w/ D' [- _4 d; vyb=a*sin(t0);
xc=xb+b*cos(t2);
yc=yb+b*sin(t2);
xd=d;
+ G; t6 U* }, h. _) |5 }  O# g  hyd=0;
1 r8 \4 f: V3 t% ~! GAB=line([xa,xb(1)],[ya,yb(1)]);
* p, ^% @) c$ U7 ^& VBC=line([xb(1),xc(1)],[yb(1),yc(1)]);
9 u0 o3 q- [6 L3 O+ e, FCD=line([xc(1),xd],[yc(1),yd]);
AD=line([xa,xd],[ya,yd]);
" O* Y& |6 W. w- c* vfor i=1:length(xb)
; Y- d) l7 {, h+ w* ?$ l* \, ?    plot([xa,xb(i)],[ya,yb(i)]),hold on;
    plot([xb(i),xc(i)],[yb(i),yc(i)]),hold on;
( a- |! r" R4 P, _    plot([xc(i),xd],[yc(i),yd]),hold on;
, `9 n/ i0 O, L* ?    plot([xa,xd],[ya,yd]),hold on;
; Y. a6 E  {( {) z0 J' u    drawnow
    pause(0.1)
" S: o: m7 Q3 u7 O% i% yend

Allevi

! z  g" \: u  R  B# S配合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]);
$ L# U3 p* ^9 x4 B! u- ~for i=1:length(xb)
    clf;   
+ T, C4 ]% Z5 G0 u% |    plot([xa,xb(i)],[ya,yb(i)],'k');
2 z0 k; O  l# O1 E+ a3 N    xlim([Xmin Xmax]); ylim([Ymin Ymax]);hold on;
+ E/ G  _* D+ r7 u0 y' U    plot([xb(i),xc(i)],[yb(i),yc(i)],'r');
    plot([xc(i),xd],[yc(i),yd],'b');
' G) m  r% ?/ {    plot([xa,xd],[ya,yd],'m');
    drawnow
3 p2 A* f3 ?. |8 \    pause(0.1)
4 l$ T$ \: p: ?' Cend