$
$*********************************************      set basics
$
&device -oecho no
&dimen -dimen feet kips
&subtitle Test of LCASE -RAO
$
$*********************************************      read model
$
inmodel
$
$*********************************************      position
$
&instate -con 10
&weight -compute temp 0.
$
$*********************************************      environments
$
&data env
   env max      -sea issc  90 10 10 -prob max
   env duration -sea issc  90 10 10 -prob duration 10800
   env pbeam -sea issc  90 10 10 -use_mean yes
   env phead -sea issc   0 10 10 -use_mean yes
   env csea  -sea issc  90 10 10 \
                -a_sea issc 0 10 10 -use_mean yes
end_&data
$
$*********************************************      hydrodynamics
$
hydro
   g_press -period 5 7 9 11 13 15 17 -heading 180 135 90
end
&dcptime
$
$*********************************************      freq response
$
freq_resp
  rao -heading 180 135 90 -135 -90
  equ_sum
  fr_point
     report
     end
  st_point max
     &subtitle Max using 3.72 probability
     report
     end
  st_point duration
     &subtitle Max using duration 10800 seconds
     report
     end
     &subtitle
end
&dcptime time for frq post
$
$*********************************************      struct
$
struc
   lcase -rao
   &dcptime time to form lcases
   s_rest ~supo
   ssolve
end
$
$*********************************************      strpost
$
strpost
   cases -spectra pbeam phead csea max duration
   cases -comb   comb pbeam 1 phead 1 frqmeana -1
   &sele :l -ex rao@
   &sele :m -se max duration
   &status r_case  -load :l
   &status amod -load :l
   joint d -load :l
   beam load -class ~tube -load :m  -detail -elem TUBE
   restraint loads -load @ -detail
end
$
$*********************************************      all done
$
&finish
