接触FORTRAN时间不算太常但也不短
但是对于副程式和写数对b(i,j)的部分还是偏弱的
以下是修改后有问题的所有程式码,想看原本的程式码可私信给我信箱
我在下方每一代产生20个母体的部分有个小问题
因为怕产生的母体会有重复而影响程式效率
所以想加上判断式,进而提高效率
问题点在"确认数列是否重复"那一段
小弟手边也有FORTRAN 95 彭国伦编写的书
或许有人可以跟我指点一下哪边可以找到
program wu
use msimsl
parameter(n=08,m=20,l=1) !n=工作件数,m=代数,l=总资料组数
integer a(n),pt1(n),pt2(n),ag(n),tempa(n),t(n)
integer ag1,ag2,best(n),dd(n),b(l,m)
real sum,suma,cta(n),ctb(n)
open(4,file='lovsol.txt') !!!
141 format(08i5)
100 format(1x,08i5)
101 format(1x,08i5,/)
103 format(1x,08i5,2x,f12.4) !!!
108 format(1x,08i5,2x,2f24.4) !!!
109 format(1x,08i5,f24.4) !!!
102 format(1x,08i5,2x,f12.4)
open(1,file='data01.txt')
c call rnset(20130827)
c=====================================================
c 步骤一、读取排序与值
c=====================================================
do 999 kkk=1,l
t0=cpsec()
c