乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 164|回复: 9

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

[复制链接]

14

主题

72

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
128
发表于 2003-8-20 17:59:00 | 显示全部楼层 |阅读模式
希望不用数值代入测试是否逼近的方法。
回复

使用道具 举报

14

主题

230

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
286
发表于 2003-8-21 09:14:00 | 显示全部楼层
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 &ltrec Then
      Sinx_c = x
      Exit Function
    End If
  Next x
End Function
回复

使用道具 举报

14

主题

72

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
128
发表于 2003-8-21 18:59:00 | 显示全部楼层
sin(x)的麦克劳林展开式为:x/1!-x^3/3!+x^5/5!-x^7/7!……(-1)^(2n-1)*x^(2n-1)/(2n-1)!
回复

使用道具 举报

46

主题

261

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
445
发表于 2003-8-29 13:25:00 | 显示全部楼层
我写的:
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
回复

使用道具 举报

21

主题

166

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-1-12 22:47:00 | 显示全部楼层
好象只有叠代法
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-1-12 22:54:00 | 显示全部楼层
赞成2楼方法,一个个去试,是一元方程都能解
回复

使用道具 举报

21

主题

166

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-1-12 22:56:00 | 显示全部楼层
3、4楼的程序都是错的
回复

使用道具 举报

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-1-13 00:11:00 | 显示全部楼层
赞成莫版主的说法,我在学校学数值分析,书中说这类问题最好用迭代法求解。
回复

使用道具 举报

46

主题

261

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
445
发表于 2004-1-13 14:12:00 | 显示全部楼层

在莫名斑竹的指点下,我改正了4楼的代码.
  1. Sub uhku()
  2. '本程序能精确到小数点9位
  3. Dim x, xx, c, fx, flx As Double
  4. c = ThisDrawing.Utility.GetReal(" 请输入c的值:")
  5. x = 1
  6. xx = x
  7. Do
  8. x = xx
  9. fx = Sin(x) - c * x
  10. flx = Cos(x) - c
  11. xx = x - fx / flx
  12. Loop While Abs(xx - x) > 0.000000001
  13. ThisDrawing.Utility.Prompt "x= " & x
  14. End Sub

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

                               
登录/注册后可看大图

回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-1-13 16:33:00 | 显示全部楼层

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

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 11:45 , Processed in 0.468172 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表