{VERSION 3 0 "SGI MIPS UNIX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" 
-1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 
-1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "
" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }
1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 256 78 "Compound oscillator: a bu
ilding represented by a system of 2nd order equations" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "A:=[[ 2.0,-1,0,0],\n    [-1, 2,-1,0
],\n    [0,-1,2,-1],\n    [0,0,-1,1]];\nevalm(A);\n    " }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"AG7&7&$\"#?!\"\"F)\"\"!F*7&F)\"\"#F)F*7&F*F)
F,F)7&F*F*F)\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7&7&
$\"#?!\"\"F*\"\"!F+7&F*\"\"#F*F+7&F+F*F-F*7&F+F+F*\"\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(linalg):\neigenvects(A);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6&7%$\"+!fZh?\"!#5\"\"\"<#-%'vectorG6#7&
$!+&HM,G#F&$!+Q2D&G%F&$!+%p-Nx&F&$!+9]QllF&7%$\"*(********!\"*F'<#-F*6
#7&$\"+)o-Nx&F&$\"+!p-Nx&F&$!#M!#6$!+.F]tdF&7%$\"+')))3KNF8F'<#-F*6#7&
$\"+M2D&G%F&$!+A]QllF&F=$!+'GM,G#F&7%$\"+bjHZBF8F'<#-F*6#7&$!+@]QllF&$
\"+'GM,G#F&$\"+$p-Nx&F&$!+I2D&G%F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 169 "The eigenvectors represent the profile of the building in each
 of its natural modes of vibration:\nthe eigenvalues represent the squ
ares of the frequecies of those modes." }}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 1 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }