作业帮 > 数学 > 作业

求解方程x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0区间在【-2,5】的两个根的VB代码

来源：学生作业帮 编辑：拍题作业网作业帮 分类：数学作业 时间：2024/05/01 15:10:49
求解方程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
利用二分法求方程在区间[-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