24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1927  |  回复: 15
当前主题已经存档。

mmfzx0517

木虫 (著名写手)

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

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

tjyl

金虫 (正式写手)


余泽成(金币+1):谢谢参与应助! 2010-03-26 16:28
用 do while好了
2楼2010-03-25 19:02:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-03-26 16:28
不可以,至少 Fortran 77 是不允许的……
3楼2010-03-25 19:38:47
已阅   回复此楼   关注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的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
jjdg(金币+2):辛苦了 2010-03-26 02:53
楼主的意思是不你所说的这样吧,呵呵……

楼主的意思是在 do 的过程中改变步长,比如第一次循环时 j = 1, 第二次循环时 j = 2,这个是不允许的吧。

我测试了你的代码,即使在 do ... end do 中重新为 j 赋值,也不会影响 do 的步长……
5楼2010-03-25 20:55:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
jjdg(金币+2):辛苦了 2010-03-26 02:53
恩,确实是这样。

引用回帖:
Originally posted by snoopyzhao at 2010-03-25 20:55:44:
楼主的意思是不你所说的这样吧,呵呵……

楼主的意思是在 do 的过程中改变步长,比如第一次循环时 j = 1, 第二次循环时 j = 2,这个是不允许的吧。

我测试了你的代码,即使在 do ... end do 中重新为 j 赋值 ...

6楼2010-03-25 22:27:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

addila

木虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-03-26 16:28
楼上的牛叉 直接用linux了啊,是不是可以在循环中间加一个小程序,读取外边给定的j!每次j是变化的?
7楼2010-03-26 10:00:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-03-26 16:28
do 循环只看第一次设置的步长。
如果想达到同样的效果,为何不直接 do while....
引用回帖:
Originally posted by addila at 2010-03-26 10:00:25:
楼上的牛叉 直接用linux了啊,是不是可以在循环中间加一个小程序,读取外边给定的j!每次j是变化的?

8楼2010-03-26 10:15:42
已阅   回复此楼   关注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的回帖

ftp0000

木虫 (小有名气)


余泽成(金币+1):谢谢参与应助! 2010-03-26 16:29
引用回帖:
Originally posted by holmescn at 2010-03-26 11:52:03:
哦,那是我理解错误了。
如果是在循环体内改变步长,那时不允许的。只能用do while间接实现。要不你就把数列通项写出来,采用数学的方法,直接把j从do后面去掉。像这样:
do i=1,1000
j=i+f(i)
end do

f(i ...

这样也挺复杂的,建议lz还是用do while来做吧
10楼2010-03-26 12:25:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 mmfzx0517 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-16 13:57 by vcdazktkjx
[论文投稿] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 xx7gd5zq4e 2026-05-15 5/250 2026-05-16 12:24 by h3oerqvkv9
[硕博家园] 考博自荐 +3 科研狗111 2026-05-13 4/200 2026-05-16 11:45 by 科研狗111
[考博] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 4/200 2026-05-16 11:36 by h3oerqvkv9
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 cjf4bx70cj 2026-05-14 6/300 2026-05-16 11:16 by h3oerqvkv9
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[文学芳草园] 裁员滚滚,退居二线 +4 J_wei 2026-05-10 4/200 2026-05-16 10:52 by zh10246
[考博] 2026博士还有哪些学校有名额 +5 小王求读研 2026-05-15 6/300 2026-05-16 10:44 by a4742549
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 5/250 2026-05-16 04:29 by k37jurhrau
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 3/150 2026-05-16 01:49 by k37jurhrau
[教师之家] 上海大学实验技术岗位非升即走 +5 嘻嘻哈哈乐呵呵 2026-05-15 5/250 2026-05-16 00:17 by caiyun
[考博] 西南大学考核制博士 +4 lijunjie84 2026-05-11 7/350 2026-05-15 23:20 by 同仁堂教主
[文学芳草园] 风把牡丹吹跑了 +5 myrtle 2026-05-12 9/450 2026-05-15 15:27 by myrtle
[基金申请] 青C资助名额大幅增加! +11 西葫芦炒鸡蛋 2026-05-13 15/750 2026-05-15 14:36 by ambravo
[基金申请] 精华III评审感受-评审感受-评审感受 +14 ferrarichen 2026-05-11 18/900 2026-05-15 11:12 by cmhchen
[考博] 26应届毕业生考博求助 +3 wo一定上岸 2026-05-13 3/150 2026-05-14 21:47 by 明海天涯
[基金申请] 重磅!青年科学基金项目(C类)资助增幅预计超过50% +5 水和泥不是水泥 2026-05-13 7/350 2026-05-14 20:57 by 水和泥不是水泥
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
[基金申请] 请问大佬b0816评完了吗 +3 市民华南虎 2026-05-12 7/350 2026-05-14 07:41 by 市民华南虎
[考博] 现在不知道怎么办,感觉很痛苦 +4 qweww 2026-05-11 5/250 2026-05-11 20:23 by Oversize
信息提示
请填处理意见