遗传算法VB程序.doc

《 遗传算法VB程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、DimN2(30)AsLong     '用来保存2的N次方的数据DimScriptAsObject   '调用其Eval函数PublicEnumCrossOver   OnePointCrossOver   '单点交叉   TwoPointCrossOver   '两点交叉   UniformCrossOver    '平均交叉EndEnumPublicEnumSelection   RouletteWheelSelection       '轮盘赌选择   StochasticTourament          '随机竞

2、争选择   RandomLeagueMatches          '随机联赛选择   StochasticUniversalSampleing '随机遍历取样EndEnumPublicEnumEnCoding   Binary         '标准二进制编码   Gray           '格雷码EndEnumPrivateTypeGAinfo   MaxAsDouble   Cordinate()AsDoubleEndType'*********************************** 二进制码转格雷码

3、 ***********************************''函数名：BinaryToGray'参   数：Value - 要转换的二进制数的实值'说   明：如3对应的二进制表示为0011，而用格雷码表示为0010，这个函数的value为0011代表的实数'          而返回的是0010所代表的实数（2）'返回值：返回格雷码对应的二进制数的实值'开发语言：B语言'作者：yyf''*********************************** 二进制码转格雷码 ******************

4、*****************PublicFunctionBinaryToGray(ValueAsLong)AsLong   DimVAsLong,MaxAsLong   DimstartAsLong,mEndAsLong,TempAsLong,CounterAsLong   DimFlagAsBoolean   V=Value:Max=1   WhileV>0       V=V/2       Max=Max*2   Wend   IfMax=0ThenExitFunction   Flag=True   mEnd=M

5、ax-1   Whilestart

6、End-start+1)/2           EndIf           Temp=Temp+1           start=Temp           Flag=False       EndIf   Wend   BinaryToGray=CounterEndFunction'*********************************** 格雷码转二进制码 ***********************************''函数名：BinaryToGray'参   数：Value - 要转换的二

7、进制数的实值'说   明：如3对应的二进制表示为0011，而用格雷码表示为0010，这个函数的value为0010代表的实数'          而返回的是0010所代表的实数（2）'返回值：返回格雷码对应的二进制数的实值''*********************************** 格雷码转二进制码 ***********************************PublicFunctionGrayToBinary(ValueAsLong)AsLong   DimVAsLong,MaxAsLong   Di

8、mstartAsLong,mEndAsLong,TempAsLong,CounterAsLong   DimFlagAsBoolean   V=Value:Max=1   WhileV>0       V=V/2       Max=Max*2   Wend   Flag=T