jiou.m

来自「线列阵加权程序」· M 代码 · 共 7 行

function  [s,k,y,x,r]=jiou(s)
if rem(s,2)==0
    s=s/2;k=s-1;y=s;x=s;r=1;
    
else
    s=(s-1)/2;k=s;y=s+1;x=1;r=2;
end