s=1-2*x/x^2+3*x/x^3……怎么用vb编啊
我很急啊大家帮帮忙好吗就是一直到N项啊X>1要求计算精度为第N项的绝对值小于0.00001s=1-2*x/x^2+3*x/x^3-4*x/x^4+5*x/x^5-6*x/...
我很急啊大家帮帮忙好吗
就是一直到N项啊X>1 要求计算精度为第N项的绝对值小于0.00001 s=1-2*x/x^2+3*x/x^3-4*x/x^4+5*x/x^5-6*x/x^6……这样行吗
Private Sub Command1_Click()
Dim x As Single, eps As Single
x = Text1: eps = 0.00001
Text2 = fun(x, eps)
End Sub
Private Function fun(x As Single, eps As Single)
Dim n As Integer, t As Double, y As Double, s As Single
t = x
Do While Abs(t) > eps
n = n + 1
s = (-1) ^ (n + 1)
t = n * x / x ^ n
y = y + s * t
Loop
fun = y
End Function
这样对不对啊? 展开
就是一直到N项啊X>1 要求计算精度为第N项的绝对值小于0.00001 s=1-2*x/x^2+3*x/x^3-4*x/x^4+5*x/x^5-6*x/x^6……这样行吗
Private Sub Command1_Click()
Dim x As Single, eps As Single
x = Text1: eps = 0.00001
Text2 = fun(x, eps)
End Sub
Private Function fun(x As Single, eps As Single)
Dim n As Integer, t As Double, y As Double, s As Single
t = x
Do While Abs(t) > eps
n = n + 1
s = (-1) ^ (n + 1)
t = n * x / x ^ n
y = y + s * t
Loop
fun = y
End Function
这样对不对啊? 展开
4个回答
展开全部
你不觉得这样很容易溢出吗？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
杭州彩谱科技有限公司
2020-07-03 广告
测色仪L、a、b、c、h的意思，L代表明暗度（黑白），a代表红绿色，b代表黄蓝色，c表示彩度（色彩饱和的程度或纯粹度），h表示色调角。测色仪，广泛应用于塑胶、印刷、油漆油墨、纺织、印染服装等行业的颜色管理领域，根据CIE色空间的Lab，Lc...
点击进入详情页
本回答由杭州彩谱科技有限公司提供
展开全部
函数没错啊！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
函数没错
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你应该再写几项,现在看不出规律.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
