/**********************************************************************/
/*?????????????基于基本遺傳算法的函數最優化???SGA.C???????????????????*/
/*?????A?Function?Optimizer?using?Simple?Genetic?Algorithm????????????*/
/*??developed?from?the?Pascal?SGA?code?presented?by?David?E.Goldberg??*/
/*????????同濟大學計算機系????????????????王小平???????????2000年5月??*/
/**********************************************************************/
#include?
#include
#include?
#include?“graph.c“
/*?全局變量?*/
struct?individual???????????????????????/*?個體*/
{
????unsigned?*chrom;????????????????????/*?染色體?*/
????double???fitness;???????????????????/*?個體適應度*/
????double???varible;???????????????????/*?個體對應的變量值*/
????int??????xsite;?????????????????????/*?交叉位置?*/
????int??????parent[2];?????????????????/*?父個體??*/
????int??????*utility;??????????????????/*?特定數據指針變量?*/
};
struct?bestever?????????????????????????/*?最佳個體*/
{
????unsigned?*chrom;????????????????????/*?最佳個體染色體*/
????double???fitness;???????????????????/*?最佳個體適應度?*/
????double???varible;???????????????????/*?最佳個體對應的變量值?*/
????int??????generation;????????????????/*?最佳個體生成代?*/
};
?struct?individual?*oldpop;?????????????/*?當前代種群?*/
?struct?individual?*newpop;?????????????/*?新一代種群?*/
?struct?bestever?bestfit;???????????????/*?最佳個體?*/
?double?sumfitness;?????????????????????/*?種群中個體適應度累計?*/
?double?max;????????????????????????????/*?種群中個體最大適應度?*/
?double?avg;????????????????????????????/*?種群中個體平均適應度?*/
?double?min;????????????????????????????/*?種群中個體最小適應度?*/
?float??pcross;?????????????????????????/*?交叉概率?*/
?float??pmutation;??????????????????????/*?變異概率?*/
?int????popsize;????????????????????????/*?種群大小??*/
?int????lchrom;?????????????????????????/*?染色體長度*/
?int????chromsize;??????????????????????/*?存儲一染色體所需字節數?*/
?int????gen;????????????????????????????/*?當前世代數?*/
?int????maxgen;?????????????????????????/*?最大世代數???*/
?int????run;????????????????????????????/*?當前運行次數?*/
?int????maxruns;????????????????????????/*?總運行次數???*/
?int????printstrings;???????????????????/*?輸出染色體編碼的判斷，0?--?不輸出?1?--?輸出?*/
?int????nmutation;??????????????????????/*?當前代變異發生次數?*/
?int????ncross;?????????????????????????/*?當前代交叉發生次數?*/

/*?隨機數發生器使用的靜態變量?*/
static?double?oldrand[55];
static?int?jrand;
static?double?rndx2;
static?int?rndcalcflag;
/*?輸出文件指針?*/
FILE?*outfp?;
/*?函數定義?*/
void?advance_random（）;
int?flip（float）;rnd（int?int）;
void?randomize（）;
double?randomnormaldeviate（）;
float?randomperc（）rndreal（floatfloat）;
void?warmup_random（float）;
void?initialize（）initdata（）initpop（）;
void?initreport（）generation（）initmalloc（）;
void?freeall（）nomemory（char?*）report（）;
void?writepop（）writechrom（unsigned?*）;
void?preselect（）;
void?statistics（struct?individual?*）;
void?title（）repchar?（FILE?*char?*int）;
void?skip（FILE?*int）;
int?select（）;
void?objfunc（struct?individual?*）;
int?crossover?（unsigned?*?unsigned?*?unsigned?*?unsigned?*）;
void?mutation（unsigned?*）

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件??????25468??2000-05-23?07:34??GA\A_LIFE.C

?????文件??????84468??2000-05-23?07:34??GA\A_LIFE.EXE

?????文件???????1364??2000-05-15?03:39??GA\cfile.txt

?????文件????????187??2000-05-15?03:39??GA\cfile1.txt

?????文件??????????1??2000-05-15?03:39??GA\efile.txt

?????文件???????5363??1988-08-29?10:00??GA\EGAVGA.BGI

?????文件??????18941??2000-05-23?06:04??GA\ga.c

?????文件??????12564??2000-05-23?06:48??GA\gaopt.c

?????文件??????10639??2000-05-23?08:27??GA\GA_NN.C

?????文件??????72451??2000-05-23?16:28??GA\GA_NN.EXE

?????文件?????????23??2000-05-15?03:46??GA\gfile.txt

?????文件??????11177??2000-05-23?07:16??GA\graph.c

?????文件?????267616??1995-12-22?14:31??GA\HZK16

?????文件?????498528??1995-08-12?09:10??GA\HZK24S

?????文件?????????37??2000-05-15?04:16??GA\INPUT

?????文件???????2568??2000-05-23?06:51??GA\operator.c

?????文件??????13003??2000-05-23?07:37??GA\PATMAT.c

?????文件??????98093??2000-05-23?07:35??GA\PATMAT.EXE

?????文件????????684??2000-05-15?03:53??GA\PFILE.TXT

?????文件???????7283??2000-05-15?03:54??GA\REP.TXT

?????文件??????????5??2000-05-15?03:54??GA\rfile.txt

?????文件???????8848??2000-05-23?16:30??GA\SAMPLE

?????文件??????37062??2000-05-23?06:09??GA\scs.c

?????文件??????37261??2000-05-23?06:24??GA\scs.cpp

?????文件???????4596??2000-07-10?21:47??GA\scs.dsp

?????文件????????529??2000-06-03?11:28??GA\scs.dsw

?????文件??????50176??2001-07-05?08:40??GA\scs.ncb

?????文件??????48640??2001-07-05?08:40??GA\scs.opt

?????文件???????2220??2000-07-11?06:51??GA\scs.plg

?????文件??????19016??2000-05-23?08:15??GA\sga.c

............此處省略9個文件信息