遗传算法源程序.docVIP

遗传算法 话题700893的标题是： 遗传算法 (100分)分类：数据结构 savenight (2001-11-01 17:52:00) 遗传算法 （最好也有模拟退火，禁忌有哪些信誉好的足球投注网站算法）的delphi实现，实在不行c的也可以。急，今晚就要！！！！分不够，以后补上 卷起千堆雪tyn (2001-11-01 18:31:00) 给你看一篇 ：/************************************************************************ ?* ? ? ? ? ? ? ? ? ? ? 简单遗传算法(SGA) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * * ?主要算法模块有:选择 交叉 变异 (三个遗传操作) 和 群体更新 ? ? ? ? ? ? * * ? ? ? ? ? ? ? ? 以及 随即数发生器 输入 输出 译码 适应度计算 ? ? ? ? ? * * ?选择机制为比例选择 交叉采用单点交叉 变异采用简单的位点变异方式 ? ? ? * * ?多变量编码采用把各个变量染色体基因交替相连的方式,体现在译码模块中 ? ?* ************************************************************************/ /* 1999.10.20 增添编码函数,方便输入初值 */ // ? ? ?------------------------------------------------------ // ? ? ? ? ? ? ? ? A Simple Genetic Algorithm - SGA ?// ? ? ? ? ? ? ? ? ? ? ? (c) Ding Zhen Yu 1998 ?// ? ? ?------------------------------------------------------ // ? ? ? ? ? ? ? ? ? ? ? ?All Rights Reserved ?// ? ? ?------------------------------------------------------ ?#include math.h #include stdio.h #include stdlib.h ?//#define NeedInputInitialChrom ?// 如果需要输入初始值,一般是因为上次没有 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? // 计算完成,可以接着再算 ?//#define NeedInputData //输入种群中第一个的大小(0~1.0之间) #undef NeedInputInitialChrom ?/*NOTICE:modify varnumber and perchrom for each problem.*/ #define varnumber ?32 ? ? /* 变量个数 */ #define perchrom ? 5 ? ?/* 单变量染色体长度 */ #define popsize 20 ? ? ? /* 群体规模(应为偶数) */ #define maxgen 5000 ? ? ? /* 遗传世代数 */ #define maxstring varnumber*perchrom ? /* 多变量总的染色体长度 */ #define pcross 0.80 ? ? ?/* 交叉概率[0.00,1.00] */ #define pmutation 0.001 ? /* 变异概率[0.00,1.00] */ ?extern double Obj_func(double *x); ?struct pp { ? ? ? ? unsigned int chrom[maxstring]; ? ? ? ? double x[varnumber],fitness; ? ? ? ? unsigned int parent1,parent2,xsite; ? ? }; ?struct pp oldpop[popsize],newpop[popsize],p1[popsize]; ?unsigned int lchrom,gen,nmutation,ncross,jcross,maxpp,minpp; double sumfitness,avg,max,min; double coef; long seedl[1]; double objfunc(double *); /* 目标函数,应该是