$
$*********************************************      set basics
$
&device  -oecho n  -g_default device
&dimen -dimen meters tonnes
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 0 0 0 0
medit
  &set gbs_hor     = 15e3
  &set gbs_ver_py  =  0.0     0.000  \
                     1000     0.200  \
                     2070     0.400  \
                     2700     0.500  \
                     3400     0.600  \
                    83400     1.600
  ~lmu   lmu  1000 1000 0 x 1e9 y %gbs_hor z %gbs_hor \
                         -x_py %gbs_ver_py
  connector lmu ~lmu -euler -z  *1
end
&set n = 0
&loop x ( 0 .25 .5  .75 1. )
   &loop z ( 0 -.2  -.4 -.5 -.6 -1. -1.6 )
      &set l = x = %x z = %z
      &type %l
      &subtitle %l
      &instate -loc %x 0 %z
      &pict side
      &status f_connector
      &set n = &number(integer 1+%n)
      &set row%n = %x %z &body(f_flex_con spring)
   &endloop
&endloop
&instate -loc 1  0 0
&status f_connector
&instate -loc 1  1 0
&status f_connector
$
$*********************************************      Make HTML Table
$
&channel table -p_devi html
&buildg -csv
x z fx fy fz mx my mz
&loop k 1 %n 1
    %(row%(k))
&endloop
 
vlist
store -sel @
end
$
$
$*********************************************      all done
$
&fini
