自己用VB6做的一个简单的根号d连分式展开
n为要输入的数，P^2=d (mod Q).P0为要迭代终止的数，若不存在，则自动终止（程序设计了最大循环次数）对于诸如Sqrt(d)的数，Q取1,其它值取0，欢迎大家使用！ 为什么提示：正常程序初始化失败？不能运行啊！！！ 2# 云梦
我在电脑上下载使用了，没什么问题啊
只不过不支持大数运算，但可满足一般数学爱好者的研究要求 示例
sqrt(4181)
1*a 0 - 0= 64 a 0= 64
85*a 1 - 64= 21 a 1= 1
44*a 2 - 21= 23 a 2= 1
83*a 3 - 23= 60 a 3= 1
7*a 4 - 60= 59 a 4= 17
100*a 5 - 59= 41 a 5= 1
25*a 6 - 41= 59 a 6= 4
28*a 7 - 59= 53 a 7= 4
49*a 8 - 53= 45 a 8= 2
44*a 9 - 45= 43 a 9= 2
53*a 10 - 43= 63 a 10= 2
4*a 11 - 63= 61 a 11= 31
115*a 12 - 61= 54 a 12= 1
11*a 13 - 54= 56 a 13= 10
95*a 14 - 56= 39 a 14= 1
28*a 15 - 39= 45 a 15= 3
77*a 16 - 45= 32 a 16= 1
41*a 17 - 32= 50 a 17= 2
41*a 18 - 50= 32 a 18= 2
77*a 19 - 32= 45 a 19= 1
28*a 20 - 45= 39 a 20= 3
95*a 21 - 39= 56 a 21= 1
11*a 22 - 56= 54 a 22= 10
115*a 23 - 54= 61 a 23= 1
4*a 24 - 61= 63 a 24= 31
53*a 25 - 63= 43 a 25= 2
44*a 26 - 43= 45 a 26= 2
49*a 27 - 45= 53 a 27= 2
28*a 28 - 53= 59 a 28= 4
25*a 29 - 59= 41 a 29= 4
100*a 30 - 41= 59 a 30= 1
7*a 31 - 59= 60 a 31= 17
83*a 32 - 60= 23 a 32= 1
44*a 33 - 23= 21 a 33= 1
85*a 34 - 21= 64 a 34= 1 怎么这个附件现在下载不了啊 可能论坛搬家后附件丢失了
页:
[1]