$
$*********************************************      basics
$
&dimen -dimen feet kips
&device     -g_default device -oecho no
$
$*********************************************      read model
$
inmodel
medit
   assembly lleg *j0006 *j0004 lbarge2 0  25 20 -tpin 5 300  25 20  -frict .05
   assembly lleg *j0003 *j0001 lbarge 0 -25 20 -tpin 5 300 -25 20  -frict .05
   ~pin fix
   connector mid1 ~pin *mid1 *mid2
   connector aft1 ~pin *aft1 *aft2
   connector one  ~pin *one1 *one2
end
launch -maxtim 25  -maxosc 5 -tstep .5 .5 .5 -winch 10 -noyaw
prcp
   traj
      vlist
      report
   end
   lwfor
      report
   end
   con aft1 mid1 one
      report
   end
   body_force -force @
      report
   end
$
$*********************************************      all done
$
&finish
