登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
程序
>
fortran求助
发帖
回复
1125
阅读
1
回复
[
求助
]
fortran求助
离线
昊天龙
UID :73433
注册:
2011-03-09
登录:
2011-08-31
发帖:
38
等级:
仿真新人
0楼
发表于: 2011-06-06 13:02:37
program source1
L4kYF~G:4
implicit none
)J#@L*
real(4),dimension(101) :: x
62vz 'b
integer :: u
YVW!u6W'[6
real ::v
0HxF#SlKM
v=0
]s,T` (&
do u=1,101
fngZ0k!
x(u)=v;
-QS_bQG%
v=v+0.01;
Vi#(x9.
enddo
y'pG'"U]_
write(*,*) x
G2L7_?/m
end program source1
"t_] Qu6
J)g(Nw,O
gn(n</\/O
但是生成的是0 0.009999999.......之类的
+}9%Duim
图片:捕获.JPG
TS3 00F
}P}l4k1W
怎么让他生成矩阵:0 0.01 ..
l^0 <a<P
8KoPaq
未注册仅能浏览
部分内容
,查看
全部内容及附件
请先
登录
或
注册
共
条评分
离线
tian_yu
UID :79492
注册:
2011-06-26
登录:
2011-07-03
发帖:
14
等级:
仿真新人
1楼
发表于: 2011-06-27 09:59:19
这是计算机所带的误差所造成的,按照标准的Fortran 77 有输出格式,将V设成一个矩阵, 这样在
Z.R^@@RqJ
BwBv'p+n
write(*,100) (V(i),i=1,5)
`pcjOM8u
100 format(1x,5(3x, F10.6))
)(!vd!p5
5Vvy:<.la
这样可能就可以了。
DDkOg]
{ZfTUt)-P
时间太长,有些我也忘了,找一点Fortran 方面的书就可以了
共
条评分
发帖
回复