$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate bar1 -loca 0 0 -9 \
         bar2 -loca 400 0 -9
medit
   ~pin gspr x 1e5 y 1e5 z 1e5
   connector ~pin *b1_3 *b2_0
   connector ~pin *b1_mla *b2_mld
   connector ~pin *b1_mlb *b2_mlc
   ~wire b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008
   connector b1_c ~wire   *b1_mlc -anc -135   20
   connector b1_d ~wire   *b1_mld -anc  135   20
   connector b2_a ~wire   *b2_mla -anc   45   20
   connector b2_b ~wire   *b2_mlb -anc  -45   20
end
&connector b@ -a_tension 300
hydro
   g_press bar1 -period     8      -heading 90 135 180
   g_press bar2 -period     8      -heading 90 135 180
   e_total bar1
   e_total bar2
end
freq_resp
 rao
 &describe body bar1
 fr_point 400
   rep
   end
 equ_sum
 &describe body bar2
 fr_point
   rep
   end
 equ_sum
end
$
$*********************************************      all done
$
&fini
