| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 990 人关注过本帖
标题:新人求教 二分法求根
只看楼主 加入收藏
yihijbi
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-5-6
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
新人求教 二分法求根
为什么我一运行结果就是(1+4)/2=2.5   根本不循环????
Private Sub Form_Load()

    Dim l As Double, u As Double, m As Double
   
    l = 1
    u = 4
    f = x ^ 3 + 4 * x ^ 2 - 10
     m = (u + l) / 2
            
    Do While (u - l) > 0.001
   
        
        If fm * fl = 0 Then Exit Do
        If fm * fl > 0 Then
            l = m
           
        Else
            u = m

        End If
    Loop
    MsgBox "x=" & m
End Sub
搜索更多相关主题的帖子: 二分法 
2017-05-06 14:17
yihijbi
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-5-6
收藏
得分:0 
求的是x ^ 3 + 4 * x ^ 2 - 10 在(1,4)的近似根
2017-05-06 14:20
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
If fm * fl = 0 Then Exit Do  变量fm,fl没有值,当然 fm * fl = 0 了,因此立即退出循环。
看不懂你的这个程序怎么解  x ^ 3 + 4 * x ^ 2 - 10 ,三次方程不是这样的算法吧。

请不要选我!!!
2017-05-06 16:18
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:10 
你以为写成这样,就是f(l)了?? 拜托,那最基本的都没学好
程序代码:
l = 1
f = x ^ 3 + 4 * x ^ 2 - 10
fl


[此贴子已经被作者于2017-5-6 18:48编辑过]

2017-05-06 18:43
快速回复:新人求教 二分法求根
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015336 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved