$$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                            @
$@     Title :  box                                    @
$@                                                            @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&dimen -dimen meters m-tons
&device  -oecho no
&device  -g_default screen
&parameter -drgtub 0 1.0 1e8 1.0 -f_cd_tube 1.0 
&parameter -wcstube 1.0
$&set relvel = no
&set relvel = yes
&parameter -rel_wind %relvel%
$
$Set dimension of box
$
&set D = 3
&set L = 10
&set wgt = 6
&set zcon = 1.5
&set zdavit = 50
$
$connector data
&set wdia     =   20        $ wire diameter (mm)
&set emod     =   1e3 
&set damp     =   0.0       $ wire damping (tonne/(m/s))
&set wirelen  =   20
$
inmodel
$
$Davit
medit
&describe part ground
    ~fix fix z
    ~spr gspr x 1e1
    connector ppennant ~fix *pt1  
    connector spennant ~fix *pt2  
    connector fpennant ~fix *pt3  
    connector asp      ~spr *pt1  
    connector fsp      ~spr *pt2  
end_medit 
$
&instate box -locate *cog
&equi -iter_max 100
&status configuration 
&status force 
$
$Wind
&env -time 25  0.25
&instate box -loc 10
&status force 
&status configuration 
$
$
tdom
PRCPOST
   trajectory -even 0 9000 .25
      vl
      plot 1 5 -n
      report location  velocity
      
      end
   body_force -force wind -even 0 9000 .25
      vl
      plot 1 2 -rax 4 -n
      report 
      end
end
&fini


