$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con  1.61 0 0
&weight -compute
&status
medit
   ~wire b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008
   connector bs ~wire *bs -anc 135 20
   connector bp ~wire *bp -anc  -135 20
   connector sp ~wire *sp -anc -45 20
   connector ss ~wire *ss -anc  45 20
end
&connector @ -a_tension 300
&status g_connector -hard
&status cl_flex -hard
&equi
&status config
&status f_connector
&status force
&set perd = 6
&env sea -sea regular 90 20 %perd -time %perd .25
freq_resp
  rao -period %perd  -head 90
  equ_sum
  fr_point
     report
  end
end
struct
   lcase -rao
   lcase -time sea c1 0 c2 .25*%perd c3 .5*%perd  c4 .75*%perd
   ssolve
end
&status s_case -hard
strpost
   cases -delete @
   cases -time sea tpost1 0 tpost2 .25*%perd tpost3 .5*%perd \
                   tpost4  .75*%perd
   &status combine -hard
   joint d -load :load
   restraint -detail
end
$
$*********************************************      all done
$
&fini
