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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 非线性方程组的解法
51/1返回列表
查看: 2452  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

zouji1983

金虫 (正式写手)

[求助] 非线性方程组的解法

如果用fortran解下面两个方程组：
1. 5+3.2ln(x)+ln(1-x)-2x+5x^2+6x^3-3y=0;
2. 0.3x+0.7y=0.9
方程中既有ln，又有3次幂。
应该怎么编程呢？我是用别人的程序，现在需要加入这个。请高手指点，多谢！
回复此楼

» 猜你喜欢

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

573245006

至尊木虫 (正式写手)

【答案】应助回帖

解题思路：先对上述方程组第2式进行变形，把1式中y用x代替
最终得：x^22.4=exp(5x-35x^2-42x^3-8)/((1-x))^7
用迭代法VB程序如下：
Dim x, x1 As Single
x = 0.1
For i = 1 To 1000
x1 = ((Exp(5 * x - 35 * x ^ 2 - 42 * x ^ 3 - 8)) / ((1 - x) ^ 7)) ^ (1 / 22.4)
x = x1
Next i
Print x
解得：x=0.3031055
则 y=1.155811929(x带入方程组2式手算得)
赞一下 回复此楼
6楼2012-12-26 17:52:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

zouji1983

金虫 (正式写手)
或者，如果用matlab的solve函数，怎么转化成fortran呢？
赞一下 回复此楼
2楼2012-11-21 21:25:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jingjingdou

银虫 (小有名气)

【答案】应助回帖

将上述两个方程化为：
y=(5+3.2ln(x)+ln(1-x)-2x+5x^2+6x^3)/3;
x=(0.9-0.7y)/0.3
然后将(x0,y0)赋初值采用上述式子迭代计算，得到的本次结果(xn,yn)作为下一次结果的初值。循环迭代至前后两次的结果满足精度要求，可以取误差的二范数或者无穷范数等作为判断。
该方法称为迭代法，具体的fortran算法，可以参考gauss-赛德尔迭代算法。网上有很多这样的程序，也可以参见徐士良的《fortran常用算法程序集》这本书。
以上仅介绍计算的主要过程，愿对你有帮助。
不足之处，请见谅……
赞一下(1人) 回复此楼
顺一点，一点就好！
3楼2012-12-22 09:03:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

11jxli1

禁虫 (著名写手)
本帖内容被屏蔽
4楼2012-12-22 21:22:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 5/250 2026-08-16 18:38 by lxmichacl
[基金申请] 快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。 +3 Tide man 2026-08-14 3/150 2026-08-16 17:47 by jurkat.1640
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +9 Ldrop2023 2026-08-13 9/450 2026-08-16 13:24 by wukun_007
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 时间戳又变了8-15 +12 archvillain 2026-08-15 23/1150 2026-08-15 20:47 by foyo404
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 奇怪，两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] FileCode能看出啥？ +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 什么时候出结果，有咨询渠道？？？ +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
信息提示
关闭
请填处理意见
关闭