$*********************************************      set basics
$
$
&title An Example Which Lifts Bouy Out of Water
&device   -oecho no
&dimen -dimen feet kips
&default -depth 31.17
$
$*********************************************      GEN. DATABASE
$
INMODEL
$
$*********************************************      SET INIT. CONDITIONS
$
&INSTATE -LOC   0 0 -0 0 0 0
$
$*********************************************      DEFINE LINES
$
MEDIT
    ~john  b_cat 1.12838 -len 100 -buoy 0 -wtpl .0149 \
                         -emod 7.46e03  -b_ten 1025 \
                         -clump -56.5
    ~john  b_cat 1.12838 -len 180.45 -buoy 0 -wtpl .175  \
                         -emod 2.43e05  -b_ten 1025 \
                         -dep 31.17
    connector  john ~john -anc -103.02 274.38 *avant
END
$
$*********************************************      write table
$
conn
      table john
        report
        end
end
$
$*********************************************      all done
$
&fini