论坛 › Fortran语法讨论 › 新手求助，关于复数运算的，求大神指导

pandaxox 发表于 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
能否实现

li913 发表于 2019-7-30 08:49:52

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

pandaxox 发表于 2019-7-30 13:58:08

li913 发表于 2019-7-30 08:49
program test
implicit none
complex x


谢谢你了

pandaxox 发表于 2019-7-30 15:21:44

本帖最后由 pandaxox 于 2019-7-30 15:41 编辑

已修正谢谢

pandaxox 发表于 2019-7-30 15:22:32

pandaxox 发表于 2019-7-30 15:21
c
      parameter (nn=500000)
      dimension p1(nn),p2(nn),amp(nn),a(nn) ...

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

pandaxox 发表于 2019-7-30 15:54:53

li913 发表于 2019-7-30 08:49
program test
implicit none
complex x


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

li913 发表于 2019-7-30 20:39:09

pandaxox 发表于 2019-7-30 15:54
请问我在输出时想把复数的实部和虚部用f7.3格式定义的话，
该怎么写

复数看作两个实数

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

pandaxox 发表于 2019-7-31 09:12:29

li913 发表于 2019-7-30 20:39
复数看作两个实数

complex x


非常感谢

lookbook 发表于 2019-8-3 12:34:07

li913 发表于 2019-7-30 08:49
program test
implicit none
complex x


大佬，学习了

查看完整版本: 新手求助，关于复数运算的，求大神指导