(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 20:01:22
(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!.当第n项的值小于10-5时结束,x为弧度.主调程序同时调用Mysin和标准函数sin,进行验证.
提示:
1.本题的关键是找部分级数和的通项,表示如下:
Ti+2=-1*Ti*x*x/((i+1)*(i+2)) i=1,3,5…
2.本题的形参为x,传值方式;函数的返回值是求得的部分级数和.
3.判断某一项的值是否达到精度,本题要使用Abs()函数,因为通项有正有负.
设计界面如下:
提示:
1.本题的关键是找部分级数和的通项,表示如下:
Ti+2=-1*Ti*x*x/((i+1)*(i+2)) i=1,3,5…
2.本题的形参为x,传值方式;函数的返回值是求得的部分级数和.
3.判断某一项的值是否达到精度,本题要使用Abs()函数,因为通项有正有负.
设计界面如下:
所要求的程序贴上,
Private Sub Command1_Click()
Dim x As Double
x = Val(Text1.Text)
Text2.Text = mysin(x)
Text3.Text = Sin(x)
End Sub
Function mysin(ByVal x As Double) As Double
Dim y As Double,t As Double
y = x
t = y
i = 1
Do
t = -t * x * x / ((i + 1) * (i + 2))
y = y + t
i = i + 2
Loop Until Abs(t) < 0.00001
mysin = y
End Function
Private Sub Command1_Click()
Dim x As Double
x = Val(Text1.Text)
Text2.Text = mysin(x)
Text3.Text = Sin(x)
End Sub
Function mysin(ByVal x As Double) As Double
Dim y As Double,t As Double
y = x
t = y
i = 1
Do
t = -t * x * x / ((i + 1) * (i + 2))
y = y + t
i = i + 2
Loop Until Abs(t) < 0.00001
mysin = y
End Function
(一) 已知求sin(x)的近似值的多项式公式为:sin(x)=x-x3/3!+x5/5!-x7/7!+……+(-1)n
C语言编程s(x)=x-x3/3!+x5/5!-x7/7!+……+(-1)n-1·x2n-1/(2n-1)!
sin(x)=x-x3/3!+x5/5!-x7/7!+……+(-1)nx2n+1/(2n+1)!+…… 编程并计算sin
根据泰勒公式,sinx可用x/1-x3/3!+x5/5!-x7/7!...+(-1)n-1x2n-1/(2n-1)!近似
1/1X3 + 1/3X5 + 1/5X7 + .+ 1/(2x-1)(2x+1)=10/21(x为整数)
1.如果1+X+X2+X3=0,求X+X2+X3+X4+X5+X6+X7+X8的值为?
一道数学题:如果1+x+x2+x3=0,求x+x2+x3+x4+x5+x6+x7+x8的值
x8+x7+x6+x5+x4+x3+x2+x+1因式分解
C语言中把级数y(x)=x+x3/(3*1!)+x5/(5*2!)+x7/(7*3!).表示,不知我的程序哪里出现错误,
已知求sin(x)的近似值的多项式公式为:sin(x)=x-x3/3!+x5/5!-x7/7!+
【分数】1/1x3+1/3x5+1/5x7+…+1/2009x2011要清楚过程的,乘用x代替,用简便方法计算
求解一个方程急 X(1次方)+X2+X3=5 X2+X3+X4=1 X3+X4+X5=-5 X4+X5+X1=-3 X5