设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 三次方程程序运行不了

返回列表发新帖

查看: 13669|回复: 7

上一主题

下一主题

[求助] 三次方程程序运行不了

801 帖子	2 主题	0 精华

F 币: 3804 元
贡献: 2273 点

发消息

楼主

发表于 2014-12-4 15:00:49 | 显示全部楼层

1、你这参数都不对应，怎么能编译；

回复支持反对

使用道具举报

801 帖子	2 主题	0 精华

F 币: 3804 元
贡献: 2273 点

发消息

沙发

发表于 2014-12-4 15:13:08 | 显示全部楼层

2、三次方程的根可能有复数，所以解X要用复数；
3、建议使用盛金公式，百度就有。你这个公式我没看懂。

回复支持反对

使用道具举报

801 帖子	2 主题	0 精华

F 币: 3804 元
贡献: 2273 点

发消息

板凳

发表于 2014-12-4 15:18:31 | 显示全部楼层

4、如果你只要实数解，修改 CALL CUBIC_ROOTS(IX,X) 就出结果了。

回复支持反对

使用道具举报

801 帖子	2 主题	0 精华

F 币: 3804 元
贡献: 2273 点

发消息

地板

发表于 2014-12-5 15:29:24 | 显示全部楼层

对于复数赋值：
real a,b
complex c
c=cmplx(a,b)

回复支持反对

使用道具举报

返回列表发新帖

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-18 14:38

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表