
%
% draw a swing
%

t = 0:.01:1;

sx = t;
sy = sin(4*pi*t);

mx = cos(2*pi*t);
my = sin(2*pi*t);

lx = [0 2];
ly = [0 0];

wx = [0 0];
wy = [-2 2];


plot(ly,-lx)
hold
plot(sy,-sx-2)
text(1.3,-2.4,'k_1','fontsize',16)
plot(ly,-lx-3)
plot(my,-mx-6)
text(-.3,-6.2,'m_1','fontsize',16)
ax = [0 1 .75 1 .75];
ay = [0 0 .25 0 -.25];
plot(ax,ay-7.5)
plot(ay,-ax-7.5)
text(1.2,-7.8,'x_1','fontsize',16)
text(-.3,-9,'x_2','fontsize',16)
plot(lx+1,ly-6)
plot(sx+3,sy-6)
text(3.5,-4.6,'k_2','fontsize',16)
plot(lx+4,ly-6)
plot(mx+7,my-6)
plot(7+ax,ay-7.5)
plot(7+ay,-ax-7.5)
text(7+1.2,-7.8,'x_3','fontsize',16)
text(7-.3,-9,'x_4','fontsize',16)
text(6.7,-6.2,'m_2','fontsize',16)
plot(ly+7,-lx-3)
plot(sy+7,-sx-2)
text(5.2,-2.4,'k_3','fontsize',16)
plot(ly+7,-lx)
plot([-2 9],[0 0])
axis equal
axis off
%axis([-2 10 -10 0])
%grid
hold
