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

wayne

10# hujunhua 私下里我就是用这个函数的 ，

wsc810

上述代码代表什么意思？我打入Mathematic怎么没什么反应。输出结果和输入结果一样。

hujunhua

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

wayne

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

复制代码

winxos

9# wsc810 N=CINT(Textbox1.text) 好久没用了，不知道是不是cint这个函数了。

wsc810

15# winxos 用什么事件驱动，用鼠标点击控件，要使程序获取文本框的值

winxos

16# wsc810 VB的事件驱动都不用自己写， 是自动生成的， 比如你添加了一个按钮， 双击界面上的按钮就可以来到代码界面， 这时就可以通过n=cint(textbox1.text)来取到文本框里面的数字了， 建议找本VB基本的教程看看， 一下就明白了。 这有个在线的教程：http://wenku.baidu.com/view/b1471d2ded630b1c59eeb5a9.html

无心人

貌似这个跟圆周率要发生联系，偶在找另外一个帖子。。。。