disp u,
coor x,y,
shap q 4
gaus q
mate fmu eq 1.0;0.0;

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

load=+[u]*eq

end

【Close】