panhushu.asv

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

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