$
$*********************************************      basics
$
&device  -oecho n
&title Test of Cantilever
&set depth = 100
&set height = 20
&set period = 14
$
$*********************************************      read model
$
inmodel
&dcptime
&instate -loc    00  00 -%depth%
&weight -compute  23 34 34 6.4
&status force
medit
   ~cant gspr x 1e3 y 1e4 z 1e3 rx 12e6 ry 12e3 rz 12e3
   &describe body ground
   *g &point(coord *1 -g)
   connec pin1 ~cant *1
end
&instate -move 0 2
&equi
&status force
&status f_connector
&dcptime time for connect
&subtitle regular sea
&env -sea regular 90 %height% %period% -time  3*%period% .25
tdom $-new .4 .6
&exec -diag none
prcpost
  traj  -even 0 900 .25
    report locat
    end
  body_force -force @  -even 0 900 .25
    report
    end
end
$
$*********************************************      all done
$
&fini
