$
$*********************************************      basics
$
&dimen -dimen feet kips
&title Test Of A Bar Connected on Two ends to a Point
&subtitle Connectors Are Very Stiff Tension Elements
&device  -g_default device -oecho no
&set leng = 800
&set time = 15
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 100
medit
   ~line h_cat 10 -len 100+%leng -b_ten 200
   connector ~line *one *g
   connector ~line *two *g
end
&instate -vel 2 0 0 0 -57.295*2/%leng
&instate -line @
&status sprea
&env test  -time 7*%time 3.75/%time
TDOM -newm  1/4 1/2
prcpost
  cf_mag -even 0 999999 .25
    report
    end
  traj
    report  -even 0 999999 .25
    p 1 9 -n
    p 1 21 -n
    end
end
$
$*********************************************      all done
$
&fini
