$                                                            
$****************************************                    
$                                                            
&dimen -dimen feet kips                                      
&device -auxin lmu.dat                                       
$                                                            
$****************************************                    
$                                                            
inmodel                                                      
$      
&instate -locate spring 0 0 0
$
$****************************************                    
$                                                            
medit
  ~frict  gspr x 1e3 1e4 y 0 z 0 -friction .5
  connector frict ~frict  *1 *g  -euler +z                        
end     
$
$****************************************                    
$                                                            
&loop ts ( .01 .001 )
$
$****************************************                    
$                                                            
   &instate -loc 0 0 0 -vel 1.0 
   &env  -time 1 %ts 
   &status env
   tdom
$
$****************************************                    
$                                                            
   prcpost
       traj   
          plot 1 5 -rax 11 -n
          report
       end
   end
$
$****************************************                    
$                                                            
&endloop
$
$****************************************                    
$                                                            
&fini