vb编一个函数过程MySin(x)编一个函数过程Mysin(x)，求Mysin(x)=。当第n项的精度小于10-5时结束，x为弧度；主调程序同时调用Mysin和内部函数sin，进行验证。提示：关键是找部分级数和的通项
1人问答
更新时间:2024-04-23 17:24:30
问题描述：
vb编一个函数过程MySin(x)
编一个函数过程Mysin(x)，求Mysin(x)=。
当第n项的精度小于10-5时结束，x为弧度；主调程序同时调用Mysin和内部函数sin，进行验证。
提示：
关键是找部分级数和的通项，如下表示：
i=1,3,5,7…
Mysin(x)=x/1-x^3/3!+x^5/5!-x^7/7!+....+(-1)^*(n-1)x^(2n-1)/(2n-1)!
邱家驹回答：
PrivateSubForm_Click()
DimMAsSingle
M=InputBox("自变量X","输入",0.5)
Print"Mysin(";M;")=";Mysin(M)
Print"Sin(";M;")=";Sin(M)
EndSub
PrivateFunctionMysin(ByValXAsSingle)AsSingle
DimIAsInteger,JAsInteger
DimFAsDouble,JcAsDouble
I=-1
Do
I=I+2
F=X^I
Jc=1
ForJ=1ToI
Jc=Jc*J
Next
Mysin=Mysin+(-1)^((I-1)/2)*F/Jc
LoopWhileAbs((-1)^((I-1)/2)*F/Jc)>=10^-5
PrintI
EndFunction
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
联系方式：