alfa.m

这是用于工程测量进行大坝变形分析的软件

function f=alfa(x,y)
if x~=0
    f=atan(y/x);
    if x<0
        f=f+pi;
    end
    if x>0 & y<0
        f=f+2*pi;
    end
else
    f=pi/2;
    if y<0
        f=f+pi;
    end
end