$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
&summary
  beam ud_for
end
struc
   lc_doit  lc1 #lc1
   s_rest ~one ~twoa
   ssolve -n
end
strpost
   joint disp
   rest -detail
   beam loads
end
struc -init
   lc_doit  lc1 #lc1
   lc_doit        lc2 #lc1 #lc2
   s_rest ~one ~twob
   ssolve -nonlinear
end
strpost
   joint disp
   rest -detail
   beam loads
end
$
$*********************************************      all done
$
&finish
