| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 604 人关注过本帖
标题:1/n 循环节求法 请求帮助
只看楼主 加入收藏
wcvolcano
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-3-23
收藏
 问题点数:0 回复次数:0 
1/n 循环节求法 请求帮助
function [m,t]=xh(n)
%循环节的长度不会超过分母的值
l=floor(log10(n))+1;
m(1)=floor(10^l/n);
s(1)=mod(10^l,n);
for k=2:n;
    m(k)=floor(s(k-1)*10/n);
    s(k)=mod(s(k-1)*10,n);
       if  s(k)==1
           t=k+l-1;
           break
       elseif any(s(1:k-1)==s(k))|s(k)==0
              b=find(s(1:k-1)==s(k));
                 t=k-b;
           break
        end   
end

if t<19
   m=num2str(1/n,20);
   m=[m(1:k+l+1-t),'(',m(k+l+2-t:k+l+1),')'];

else
   m=['循环节过长,不能输出'];
end
if length(t)==0
    t=1;
end
if n==3
   m='0.(3)';
   t=1;
end



%%这是个有问题的程序,希望得到=改正
搜索更多相关主题的帖子: function 
2012-03-23 18:43
快速回复:1/n 循环节求法 请求帮助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035967 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved