alfa.m

来自「这是用于工程测量进行大坝变形分析的软件」· M 代码 · 共 15 行

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