Appendix

=cos((i-3)*pi); Kk3(i,1)=cos((i-3)*pi); Kk3(2,i)=cos((i-3)*pi); Kk3(i,2)=cos((i-3)*pi); Kk3(3,i)=cos((i-3)*pi); Kk3(i,3)=cos((i-3)*pi); end for i=4:nmax for j=4:nmax Kk3(i,j)=cos((i-3)*pi)*cos((j-3)*pi); end end % ROTATIONAL SPRING AT X=1 Kk4(2,2)=1; Kk4(2,3)=2; Kk4(3,2)=2; Kk4(3,3)=4; Kk4(nmax,nmax... View More