回 帖 发 新 帖 刷新版面

主题:输入复数矩阵

如何输出复数矩阵?输出格式如下:

                                        eigvctor:
 ( 0.3805, 0.0000)  ( 0.2944, 0.0000)  (-0.1275, 0.5379)  (-0.1275,-0.5379)
 ( 0.2581, 0.0000)  (-0.5204, 0.0000)  (-0.3056, 0.0329)  (-0.3056,-0.0329)
 ( 0.2787, 0.0000)  ( 0.6953, 0.0000)  ( 0.2168,-0.1608)  ( 0.2168, 0.1608)
 ( 0.7528, 0.0000)  (-0.0184, 0.0000)  (-0.2035,-0.3047)  (-0.2035, 0.3047)
 ( 0.3798, 0.0000)  (-0.3983, 0.0000)  ( 0.6268, 0.0000)  ( 0.6268, 0.0000)

                    

回复列表 (共3个回复)

沙发

标题是输入, 进来看到是输出...
不过要按照你的这个输出就需要做格式控制, 会有点麻烦. 最好自己写写然后试试看.

板凳

integer,parameter :: n=5
integer i
complex a(n,n)
a=1
open(11,file="out.txt")
write(11,"(5('(',F8.3,',',F8.3,')',' '))") (a(i,:),i=1,n)
end

你自己看一下了。

3 楼

一个复数需要2个实数编辑符来输出的

我来回复

您尚未登录,请登录后再回复。点此登录或注册