inmodel
&apply -load @ 100 -force @ 100
struct
   lc_doit load #load
   ssolve
end
strpost
   joint disp -node *@
   rest load
   beam loads stress -node *bp4  -detail
   plate -detail -node @
end
&fini