disp u
coor x,y
shap %1 %2
gaus %3
mass %1 
mate fd 3.6e-2
load 0.0

vect x x y

stif
dist=+[u/x_i;u/x_i]*fd

end

Close