求解方程x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0区间在【-2,5】的两个根的VB代码
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/10/03 06:21:00
求解方程x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0区间在【-2,5】的两个根的VB代码
Private Sub form_Click()
Dim x1,x2,xa,xb
x1 = -2:x2 = -1:x = -1.5
Do Until Abs(x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20) < 0.00001
If x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20 > 0 Then
x1 = x:x = (x1 + x2) / 2
Else
x2 = x:x = (x1 + x2) / 2
End If
Loop
xa = x
x1 = 4:x2 = 5:x = 4.5
Do Until Abs(x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20) < 0.00001
If x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20 < 0 Then
x1 = x:x = (x1 + x2) / 2
Else
x2 = x:x = (x1 + x2) / 2
End If
Loop
xb = x
MsgBox "该方程在【-2,5】区间的两个零点的近似值分别是" & xa & "和" & xb
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 8000
Me.Height = 8200
Me.Scale (-6,400)-(6,-400)
'x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0
Line (-6,0)-(6,0)
Line (0,400)-(0,-400)
For i = -5 To 5
Line (i,20)-(i,0)
CurrentX = CurrentX - 0.3
Print i
Next i
For x = -2 To 5 Step 0.001
j = x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20
PSet (x,j)
Next x
End Su
Dim x1,x2,xa,xb
x1 = -2:x2 = -1:x = -1.5
Do Until Abs(x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20) < 0.00001
If x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20 > 0 Then
x1 = x:x = (x1 + x2) / 2
Else
x2 = x:x = (x1 + x2) / 2
End If
Loop
xa = x
x1 = 4:x2 = 5:x = 4.5
Do Until Abs(x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20) < 0.00001
If x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20 < 0 Then
x1 = x:x = (x1 + x2) / 2
Else
x2 = x:x = (x1 + x2) / 2
End If
Loop
xb = x
MsgBox "该方程在【-2,5】区间的两个零点的近似值分别是" & xa & "和" & xb
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 8000
Me.Height = 8200
Me.Scale (-6,400)-(6,-400)
'x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0
Line (-6,0)-(6,0)
Line (0,400)-(0,-400)
For i = -5 To 5
Line (i,20)-(i,0)
CurrentX = CurrentX - 0.3
Print i
Next i
For x = -2 To 5 Step 0.001
j = x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20
PSet (x,j)
Next x
End Su
利用二分法求方程在区间[-2,-1]的根3*X*X*X-4*X*X-5*X+13=0在区间[-2,-1]的根
y=(x-1)(x-2)(x-3)(x-4)(x-5)(x-6)(x-7)(x-8)(x-9)(x-10)的导数在x=1
怎样用MATLAB求解方程2*x^4-5*x^3 6*x^2-x 9=0的所有根
已知1+x+x^2+x^3=0,求x+x^2+x^3+x^4+x^5+x^6+x^7+x^8的值
解方程(x-2)/(x-3)-(x-3)/(x-4)=(x-5)/(x-6)-(x-6)/(x-7)
解方程:(x+3)/(x+2)-(x+5)/(x+4)=(x+7)/(x+6)-(x+9)/(x+8)
解方程 x+2/x+1+x+8/x+7=x+6/x+5+x+4/x+3
解一道初一的分式方程(x+1)/(x+2)+(x+6)/(x+7)=(x+2)/(x+3)+(x+5)/(x+6)求x的
vb编程用牛顿迭代法解方程x^5-3x^2+2x+1=0在x=0附近的根.
在Matlab中用什么函数求解非线性方程的根?写出求解如下非线性方程根的Matlab代码.x^2+exp(x)-3=0
解方程(x-2)X(x的平方-6x-9)=x(x-5)X(x-3)
方程(x+1)(x+2)(x+3)(x+4)(x+5)(x+6)(x+7)(x^2+8x+9)+64=0