$
$*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$ ----------- Periodic Pendulum Motion ---------------
$
$*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$*********************************     set basic parameters
$
&device -g_default device  -oecho no
&dimen -dimen feet kips
&title Verification of Natural Frequency
$
$*********************************     read in the model
$
inmodel
$
$*******************************      initial condition
$
&instate -loc block 0 0 0
$
$*******************************      modifiy the model
$
medit
   ~SPR sl_elem 12 -len &node(d_node *box *ground) -EMOD 1E1  \
                   -tab_lim 800
    connector moto ~spr *box *ground
END
$
$*******************************    initalization of motion
$
&status
&status config
&instate -move block 0 0 10
&status config
&status f_connector
$
$*******************************     duration of time analysis
$
&env none -time 100 .1
$
$******************************     time domain-newmark method
$
tdom
$
$******************************      post process
$
prcpost
   traj
     set_var mean -statistics 1 7
     statistics 1 7
     &type %mean
     &set mean = &token(1 %mean)
     add "Mean" -input 1 0 %mean 100 %mean
     vl
     &channel gra_dev -file spmass.ans/sm_mot.eps
     plot 1 7 23 -clean -lim 0 100         \
                 -t_left "Z Location (ft)" \
                 -t_x    "Time (Seconds)"  \
                 -legend 1 "CG"            \
                 -legend 2 "Mean"
     report loc velo
   end
end
$
$********************************     all done
$
&fini