自己用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
怎么这个附件现在下载不了啊

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