登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
程序
>
fortran求助
发帖
回复
1126
阅读
1
回复
[
求助
]
fortran求助
离线
昊天龙
UID :73433
注册:
2011-03-09
登录:
2011-08-31
发帖:
38
等级:
仿真新人
0楼
发表于: 2011-06-06 13:02:37
program source1
^c]Sl
implicit none
uz4mHyS6
real(4),dimension(101) :: x
4C/8hsn
integer :: u
E|9LUPcb
real ::v
Hcd> \0
v=0
e#^|NQ<'A
do u=1,101
+^+wS`Y
x(u)=v;
l@*/1O)v
v=v+0.01;
T *t$
enddo
+$>ut r
write(*,*) x
FA^x|C =$
end program source1
Re1@2a>
w=e,gNO
(P#2Am$
但是生成的是0 0.009999999.......之类的
Xy*X4JJh^
图片:捕获.JPG
_ga!TQ:
`^J~^Z7Y-
怎么让他生成矩阵:0 0.01 ..
TiBE9
*Kzs(O
未注册仅能浏览
部分内容
,查看
全部内容及附件
请先
登录
或
注册
共
条评分
离线
tian_yu
UID :79492
注册:
2011-06-26
登录:
2011-07-03
发帖:
14
等级:
仿真新人
1楼
发表于: 2011-06-27 09:59:19
这是计算机所带的误差所造成的,按照标准的Fortran 77 有输出格式,将V设成一个矩阵, 这样在
iKabo,~
T4!]^_t^
write(*,100) (V(i),i=1,5)
b"FsT
100 format(1x,5(3x, F10.6))
4\ OELU
,Vs:Lle
这样可能就可以了。
y]jh*KD[
$Qy(ed
时间太长,有些我也忘了,找一点Fortran 方面的书就可以了
共
条评分
发帖
回复