应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 求解一元三次方程
91/1返回列表
查看: 2315  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

cupidaxun

木虫 (著名写手)

[求助] 求解一元三次方程

已知(a-x)(b-x)(c-x)=A,求x值，请教用什么方法或工具能快速解出x?非常感谢！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-06-09 22:31:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

月只蓝

主管区长 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
cupidaxun: 金币+5, ★★★★★最佳答案, 非常感谢！ 2013-06-10 12:30:17
1stopt、MATLAB、Maple，EXCEL都可以做。

1stopt软件小巧，程序也非常简单：
代码：
Parameters x;
Function (1-x)*(2-x)*(3-x)=4;
结
迭代数: 16
计算用时(时:分:秒:毫秒): 00:00:00:61
计算中止原因: 达到收敛判定标准
优化算法: 麦夸特法(Levenberg-Marquardt) + 通用全局优化法
函数表达式 (1-x)*(2-x)*(3-x)-(4)
目标函数值: 0
x: 0.203678096741042

====== 计算结束 ======果：



对于a，b，c，A是已知参数的情况下，MATLAB程序如下，附图1以a=1，b=2，c=3，A=4为例子的输入和输出结果
function solvenole
clear all;clc
format long
global a b c A

a=input('请输入已知常数a=');
b=input('请输入已知常数b=');
c=input('请输入已知常数c=');
A=input('请输入已知常数A=');


x1=fsolve(@fun299792,[a])


%--------------------------------
function y=fun299792(x)
global a b c A
y=(a-x)*(b-x)*(c-x)-A;

Maple也可以做，见附图2
求解一元三次方程
附图1.jpg


求解一元三次方程-1
附图2.jpg
赞一下(1人) 回复此楼
MATLAB、MS小问题、普通问题请发帖求助！时间精力有限，恕不接受无偿私信求助。
2楼2013-06-10 10:07:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cupidaxun

木虫 (著名写手)
引用回帖:
2楼: Originally posted by 月只蓝 at 2013-06-10 10:07:13
1stopt、MATLAB、Maple，EXCEL都可以做。

1stopt软件小巧，程序也非常简单：
代码：
Parameters x;
Function (1-x)*(2-x)*(3-x)=4;
结
迭代数: 16
计算用时(时:分:秒:毫秒): 00:00:00:61
计算中止原因: 达 ...

非常感谢提供的工具和方法，只是这些工具都没有用过，stopt正在研究中，请问用Excel计算能否实现？（比如，我列表给出a,b,c,A数据，对应的x，就可以在另一列计算出来）
赞一下 回复此楼
3楼2013-06-10 12:33:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dbb627

荣誉版主 (著名写手)
★ ★
csgt0: 金币+2, 谢谢 2013-06-14 10:42:06
引用回帖:
3楼: Originally posted by cupidaxun at 2013-06-10 12:33:15
非常感谢提供的工具和方法，只是这些工具都没有用过，stopt正在研究中，请问用Excel计算能否实现？（比如，我列表给出a,b,c,A数据，对应的x，就可以在另一列计算出来）...

可以，列个公式就可以
x一实根，2虚根
x=solve('(a-x)*(b-x)*(c-x)=A','x')

x =

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           a/3 + b/3 + c/3 - ((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)/((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3) + ((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3)

a/3 + b/3 + c/3 + ((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)/(2*((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3)) - ((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3)/2 - (3^(1/2)*(((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)/((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3) + ((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3))*i)/2

a/3 + b/3 + c/3 + ((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)/(2*((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3)) - ((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3)/2 + (3^(1/2)*(((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)/((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3) + ((((a*b)/3 + (a*c)/3 + (b*c)/3 - (a + b + c)^2/9)^3 + (A/2 + ((a + b + c)*(a*b + a*c + b*c))/6 - (a + b + c)^3/27 - (a*b*c)/2)^2)^(1/2) - A/2 - ((a + b + c)*(a*b + a*c + b*c))/6 + (a + b + c)^3/27 + (a*b*c)/2)^(1/3))*i)/2
赞一下 回复此楼
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
4楼2013-06-10 18:02:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
★
csgt0: 金币+1, 欢迎交流 2013-06-14 10:42:19
引用回帖:
4楼: Originally posted by dbb627 at 2013-06-10 18:02:47
可以，列个公式就可以
x一实根，2虚根
x=solve('(a-x)*(b-x)*(c-x)=A','x')

x =

                                                                                                             ...

对“一实根，2虚根”说法有异议。这完全取决于a，b，c，A。如果a，b，c，A都是实数，必然有一个实数解，其他两个则不一定。a，b，c复数， A=0，则是三个复数解。A=0，a，b，c是实数，就有三个实数解。再者，这样冗长的解析解在实用中不知道有什么意义。
Excel计算容易实现求实数根，见附件。复数运算我还不会。如可以实现复数运算，也可以用newton法解
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : CubicEqaution.xls
    • 2013-06-11 09:23:36, 14.5 K

» 本帖已获得的红花（最新10朵）

cupidaxun
5楼2013-06-11 09:24:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cupidaxun

木虫 (著名写手)
引用回帖:
4楼: Originally posted by dbb627 at 2013-06-10 18:02:47
可以，列个公式就可以
x一实根，2虚根
x=solve('(a-x)*(b-x)*(c-x)=A','x')

x =

                                                                                                             ...

感谢回复！
回复此楼
6楼2013-06-11 10:26:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cupidaxun

木虫 (著名写手)
送红花一朵
引用回帖:
5楼: Originally posted by pippi6 at 2013-06-11 09:24:04
对“一实根，2虚根”说法有异议。这完全取决于a，b，c，A。如果a，b，c，A都是实数，必然有一个实数解，其他两个则不一定。a，b，c复数， A=0，则是三个复数解。A=0，a，b，c是实数，就有三个实数解。再者，这样冗 ...

感谢提供帮助，应该是利用excel里假设分析单变量求解的方法计算的吧，尽管没怎么看懂，还是非常感谢。
我是为解决一个工程问题，其实，这之中有许多的a,b,c,A，我们在寻找一个便捷的方案去求解x。
赞一下 回复此楼
7楼2013-06-11 11:49:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
引用回帖:
7楼: Originally posted by cupidaxun at 2013-06-11 11:49:17
感谢提供帮助，应该是利用excel里假设分析单变量求解的方法计算的吧，尽管没怎么看懂，还是非常感谢。
我是为解决一个工程问题，其实，这之中有许多的a,b,c,A，我们在寻找一个便捷的方案去求解x。...

如果是做工程，那就没商量，使用Newton法。只此一招，非线性通吃。 特别适合你这种有导数解析表达的情况。所谓解析解、maple之类都是玩玩的，实际中没啥意思。Newton法简单表达就是
dx=-f(x)/f'(x)
x=x+dx
非常简单、实用。我给你的例子就是如何在excel里实现。只要编辑变量，然后下拉作为迭代。当然，要作为自动工具，最好用fortran或C++写一个程序，这样可以嵌入到你的大程序中去。
赞一下 回复此楼
8楼2013-06-11 12:03:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dbb627

荣誉版主 (著名写手)
引用回帖:
8楼: Originally posted by pippi6 at 2013-06-11 12:03:59
如果是做工程，那就没商量，使用Newton法。只此一招，非线性通吃。 特别适合你这种有导数解析表达的情况。所谓解析解、maple之类都是玩玩的，实际中没啥意思。Newton法简单表达就是
dx=-f(x)/f'(x)
x=x+dx
非常 ...

数值解算法操作是方便，但是如果有公式解，可以不用迭代，也可很快求出非常精确地值。公式解就在省去繁琐的迭代求解过程。
赞一下 回复此楼
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
9楼2013-06-13 10:54:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 cupidaxun 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 320求调剂 +5 深郊akm 2026-04-17 5/250 2026-04-18 19:52 by 王珺璞
[考研] 22408 312求调剂 +24 门路摸摸 2026-04-14 26/1300 2026-04-18 13:04 by wunaiy88
[考研] 收到复试调剂但是去不了 +8 小蜗牛* 2026-04-16 8/400 2026-04-18 11:15 by zixin2025
[考研] 304求调剂 +7 castLight 2026-04-16 7/350 2026-04-17 20:05 by 关一盏灯cd
[考研] 322求调剂 +6 tekuzu 2026-04-17 6/300 2026-04-17 13:48 by Espannnnnol
[考研] 297，工科调剂?河南农业大学本科 +14 河南农业大学-能 2026-04-14 14/700 2026-04-16 14:41 by dingyanbo1
[考研] 26药学专硕105500求调剂 +6 喽哈加油 2026-04-13 7/350 2026-04-16 14:31 by zhouxiaoyu
[考研] 327求调剂 +26 Xxjc1107. 2026-04-13 29/1450 2026-04-16 10:52 by Espannnnnol
[考研] 求调剂推荐 +8 小聂爱学习 2026-04-14 8/400 2026-04-16 07:22 by 学员JpLReM
[考研] 297，工科调剂? +10 河南农业大学-能 2026-04-14 10/500 2026-04-15 21:50 by noqvsozv
[考研] 一志愿A区211，22408 321求调剂 +6 随心所欲☆ 2026-04-15 7/350 2026-04-15 21:45 by lbsjt
[考研] 通信工程求调剂！！！ +6 zlb770521 2026-04-14 6/300 2026-04-15 20:00 by 学员JpLReM
[考研] 求调剂 +12 何气正 2026-04-13 13/650 2026-04-14 14:47 by zs92450
[考研] 245求调剂 +6 冰糖橘?汽水 2026-04-13 10/500 2026-04-14 10:49 by jyl0317
[考研] 085600材料与化工349分求调剂 +16 李木子啊哈哈 2026-04-12 17/850 2026-04-14 09:11 by fenglj492
[考研] 求调剂 +3 我爱高数高数爱� 2026-04-12 3/150 2026-04-14 01:00 by 王珺璞
[考研] 考研英一数一338分 +9 长江大学东校区 2026-04-13 10/500 2026-04-14 00:41 by 王珺璞
[考研] 2026硕士调剂_能动_河南农业大学 +4 河南农业大学-能 2026-04-12 4/200 2026-04-13 22:01 by bljnqdcc
[考研] 302求调剂 +10 易！? 2026-04-13 10/500 2026-04-13 19:04 by lbsjt
[考研] 297工科，求调剂? +13 河南农业大学-能 2026-04-12 13/650 2026-04-13 14:12 by dingyanbo1
信息提示
关闭
请填处理意见
关闭