panhushu.asv

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

function x=panhushu(a,b)
if a<b;
    t=a;
    a=b;
    b=t;
    
r2=rem(a,b);
r1=b;
while r2~=0;
    a=b;
    b=fix(a/b);
    r1=r2;
    r2=rem(a,b);
end
x=r1;