$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ----------    Strip Theory for A Barge    --------
$
$    This set of commands will perform frequency domain analysis of
$ a simple barge.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -dimen feet kips
&device   -g_default device
&TITLE Sample of Strip-Theory Frequency Domain
$
$*********************************************      Read Model
$
inmodeL
$
$*********************************************      Set Condition
$
&instate -con 10 0 0000
&weight -compute 27  32 97 97
&status
$
$*********************************************      Frequency Domain
$
hydro
   g_press -heading 90
end
$
$*********************************************      Frequency Post
$
freq_resp
   &env sea -sea issc 90 10 8
$
$*********************************************      response
$
   rao -spect sea
$
$*********************************************      Spectrum
$
   fr_point
      end
   st_point sea
      report
      end
   sp_point sea
      report
      stat 1 3 5 6 7 -type spec -hard
      end
   &dcptime Time for spect
$
$*********************************************      sresponse
$
   sresponse sea
$
$*********************************************      freq post
$
   fr_point
      report
      stat 1 5 7 9 -hard -type fcoe -hard
      end
   st_point sea
      report
      end
end
$
$*********************************************      All done
$
&finish