接觸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