&dimen -dimen feet kips
&title test of load members
&dimen -dimen meters m-tons
inmodel
&apply @ 0 jacket 100
&instat -con 55
&stat config
&type bodies &names(bod)
&type parts  &names(part)
&type lgoup  &names(loadg)
&type class  &names(class)
medit
  &describe part eagle
  ed_class  ~colm1 1 tube 22e3 100
  ~dog tube 1000 400
  ed_class ~dog tube 500 100
  ed_class ~dog 1 tube 400 100 -len 10
  &default   -u @
  *add1 100 100 100
  *add2 100 -ref *add1
  ~addcls tube 15e3 200
  *nch1 0 0 22
  beam bemadd ~addcls *add1 *add2
  #elat bemadd 1 2 10 5 15 20
   ela_delet bem2
   lg_delete cat
   #h2o bem2  10
   &describe load bear
   #area 0 10 0 -wind 2 -drag 5 -amass 10
   #buoy 10 -mult_wei 10 -tot_wei 200
   #cow 100 100 100 1000 -cen 0 0 0
   #cow 100 0 0 -cen 2 2 2
   ~tiedown tube 660 12
   &select  :tie -se @ -ex *g@
   tdown 8 8 8 ~tiedown *add1 :tie
   ~wire h_cat   200 -len 100
   connector wire ~wire *add1 *g1
   &apply @ 0 jacket 100
end
&stat cat
&stat f_c
&conne wire -l_tens 100
&stat f_c
&stat config
&instat -move 10
&stat f_c
&stat config
&status -hard
&status m_cat -hard
&stat cat     -hard
&apply -percent  -cat @ #dead 105
&stat -hard
&status m_cat -hard
&stat cat     -hard
&summ
    cat
    beam load ud_force scf ends
    categ
    joint
    point
    class mat
    class dim
    beam proper
    beam sect
end
medit
  &describe part jacket -move 100 100 0 0 0 90
  &describe part eagle  -move 0 0 -200  0 90 0
end
&loop i 1 2
   &status -hard
   &stat load -hard
   &summary
      loadg matric
      loadg attribute
      loadg ud_force
   end
   &apply @ 100
&endloop
&fini