有谁可以解 sin(x)/x=C的方程,c为已知数值。

南子

希望不用数值代入测试是否逼近的方法。

leeyeafu

const PI=3.14159265
Function Sinx_c(c As Double, Prec As Double)  'Prec为精度，例如0.00001
  Dim x As Double
  For x = 0 To PI Step Prec
    If Sin(x)/x - c > -Prec And Sin(x)/x - c <rec Then
      Sinx_c = x
      Exit Function
    End If
  Next x
End Function

南子

sin(x)的麦克劳林展开式为：x/1!-x^3/3!+x^5/5!-x^7/7!……(-1)^(2n-1)*x^(2n-1)/(2n-1)!

ahlzl

我写的:
Sub ddARC()
'本程序能精确到小数点9位
Dim x, xx, c, fx, flx As Double
c = ThisDrawing.Utility.GetReal(" 请输入c的值：")
x = 0.000001
xx = x
Do
x = xx
fx = Sin(x) / x
flx = 1 - Sin(x) / x / x
xx = x - fx / flx
Loop While Abs(xx - x) > 0.000000001
ThisDrawing.Utility.Prompt "x= " & x
ZoomExtents
End Sub

莫名

好象只有叠代法

mikewolf2k

赞成2楼方法,一个个去试,是一元方程都能解

莫名

3、4楼的程序都是错的

zfbj

赞成莫版主的说法，我在学校学数值分析，书中说这类问题最好用迭代法求解。

ahlzl

在莫名斑竹的指点下,我改正了4楼的代码.

2. 
   
3. Sub uhku()
   
4. '本程序能精确到小数点9位
   
5. Dim x, xx, c, fx, flx As Double
   
6. c = ThisDrawing.Utility.GetReal(" 请输入c的值：")
   
7. x = 1
   
8. xx = x
   
9. Do
   
10. x = xx
    
11. fx = Sin(x) - c * x
    
12. flx = Cos(x) - c
    
13. xx = x - fx / flx
    
14. Loop While Abs(xx - x) > 0.000000001
    
15. ThisDrawing.Utility.Prompt "x= " & x
    
16. End Sub

<br /> Sub uhku()<br /> '本程序能精确到小数点9位<br /> Dim x, xx, c, fx, flx As Double<br /> c = ThisDrawing.Utility.GetReal(" 请输入c的值：")<br /> x = 1<br /> xx = x<br /> Do<br /> x = xx<br /> fx = Sin(x) - c * x<br /> flx = Cos(x) - c<br /> xx = x - fx / flx<br /> Loop While Abs(xx - x) > 0.000000001<br /> ThisDrawing.Utility.Prompt "x= " & x<br /> End Sub

哦,我画出了y=sinx/x-c的曲线,c小于1时才有解(两解),还没仔细分析!

meflying

莫名发表于2004-1-12 22:56:003、4楼的程序都是错的

3楼的好象不是程序，是一个数学公式而已。。。