现有150个地点,每个地点有坡度,降水两个属性信息,根据这两个属性信息判断该
地种树,人工草,还是天然草.要求用GA做.请教各位.
MyPD,MyJS是某地的坡度,降水信息,
ArtificialPD, ArtificialJS; 种天然草所需的坡度,降水量
InArtificialPD,InArtificialJS; 种人工草所需的坡度,降水量
WoodPD,WoodJS 种树所需的坡度,降水量
If MyPD >= ArtificialPD Then
If MyJS > ArtificialJS And MyJS < (ArtificialJS + 10) Then
种人工草
MyLabel = 1 ' 一个地方只许种一种作物,MyLabel是标记
变量,表示已种人工草,不许再种其它作物。
End If
End IfIf MyPD >= InArtificialPD Then
If MyJS > InArtificialJS And MyJS < (InArtificialJS + 10) Then
If MyLabel = 0 Then
种天然草
MyLabel = 1
End If
End If
End If
If MyPD >= WoodPD Then
If MyJS > WoodJS Then
If MyLabel = 0 Then
种树
MyLabel = 1
End If
End If
End If
Can I use GA to cope with it ? if it can, how to cope with the
fitness function?
Thanks in advance!
地种树,人工草,还是天然草.要求用GA做.请教各位.
MyPD,MyJS是某地的坡度,降水信息,
ArtificialPD, ArtificialJS; 种天然草所需的坡度,降水量
InArtificialPD,InArtificialJS; 种人工草所需的坡度,降水量
WoodPD,WoodJS 种树所需的坡度,降水量
If MyPD >= ArtificialPD Then
If MyJS > ArtificialJS And MyJS < (ArtificialJS + 10) Then
种人工草
MyLabel = 1 ' 一个地方只许种一种作物,MyLabel是标记
变量,表示已种人工草,不许再种其它作物。
End If
End IfIf MyPD >= InArtificialPD Then
If MyJS > InArtificialJS And MyJS < (InArtificialJS + 10) Then
If MyLabel = 0 Then
种天然草
MyLabel = 1
End If
End If
End If
If MyPD >= WoodPD Then
If MyJS > WoodJS Then
If MyLabel = 0 Then
种树
MyLabel = 1
End If
End If
End If
Can I use GA to cope with it ? if it can, how to cope with the
fitness function?
Thanks in advance!
解决方案 »
- 用VBA 实现 从EXCEL 读取数据 然后插入SQL 数据库 怎么实现?
- 公司要做会员卡软件,请高手帮忙
- 不用frame,怎么把单选框分开两组?
- 软件测试。 只要提出意见就有分
- 怎样得到系统的分辨率及其他有关显示方面的信息。
- 一个关于MSFlexGrid的小问题?请帮忙!!!
- 关于路径的有关问题
- 有上海开发vb的高人吗,我是免费童工?谁愿意收留一下
- 急!急!请问怎样写一个用SQL导入Excel的程序?
- 那位知道怎样用代码实现bmp转jpg?谢谢!
- 关于vsflexgrid7.0版与vxflexgrid8.0版的问题的探讨,欢迎大家参与,我先抛砖引玉了.
- 高分:100分!!!绝对让人郁闷的数据库错误,找不到原因啊!!!!!!!!!!!!
ArtificialPD, ArtificialJS
InArtificialPD,InArtificialJS
WoodPD,WoodJS看做是平面的三个参照点。将当地的降水量和坡度看做是平面的一个点。计算该点与三个参照点的直线距离(简单的勾股定理),然后看哪个距离最短,就适合种哪个。灵感来自于曾经编写过的一个判断橘子、苹果、柿子的程序。
JS_L = Abs(JS1 - JS2)
L = SQR( PD_L ^ 2 + JS_L ^ 2)至于判断哪个点种什么很容易的。V=0 什么都没种
V=1 天然草
V=2 人工草
V=3 树如果CBool(V)就是种了,否则就是没种。