数学研发论坛

 找回密码
 欢迎注册
查看: 2034|回复: 7

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

[复制链接]
发表于 2011-6-1 21:30:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?欢迎注册

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

PQa.exe

24 KB, 下载次数: 20, 下载积分: 金币 -1 枚, 经验 1 点, 下载 1 次

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2011-6-2 06:30:39 | 显示全部楼层
为什么提示:正常程序初始化失败?不能运行啊!!!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-6-15 10:34:51 | 显示全部楼层
2# 云梦
我在电脑上下载使用了,没什么问题啊
只不过不支持大数运算,但可满足一般数学爱好者的研究要求
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-6-15 10:38:48 | 显示全部楼层
示例
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
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2013-8-25 07:58:28 | 显示全部楼层
怎么这个附件现在下载不了啊
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2013-8-25 15:52:16 | 显示全部楼层
wsc810 发表于 2013-8-25 07:58
怎么这个附件现在下载不了啊

可能论坛搬家后附件丢失了
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2017-2-9 23:00:12 来自手机 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2019-2-17 17:54 , Processed in 0.054077 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表