各位大大,小妹我正在用visual fortran写鲸鱼算法
但,已碰壁两个多月
真的希望能够有神人可以点通我这梦中人
目前只希望能够把简单的主程式先跑出值后再带题目进去
—-主程式—-
https://i.imgur.com/haAXihw.jpg
其中,除错部分没有出错,
但执行却跑出一个视窗
https://i.imgur.com/0cUdVhx.jpg
想请问神人,能够怎么样修改一下程式呢?
我先跪了,谢谢能够解答我疑惑的大大们
作者: espresso1 2019-01-09 14:51:00
指数函数exp(1)看起来好像exp(l)原本就是exp(l)吧如楼上所说,试试在内层的do loop最后把i,j,x_(I,j)值写出来,compiler时则加上 /CB 选项(check bounds),若有问题compiler会过,但执行时会停在出错处compile
作者: espresso1 2019-01-08 20:51:00
PGbest 没有给初始值,GROUP 及 NVAR 应宣告为 integer因为里面的实变量都是以real(kind=8)型态运算,参与计算的数字也要以double precision 形式较好,如 1 改为1.0d0不然像1/2会得到0,1.0/2.0才会得到0.51.0d0也可以写成1.0_8
我把pbest的值加上去了,但您说的group,nvar要宣告成整数,我尝试过了,还是一样的问题
作者:
sin55688 (单手挑藏獒)
2019-01-09 00:33:00反正他是说 array bounds exceeded就一行一行write 看看是哪一个变量的index超出
是exp(L)没错哦,好的,谢谢!我后来开file把数据放进去之后就跑的出来数据了!感谢你耐心的解答!