&macro lc_doit name case num = 1
   &env %name
   &apply -force -fract @ 0 %case  %num
   lcase -static %name
&endmacro
$
$ ----- joseph e. bowles lateral pile example -----
$
*bop 0 0 -40
&describe body model
&default -emod 30000 -nuse @
$
*tob 0 0 4
*top 0 0 0
$
~pile1 tube 12.22 1.01779
~pile2 tube 12.22 1.01779 -soil main -refine 10 -pymult 12.22/1728
$
beam ~pile1 *tob *top
rest ~pile2 *top *bop
$
&data soil main
depth 0
   py 0,0  1000,100
   qw 0,0  100,100
   depth 40
   py 0,0 100*(10+2*40),100
   qw 0,0 100,100
end_&data
$
&describe load *tob *tob
#loadx *tob 12.5
#loady *tob   0   12.5