%
% draw a truss
%

t = 0:.01:1;

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

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

lx = [0 1];
ly = [0 0];

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

plot(wx,wy)
hold
plot(lx,ly)
plot(sx+1,sy)
text(3/2,1.2,'k_1','fontsize',16)
plot(lx+2,ly)
plot(mx+4,my)
text(3.7,-.3,'m_1','fontsize',16)
plot([4 4],[1.2 1.8])
plot([4.1 4.5],[1.5 1.5])
plot([4.4 4.5],[1.6 1.5])
plot([4.4 4.5],[1.4 1.5])
text(4.6,1.5,'x_1','fontsize',16)
text(4.6,-1.5,'f_1','fontsize',16)
plot([4 4],[-1.2 -1.8])
plot([4.1 4.5],-[1.5 1.5])
plot([4.4 4.5],-[1.6 1.5])
plot([4.4 4.5],-[1.4 1.5])
plot(lx+5,ly)
plot(sx+6,sy)
text(6+1/2,1.2,'k_2','fontsize',16)
plot(lx+7,ly)
plot(mx+9,my)
text(8.7,-.3,'m_2','fontsize',16)
plot([9 9],[1.2 1.8])
text(9.6,1.5,'x_2','fontsize',16)
text(9.6,-1.5,'f_2','fontsize',16)
plot([9 9],[-1.2 -1.8])
plot([9.1 9.5],[1.5 1.5])
plot([9.4 9.5],[1.6 1.5])
plot([9.4 9.5],[1.4 1.5])
plot([9.1 9.5],-[1.5 1.5])
plot([9.4 9.5],-[1.6 1.5])
plot([9.4 9.5],-[1.4 1.5])
plot(lx+10,ly)
plot(sx+11,sy)
text(11+1/2,1.2,'k_3','fontsize',16)
plot(lx+12,ly)
plot(mx+14,my)
text(13.7,-.3,'m_3','fontsize',16)
plot([14 14],[1.2 1.8])
text(14.6,1.5,'x_3','fontsize',16)
text(14.6,-1.5,'f_3','fontsize',16)
plot([14 14],[-1.2 -1.8])
plot([14.1 14.5],[1.5 1.5])
plot([14.4 14.5],[1.6 1.5])
plot([14.4 14.5],[1.4 1.5])
plot([14.1 14.5],-[1.5 1.5])
plot([14.4 14.5],-[1.6 1.5])
plot([14.4 14.5],-[1.4 1.5])
plot(lx+15,ly)
plot(sx+16,sy)
text(16+1/2,1.2,'k_4','fontsize',16)
plot(lx+17,ly)
plot(wx+18,wy)

axis equal
axis([0 18.1 -2 2])
axis off
hold
