pan.m

来自「为配套王能超版本数值分析简明教程编写,方便学生教师演示!」· M 代码 · 共 14 行

function x=pan(n)
a=sqrt(n);
i=2;
while i<=a;
    if rem(n,i)==0;
        break;
    end
    i=i+1;
end
if i>a;
    x=1;
else
    x=0;
end