disp u
coor x,y
shap t 3 
gaus t
mate pk eq 5.0d-7 0.0 

stif
dist=[u/x;u/x]*pk+[u/y;u/y]*pk

load=-[u]*eq

end

Close