pan.m

为配套王能超版本数值分析简明教程编写,方便学生教师演示!

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