suxing.m

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

function x=suxing(a,p)
if mod(a^(p-1),p)==1
    x=1;
else
    x=0;
end