请分别用 二分之一法则 牛顿法 利用(Function)指令求方程式 x^3-202.24x^2+_百度知道
请分别用 二分之一法则 牛顿法 利用(Function)指令求方程式 x^3-202.24x^2+
求三个解,精确至10^-4 用VB程式 2005主控台应用程式
我有更好的答案
为了这个问题我专意下载了vb2005,把vb6的问题翻译到vb2005,Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Double, y0 As Double, y As Double, cs As Integer, x0 As Double, jie As Double
y0 = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x +
For x = -50 To 200
y = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x +
If y0 * y &= 0 Then
ErFenFa(x0, x, jie, cs)
Debug.Print(&二分法解：& & jie & &,次数：& & cs)
NDFa(x0, jie, cs)
Debug.Print(&牛顿法解：& & jie & &,次数：& & cs)
Function ErFenFa(ByRef x0 As Double, ByRef x1 As Double, ByRef jie As Double, ByRef cs As Integer) As Boolean
Dim f2 As Double, x As Double, y1 As Double, y2 As Double, y3 As Double
f2 = (x0 + x1) / 2
y1 = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x +
y2 = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x +
cs = cs + 1
If Math.Abs(y2) & 10 ^ (-4) Then
ErFenFa = True
y3 = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x +
If ErFenFa = False Then
If y1 * y2 & 0 Then ErFenFa(x0, f2, jie, cs)
If y2 * y3 & 0 Then ErFenFa(f2, x1, jie, cs)
Exit Function
End Function
'牛顿法
Function NDFa(ByRef x0 As Double, ByRef jie As Double, ByRef cs As Integer) As Boolean
Dim x As Double, yd As Double, y1 As Double, x2 As Double, y2 As Double
y1 = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x +
yd = 3 * x ^ 2 - 2 * 202.24 * x + 1136.47
x2 = x0 - y1 / yd
y2 = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x +
cs = cs + 1
If Math.Abs(y2) & 10 ^ (-4) Then
Exit Function
NDFa(x2, jie, cs)
End IfEnd FunctionEnd Class
其他类似问题
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁24x小括号二分之一加六分之五减十二分之十一)_百度知道
24x小括号二分之一加六分之五减十二分之十一)
其他类似问题
二分之一的相关知识
按默认排序
其他6条回答
24X(1/2+5/6-1/12)=24X1/2+24X5/6-24X1/12=12+20-2=30
24*（1/2+5/6-11/12)=10
回答什么？
已通知提问者对您的回答进行评价，请稍等
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁24X³y²÷3x²y-21x²y÷7x-36x^5y³÷6x^4y²其中X=-2，y=二分之一_百度知道
24X³y²÷3x²y-21x²y÷7x-36x^5y³÷6x^4y²其中X=-2，y=二分之一
这是一道待解决的难题
您的回答被采纳后将获得系统奖励20（财富值+经验值）+难题奖励30（财富值+经验值）
我有更好的答案
按默认排序
24X³y²÷3x²y-21x²y÷7x-36x^5y³÷6x^4y²其中X=-2，y=二分之一=8xy -3xy -6xy=-xy=-(-2)*(1/2)=1
其他类似问题
二分之一的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁（2又五分之二乘以37+24乘以二又二分之一-2。4乘以52）乘以（三分之一+十二分之一-0.375=？_百度知道
（2又五分之二乘以37+24乘以二又二分之一-2。4乘以52）乘以（三分之一+十二分之一-0.375=？
提问者采纳
（2又五分之二乘以37+24乘以二又二分之一-2。4乘以52）乘以（三分之一+十二分之一-0.375=2.4×（37+25-52）×（5/12-3/8）=2.4×10×24=24×24=576
其他类似问题
二分之一的相关知识
其他3条回答
1(2-------
2------------
2.4x52)x(----+---------
3= (------------ +----------
-----------)x(-----------+----------
---------)
8=(60-36)x(1/24)=1
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁24-二分之一(8-2x)(6-x)=24x三分之二得多少_百度知道
24-二分之一(8-2x)(6-x)=24x三分之二得多少
我有更好的答案
按默认排序
24-(8-2x)(6-x)/2=24*2/3144-3(48-20x+2x^2)=9648-48+20x-2x^2=32-2x^2+20x-32=0x^2-10x+16=0(x-2)(x-8)=0x=2,
其他类似问题
二分之一的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}