$
$*********************************************      basics
$
&dimen -dimen feet kips
&device    -oecho no
$
$*********************************************      read model
$
inmodel
&instate -loc rect1 -110 0  -5.00 0 0 0 \
         -loc rect2 +110 0  -5.00 0 0 0 \
         -loc rect3 +330 0  -5.00 0 0 0
medit
   ~wire b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008 \
                     -tab_lim 800
   connector bs ~wire *1bs -anc 135 20
   connector bp ~wire *1bp -anc  -135 20
   connector sp ~wire *3sp -anc -45 20
   connector ss ~wire *3ss -anc  45 20
    ~trus sl_elem 49 both  -len 10 -ig_stif -tab_lim 800
   connect ~trus *1ss *2bs
   connect ~trus *1sp *2bp
   connect ~trus *2ss *3bs
   connect ~trus *2sp *3bp
end
&sele :tr -sele tr@
&sele :an -sele bs bp sp ss
&connector :tr  -l_ten 212
&connector :an  -a_tension 300
&weight -compute rect2 -compute rect1 -compute rect3
&status
&equi
&status config
&status f_connector -hard
&status force
&set perd = -period 3.5 4 4.5 5 5.5 6 6.5 7 7.5 8 \
                    8.5 9 9.5 10 10.5 11 11.5 12  \
                    12.5 13 13.5 14 14.5 15 15.5 16
&set perd =
&env sea -sea issc 180 20 8  -use_mean no
freq_resp
   rao -heading 180 %perd
    st_cfo @ sea
       report
       end
end
struct
   s_body rect2
   lcase -rao
   ssolve
end
strpost
   cases -delete
   cases -spect sea
   &sele :s -se sea -ex frqmean@
   &selec :b -sel *2bs *2ss *2bp *2sp
   restraint -load frqmean@ -node :b
   beam load -node :b -load frqmean@ -detail
   restraint -load :s -node :b
   beam load -node :b -load :s -detail
end
$
$*********************************************      all done
$
&fini
