【题目】利用二分法,计算下列函数在[a,b]范围的实根,程序计算后的结果如图1所示.
题目
【题目】利用二分法,计算下列函数在[a,b]范围的实根,程序计算后的结果如图1所示.
Option Base 1
Private Function fun1(x As Single) As Single
fun1 = x * x * x - 3 * x * x - 2 * x + 1
End Sub
Private Function root(a As Single,b As Single) As Single
Dim rot As Single
f0 = fun1(a)
rot = (a + b) / 2
For Abs(a - rot) > 0.000001 Then
If f0 * fun1(rot) > 0 Then
root = root(rot,b)
Else
root = root(a,rot)
End If
Else
root = rot
End If
End Function
Private Sub Command1_Click()
Dim x As Single,a As Single,b As Single
a = Val(Text1(0).Text)
b = Val(Text1(1).Text)
f0 = fun1(a)
f1 = fun1(b)
If f0 * f1 = 0 Then
MsgBox "此区间方程无解!"
Else
rot = root(a,b)
End If
Text1(2).Text = rot
End Sub
答案
0.3433796,-0.8342433,3.490864'每次只找其中的一个Option Base 1Const wucha As Double = 0.000001Private Function fun1(x As Single) As Singlefun1 = x * x * x - 3 * x * x - 2 * x + 1End FunctionPrivate Fun...
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 碘离子与双氧水反应的离子方程式中为什么有H+,它是从哪儿来的?
- 酸,中,碱性环境下重铬酸钾被还原的产物是什么?最好带化学方程式,
- 一个长方形的周长为32厘米,若长是9厘米,请填写下表.
- 太空中有多少行星
- 这个字读什么?“倪”
- 光的折射与色散的知识有哪些?
- 设总体X~N(12,4),x1,x2,x3……x16为样本,X头上一横为样本均值,计算P{丨样本均值-12丨>1}
- 拟人句和比喻句
- X-0.5X=30这个方程怎么解?
- 解方程组{x+y=5,y+z=9,z+u=10,u+x=6
热门考点
- 豁然开朗是不是成语
- use,we,how,tools,the,can?连成一句话哦
- 以每个4.50元的价格购买进一批文具盒,然后以每个6.80元的价格出售当卖出总数的4分之3时,不但收回成本,还
- 描写串串红的优美句子
- 甲比乙多做20个零件,甲、乙做的零件个数的比是3:2.甲、乙各做了多少个零件?
- 比的后项是21,比值是七分之一,求比的前项.
- 修一条高速公路,全长30千米,第一季度修完1/5,第二季度修完1/3,还剩多少千米没修?
- 作文:我给小兔子喂食的片段(150~200字)
- 1.取1mol甲烷与一定量氯气反应,生成物中各有机产物物质的量相等,则产物中盐酸的物质的量为?
- 湘江是长江的支流么?