$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -condition 9
&dcptime time to medit
medit
   ~rod rod 3 1.5   -len 3000  -refine 20 -depanc 500 -fric 1
   ~wire b_cat 3  -dep 500 -len 3000 -fric 1
   connector ps ~wire   *mlb -anc  -45   20
   connector pb ~wire   *mlc -anc -135   20
   connector sb ~wire   *mld -anc  135   20
   connector ss ~rod    *mla -anc   45   20
end
&names rods
&dcptime time to define connectors
&connector p@ -a_tension 100
&connector s@ -a_tension 400
&status f_rod
&status dg_connector  ss
tdom  -tstep .25 -maxtim 3
&dcptime time for time domain
prcpost
  conforce
    report
  end
  traj
    report loca
  end
  body_force -force @
    report
  end
  r_view ss
    vl
    report
    end
  r_deta ss -event 2
    vl
    report
    end
  r_enve ss
    vl
    report
    end
end
&dcptime time for time domain
$
$*********************************************      all done
$
&fini
