| 查看: 943 | 回复: 5 | ||
Xiaoqiuzao新虫 (著名写手)
|
[求助]
思考怎样用vb语言解该非齐次方程，重谢
|
| 2644.07a^(1/3)+a-11980.96=0 |
回复此楼» 猜你喜欢
292求调剂
已经有15人回复
-
304求调剂
已经有5人回复
-
材料与化工考研调剂
已经有17人回复
-
321求调剂
已经有5人回复
-
329求调剂
已经有5人回复
-
材料求调剂一志愿哈工大324
已经有8人回复
-
286求调剂
已经有7人回复
-
083000学硕274求调剂
已经有7人回复
-
311求调剂
已经有8人回复
-
一志愿C9材料与化工专业总分300求调剂
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求高人指点用matlab求解非线性方程组，解决了追加100金币；
已经有11人回复
- 求高手帮我编一个一元三次方程求解的小程序！重谢哦！
已经有5人回复
- 就解方程组，未知数不收敛，要怎么办？诚求！
已经有12人回复
- 【求助】这个带有分段函数偏微分方程怎么用for程序去解决
已经有14人回复
- 【求助】Python 中 求解微分方程 odeint 的用法
已经有11人回复
- 【求助】如何解这个常微分方程【已完结】
已经有9人回复
- 【求助】100金币求助高人一个程序解方程
已经有15人回复
- 【求助】求助：vb编程中用牛顿迭代解三次方程为什么只得到一个根？【已完成】
已经有15人回复
- 【求助】求解非线性方程
已经有8人回复
- 【分享】PDECOL-经典数值求解非线性偏微分方程组源程序
已经有142人回复
mchen10
金虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 1508.2
- 散金: 41
- 红花: 6
- 帖子: 425
- 在线: 159.5小时
- 虫号: 695973
- 注册: 2009-02-04
- 性别: GG
- 专业: 理论和计算化学
2楼2011-10-07 03:58:39
mchen10
金虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 1508.2
- 散金: 41
- 红花: 6
- 帖子: 425
- 在线: 159.5小时
- 虫号: 695973
- 注册: 2009-02-04
- 性别: GG
- 专业: 理论和计算化学
3楼2011-10-07 04:02:29
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
★
xzhdty(金币+1): 欢迎常来讨论 2011-10-08 14:15:34
xzhdty(金币+1): 欢迎常来讨论 2011-10-08 14:15:34
|
简化起见，把你的方程写成以下形式: a^(1/3) + a/2600 -5 = 0 令x = a^(1/3) 方程可以写成 x^3/2600+x-5=0 令y=x^3/2600+x-5 只要y 无限接近0就可以了，那就是判断y的绝对值。 vb代码： Dim x, y As Double For x = 4.9532 To 10 Step 0.00000001 y = x * x * x / 2600 + x - 5 Debug.Print "y=", y; vbTab; "x=", x If Abs(y) < 0.0000001 Then Exit For Next x Print "结果 y=", y & vbTab & "结果 x=", x 自己调节step的值和判断abs（y）的值从大到小，就可以逐步提高精度。 |
4楼2011-10-08 11:29:39
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
5楼2011-10-08 11:30:00
sudo
木虫 (正式写手)
- 程序强帖: 16
- 应助: 6 (幼儿园)
- 金币: 1297.6
- 散金: 1486
- 红花: 20
- 帖子: 588
- 在线: 641小时
- 虫号: 1211394
- 注册: 2011-02-24
- 性别: GG
- 专业: 文艺美学
6楼2011-10-08 15:03:52
6