
%
% draw a frame pf masses and springs
%

t = 0:.01:1;

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

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

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

ax = [0 1 .75 1 .75];
ay = [0 0 .15 0 -.15];

plot([-2 8],[0 0])
hold
plot([0 0],[0 1])
plot(sy,2*sx+1)
plot([0 0],[3 4])
text(1,2,'k_1','fontsize',16)

plot(mx,my+5)
text(-.4,5,'m_1','fontsize',16)

plot(ax,ay+6.5); plot(ay,ax+6.5)
text(1.1,6.5,'f_1','fontsize',16)
text(.3,7.4,'f_2','fontsize',16)

plot([1 2],[5 5])
plot(2+2*sx,5+sy)
plot([4 5],[5 5])
text(3,4,'k_2','fontsize',16)

plot(mx+6,my+5)
text(6-.4,5,'m_2','fontsize',16)

plot([6 6],[0 1])
plot(6+sy,2*sx+1)
plot([6 6],[3 4])
text(7,2,'k_3','fontsize',16)

plot(ax+6,ay+6.5); plot(ay+6,ax+6.5)
text(1.1+6,6.5,'f_3','fontsize',16)
text(.3+6,7.4,'f_4','fontsize',16)


axis equal
%axis off
%axis([-2 10 -10 0])
%grid
hold
