找回密码
 欢迎注册
楼主: wsc810

[求助] 怎样用Mathematica编程实现sqrt(d)连分式展开

[复制链接]
发表于 2010-8-17 09:19:09 | 显示全部楼层
10# hujunhua


私下里我就是用这个函数的 ,

评分

参与人数 1经验 +4 收起 理由
hujunhua + 4 秘而不宣的呀?

查看全部评分

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2010-8-18 09:38:31 | 显示全部楼层
上述代码代表什么意思?我打入Mathematic怎么没什么反应。输出结果和输入结果一样。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2010-8-18 11:05:55 | 显示全部楼层
In[1]:= Convergents[Pi, 10]

Out[1]= {3, 22/7, 333/106, 355/113, 103993/33102, 104348/33215, 208341/66317, 312689/99532, 833719/265381, 1146408/364913}

In[2]:= Convergents[Pi, 10] // Last

Out[2]= 1146408/364913
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2010-8-18 11:14:31 | 显示全部楼层
Q_n :{3, 7, 45, 97, 627, 1351, 8733, 18817, 121635, 262087, 1694157, 3650401}
  1. Convergents[Sqrt[12], 12] // Numerator
复制代码
P_n : {1, 2, 13, 28, 181, 390, 2521, 5432, 35113, 75658, 489061, 1053780}
  1. Convergents[Sqrt[12], 12] // Denominator
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2010-10-7 20:09:50 | 显示全部楼层
9# wsc810
N=CINT(Textbox1.text)
好久没用了,不知道是不是cint这个函数了。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2010-10-7 22:21:13 | 显示全部楼层

T0心静自然

15# winxos 用什么事件驱动,用鼠标点击控件,要使程序获取文本框的值
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2010-10-8 15:00:02 | 显示全部楼层
16# wsc810
VB的事件驱动都不用自己写,
是自动生成的,
比如你添加了一个按钮,
双击界面上的按钮就可以来到代码界面,
这时就可以通过n=cint(textbox1.text)来取到文本框里面的数字了,
建议找本VB基本的教程看看,
一下就明白了。
这有个在线的教程:http://wenku.baidu.com/view/b1471d2ded630b1c59eeb5a9.html
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2013-2-21 11:05:02 | 显示全部楼层
貌似这个跟圆周率要发生联系,偶在找另外一个帖子。。。。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

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

GMT+8, 2024-3-19 10:40 , Processed in 0.049297 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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