Fortran Coder

查看: 8764|回复: 3
打印 上一主题 下一主题

[数值问题] 一个有关提高运算速度的问题

[复制链接]

59

帖子

2

主题

0

精华

大师

F 币
810 元
贡献
476 点
楼主
发表于 2015-5-21 09:02:36 | 显示全部楼层
REAL    :: summ, cos2, r1, q1, w1, W2, W3
....................
......................

W2 = R1 * R1 + Q1 * Q1
COS2 = R1 * Q1 + W2
COS2 = COS2 * COS2 / 3.0
W1 = SQRT(W2)
.....................

W3 = W1 * W2
...............................
HHS = COS2 / W3

评分

参与人数 1F 币 +9 贡献 +9 收起 理由
fcode + 9 + 9

查看全部评分

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-17 18:15

Powered by Tencent X3.4

© 2013-2024 Tencent

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