登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
程序
>
fortran求助
发帖
回复
1124
阅读
1
回复
[
求助
]
fortran求助
离线
昊天龙
UID :73433
注册:
2011-03-09
登录:
2011-08-31
发帖:
38
等级:
仿真新人
0楼
发表于: 2011-06-06 13:02:37
program source1
Bu|Uz0Y
implicit none
p|fSPSz
real(4),dimension(101) :: x
X,-QxV=lc)
integer :: u
QcQQQM
real ::v
mG4$
v=0
,{DZvif
do u=1,101
I3sH8/*
x(u)=v;
b-4gHW
v=v+0.01;
wMFo8;L
enddo
W,<L/ZKJ
write(*,*) x
Z3jh-{ 0
end program source1
GZJIIP#
-+MGs]),
rHe*/nN%*
但是生成的是0 0.009999999.......之类的
[MLJs-*
图片:捕获.JPG
I#lvaoeN
T}')QC&wQ
怎么让他生成矩阵:0 0.01 ..
/IQl
~DY5`jV
未注册仅能浏览
部分内容
,查看
全部内容及附件
请先
登录
或
注册
共
条评分
离线
tian_yu
UID :79492
注册:
2011-06-26
登录:
2011-07-03
发帖:
14
等级:
仿真新人
1楼
发表于: 2011-06-27 09:59:19
这是计算机所带的误差所造成的,按照标准的Fortran 77 有输出格式,将V设成一个矩阵, 这样在
bOIVe
VrG4wLpLs
write(*,100) (V(i),i=1,5)
8R!3}kx
100 format(1x,5(3x, F10.6))
/JP]5M)
;VQFz&Q$u
这样可能就可以了。
*Nfn6lVB
2 uuI_9 "^
时间太长,有些我也忘了,找一点Fortran 方面的书就可以了
共
条评分
发帖
回复