&device  -oecho n  -g_default device
&TITLE Tube Slam Force Test
&dimen -DIMEN FEET KIPS
$
$****************************************         read model
$
INMODEL
&Apply -perc @ 100  -force @ 100
&instate -locate 0 0 36 -vel 0 0 -20
$
$****************************************         wind environment
$
&env test -time 4 .05
$
$****************************************         find equi
$
&stat config
&stat force
$
$****************************************         time domain wind
$
TDOM -newmark yes
$
$****************************************         report
$
prcpost
   traj
      p 1 4 -n
      report location vel
      end
   elm tube -force @   -even 0 900
      vlist
      plot 1 28 52 76 124 136 -n
      stat 1 76
      report
      end
   ldg ltube -force @
      vlist
      plot 1 46 -rax 165 -n
      stat 1 46
      report
      end
end
&fini