Fortran Coder

查看: 174|回复: 8

[数值问题] 新手求助,关于复数运算的,求大神指导

[复制链接]

6

帖子

1

主题

0

精华

入门

F 币
32 元
贡献
16 点
发表于 2019-7-29 20:49:46 | 显示全部楼层 |阅读模式
本帖最后由 pandaxox 于 2019-7-29 21:00 编辑

我想通过fortran77  进行含复数i的复杂式运算例如,X=(1+C)*e**ia+(1-C)*e**ib
这种类型的式子,其中i为复数i
能否实现
回复

使用道具 举报

414

帖子

1

主题

0

精华

宗师

F 币
2165 元
贡献
1397 点
发表于 2019-7-30 08:49:52 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
program test
implicit none 
complex x
real a, b, c
x=(1+c)*exp(cmplx(0.0,a)) + (1-c)*exp(cmplx(0.0,b))
end program 

6

帖子

1

主题

0

精华

入门

F 币
32 元
贡献
16 点
 楼主| 发表于 2019-7-30 13:58:08 | 显示全部楼层
li913 发表于 2019-7-30 08:49
[mw_shl_code=fortran,true]program test
implicit none
complex x

谢谢你了

6

帖子

1

主题

0

精华

入门

F 币
32 元
贡献
16 点
 楼主| 发表于 2019-7-30 15:21:44 | 显示全部楼层
本帖最后由 pandaxox 于 2019-7-30 15:41 编辑

已修正谢谢

6

帖子

1

主题

0

精华

入门

F 币
32 元
贡献
16 点
 楼主| 发表于 2019-7-30 15:22:32 | 显示全部楼层
pandaxox 发表于 2019-7-30 15:21
[mw_shl_code=fortran,true]c
      parameter (nn=500000)
      dimension p1(nn),p2(nn),amp(nn),a(nn) ...

这个代码,其中关于复数运算的部分是不是错的一塌糊涂?
求指教一下

6

帖子

1

主题

0

精华

入门

F 币
32 元
贡献
16 点
 楼主| 发表于 2019-7-30 15:54:53 | 显示全部楼层
li913 发表于 2019-7-30 08:49
[mw_shl_code=fortran,true]program test
implicit none
complex x

请问我在输出时想把复数的实部和虚部用f7.3格式定义的话,
该怎么写

414

帖子

1

主题

0

精华

宗师

F 币
2165 元
贡献
1397 点
发表于 2019-7-30 20:39:09 | 显示全部楼层
pandaxox 发表于 2019-7-30 15:54
请问我在输出时想把复数的实部和虚部用f7.3格式定义的话,
该怎么写

复数看作两个实数

complex x
write(*,"(f7.3,2x,f7.3)") x

6

帖子

1

主题

0

精华

入门

F 币
32 元
贡献
16 点
 楼主| 发表于 2019-7-31 09:12:29 | 显示全部楼层
li913 发表于 2019-7-30 20:39
复数看作两个实数

complex x

非常感谢

70

帖子

15

主题

0

精华

专家

齊天大聖

F 币
358 元
贡献
224 点
发表于 2019-8-3 12:34:07 | 显示全部楼层
li913 发表于 2019-7-30 08:49
[mw_shl_code=fortran,true]program test
implicit none
complex x

大佬,学习了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-12-8 21:34

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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