标题:用vb来求解切比雪夫多项式在某一点的函数值
取消只看楼主
赤热的心
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-12-25
结帖率:66.67%
已结贴  问题点数:20 回复次数:1 
用vb来求解切比雪夫多项式在某一点的函数值
Private Sub Command1_Click()
[b]Dim T() As Integer
Dim n%, x%
n = Val(InputBox("输入序列数"))
ReDim T(n)
T(0) = 1
T(1) = x
For n = 2 To n
T(n) = 2 * x * T(n - 1) + T(n - 2)
Next n
For n = 0 To n - 1
Print T(n),
If (n + 1) Mod 5 = 0 Then Print
Next

End Sub
搜索更多相关主题的帖子: 多项式 
2013-12-29 16:19
赤热的心
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-12-25
得分:0 
回复 2楼 vbvcr51
不是分享是交流,我做的这个有点问题。
2013-12-30 21:57



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-425861-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.205108 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved