&set detail = -detail
&device  -limerr 0
&device -pri device
inmodel
&apply -load @ 100 -force @ 100
struct
   lc_doit load #load
   ssolve
end
strpost
   joint disp -node *@
   beam loads stress -node *bq4  -detail
   plate %detail -node @
   rest
end
&pict iso -type str -color ratio  -shrink -anot ratio
&pict iso -type str -color stress -shrink -anot stress
&fini