FORTRAN中的GOTO语句在MATLAB中的实现

gengyan123456 · 发表于 2014-7-18 10:07:01

FORTRAN中的GOTO语句在MATLAB中如何实现的？如下面的程序

[Fortran] 纯文本查看 复制代码

DO 348 I=2,NNG+1
      I1=Y0(I,3)
      DO 358 J=1,NM
IF(NMOUT(J)~=I1) GOTO 358
Y0(I,3)=NMM(J,2);
GOTO 348 
358   CONTINUE
         STOP
348   CONTINUE

gengyan123456 · 发表于 2014-7-18 11:27:36

vvt 发表于 2014-7-18 10:14
1.goto 语句是不安全的。建议你在fortran里也不使用。
2.Matlab 没有 goto 语句。
3.两种不同的语言，甚至m ...

这个这样弄不知道对不对？break是跳出最外层循环，还是内层循环？

[C] 纯文本查看 复制代码

for  I=2,NNG+1
       I1=Y0(I,3)
  for  J=1,NM
if(NMOUT(J)==I1) 
Y0(I,3)=NMM(J,2);
break
end
end
          STOP
end

gengyan123456 · 发表于 2014-7-18 11:28:34

vvt 发表于 2014-7-18 10:14
1.goto 语句是不安全的。建议你在fortran里也不使用。
2.Matlab 没有 goto 语句。
3.两种不同的语言，甚至m ...

忘把Stop去掉了

gengyan123456 · 发表于 2014-7-18 11:44:59

请看，这个程序执行完编号20所在位置的语句之后，返回到GOTO 20所在位置执行IF(KXI==KYI.AND.KXJ==KYJ) GOTO 30吗？请帮帮我

[Fortran] 纯文本查看 复制代码

      IF(KY>KSY) GOTO 20
      IF(KXI==KYI.AND.KXJ==KYJ) GOTO 30
      IF(KYI<KXI)|(KYI==KXI)&(KYJ<KXJ)) GOTO 40
20 BL3(KSZ,1)=BL7(KX,1);

gengyan123456 · 发表于 2014-7-18 12:55:26

fcode 发表于 2014-7-18 12:02
goto 只管去，不管回。不会返回。

哦，知道了，谢谢啊

[流程控制] FORTRAN中的GOTO语句在MATLAB中的实现

goto语句