My program won't stop running and I cannot figure out why.

Question

Morgan Tippett 2018-2-27

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/385265-my-program-won-t-stop-running-and-i-cannot-figure-out-why

回答： Walter Roberson 2018-2-27

frac=0.525;
b=7;
A=[frac*b];
F=[floor(frac*b)];
frac=A(1)-F(1);
while frac-floor(frac)~=0 
    A=horzcat(A,frac*b);
    for i=1:length(A)-1
        if abs(A(i)-A(length(A)))<10^(-5)
            sprintf('This is a repeating fraction in base %d',b)
            break
        end 
    end
    F=horzcat(F,floor(frac*b));
    frac=A(length(A))-F(length(F));
end
A
F