用matlab编写的小动画程序钟摆

function pendulum（l）
figure
xmax=1.3*1;ymax=1.3*1;bas=3*1;bash=3*1;
fill（[-xmax-0.05xmax+0.05xmax+0.05-xmax-0.05][ymax/50ymax/50-ymax/50-ymax/50][00.50]）;
hold on
fill（[-xmax-0.025-xmax-0.005-xmax+0.005-xmax+0.025][ymax/50ymax/50+0.2ymax/50+0.2ymax/50][000.5]）;
hold on
fill（[xmax-0.025xmax-0.005xmax+0.005xmax+0.025][ymax/50ymax/50+0.2ymax/50+0.2ymax/50][000.5]）;
hold on
t=0:pi/100:2*pi;Y=0.1*exp（i*t）+xmax+（ymax/50+0.2）*i;
plot（Y）;hold on
t=0:pi/100:2*pi;Y=0.1*exp（i*t）-xmax+（ymax/50+0.2）*i;
plot（Y）;hold on
plot（[-xmaxxmax]