24小时热门版块排行榜    

查看: 1767  |  回复: 15
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

mmfzx0517

木虫 (著名写手)

[交流] 【求助】Fortran程序中DO循环的步长可以是变量吗?

RT,也就说
   do i=1,10000,x
      .....
   end do
请问,DO循环中的步长x可以是变量吗?比如x=i*2.如果不行,如何实现DO循环变量i跳跃前
进?谢谢!
回复此楼
上坡
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
jjdg(金币+2):辛苦了 2010-03-26 02:53
经测试,F90是可以这样的,我的测试程序是这样的:

program test_do
    implicit none
    integer :: i, j
    read *,j
    do i=1,1000,j
        print *,"i=",i
    end do
end program test_do

此程序在intel fortran compiler 11 和 gfortran 4.4.3 中测试通过。

PS:如果想知道什么东西是不是可以,自己写一个测试程序试一试不就知道了。
4楼2010-03-25 20:31:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):辛苦了! 2010-03-26 16:29
哦,那是我理解错误了。
如果是在循环体内改变步长,那时不允许的。只能用do while间接实现。要不你就把数列通项写出来,采用数学的方法,直接把j从do后面去掉。像这样:
do i=1,1000
j=i+f(i)
end do

f(i)是步长函数
9楼2010-03-26 11:52:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
引用回帖:
Originally posted by ftp0000 at 2010-03-26 12:25:45:


这样也挺复杂的,建议lz还是用do while来做吧

do while怎么做呢?比如步长=i**2
12楼2010-03-26 19:27:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
jjdg(金币+1):欢迎交流! 2010-03-27 16:48
引用回帖:
Originally posted by tjyl at 2010-03-27 11:20:24:
N=10000;
i=2
step=1
do while (i    do sth....
   step=i**2
   i =i+step
end do
.....

do i=1,10000
j=1/6 i (1 + i) (1 + 2 i)
do sth. with j
end do

我是这意思。哦,我忘了有的前N项和是不能求的。还是tjyl的方法好。我忽略了求和的问题了。
14楼2010-03-27 16:33:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
引用回帖:
Originally posted by tjyl at 2010-03-28 22:09:32:
主要是大家用Fortran时间长了,用do上瘾了就忘记了while循环。。


应为这样可以很明显的控制循环的次数,方便修改和调试,而while则多用在循环次数不确定的情况下。
16楼2010-03-29 14:00:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 mmfzx0517 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见