自己用VB6做的一个简单的根号d连分式展开

wsc810

n为要输入的数，
P^2=d (mod Q).P0为要迭代终止的数，若不存在，则自动终止（程序设计了最大循环次数）对于诸如Sqrt(d)的数，Q取1,其它值取0，欢迎大家使用！

云梦

为什么提示：正常程序初始化失败？不能运行啊！！！

wsc810

2# 云梦
我在电脑上下载使用了，没什么问题啊
只不过不支持大数运算，但可满足一般数学爱好者的研究要求

wsc810

示例
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

wsc810

怎么这个附件现在下载不了啊

zeroieme

wsc810 发表于 2013-8-25 07:58
怎么这个附件现在下载不了啊

可能论坛搬家后附件丢失了