遗传算法vb程序

《遗传算法vb程序》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、遗传算法的VB程序最近看了下遗传算法，刚看了一点，就觉得手痒，非要把程序编制出来看看效果（我现在总认为那些理论再高深，无法用计算机实现就是空话，呵呵）。下面是我调试了好久的代码，无赖没有学过数据结构＆算法，程序写的很差，单效果还是出来了，高兴，和大家共同分享下成果吧。    还是一样，不想说原理，因为这里想搞个公式上去N麻烦。直接给点实际的东西。具体步骤是参考《MATLAB遗传算法工具箱及应用》（西安电子科技大学出版社)16~22页的相关说明编制的，有兴趣的同学可以去看看这本书。    在程序调试成功的同时，郁闷的是工

2、作的事情，现在好多企业久是指名不要研究生，而我又是一个四不象，本专业是热能工程，可我本专业基本上还是本科水平，大部分时间都去自学一些杂七杂八的东西去了，比如人工智能，PLC，自动控制方面，图像处理啊，可又只是懂个皮毛，现在找工作也不知道怎么给自己定位了。有相关经历的同学可要指点我一二哦。OptionExplicit'程序实现功能：用遗传算法求函数的最大值'作   者：laviewpbt'联系方式：'QQ:33184777'版本：Version1.4.0'说明：复制请保留源作者信息，转载请说明，欢迎大家提出意见和建议Di

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

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

5、转格雷码***********************************''函数名：BinaryToGray'参   数：Value-要转换的二进制数的实值'说   明：如3对应的二进制表示为0011，而用格雷码表示为0010，这个函数的value为0011代表的实数'          而返回的是0010所代表的实数（2）'返回值：返回格雷码对应的二进制数的实值'源作者：黄毅'开发语言：C语言'修改者：laviewpbt'时   间：2006-11-4''****************************

6、*******二进制码转格雷码***********************************PublicFunctionBinaryToGray(ValueAsLong)AsLong   DimVAsLong,MaxAsLong   DimstartAsLong,mEndAsLong,TempAsLong,CounterAsLong   DimFlagAsBoolean   V=Value:Max=1   WhileV>0       V=V/2       Max=Max*2   Wend   IfMax=0

7、ThenExitFunction   Flag=True   mEnd=Max-1   Whilestart

8、FlagThen               Counter=Counter+(mEnd-start+1)/2           EndIf           Temp=Temp+1           start=Temp           Flag=False       EndIf   Wend   BinaryToG