King Bot - Revision history

Griz at 21:43, 26 February 2006

2006-02-26T21:43:32Z

Griz: fine ... now what does it mean?

2006-02-25T23:35:50Z

fine ... now what does it mean?

Numsgil at 21:32, 25 February 2006

2006-02-25T21:32:44Z

Numsgil: Yep, that's the code

2006-02-25T21:32:25Z

Yep, that's the code

Griz: cusomizing king bot selection?

2006-02-25T14:57:33Z

cusomizing king bot selection?

Ollj at 21:48, 31 January 2006

2006-01-31T21:48:10Z

66.91.141.218 at 06:44, 27 September 2005

2005-09-27T06:44:00Z

New page

Selects the most successful bot for a given value of success. Typically this is the bot with the most offspring.

← Older revision		Revision as of 21:43, 26 February 2006
Line 12:		Line 12:
	how about a breakdown of the code or some hints using the [[Talk:King_Bot\|discussion]] tab above?		how about a breakdown of the code or some hints using the [[Talk:King_Bot\|discussion]] tab above?

		+	'''Update''' found out how to alter them a bit. see discussions. {{User:Griz/sig}}

	<pre>		<pre>

← Older revision		Revision as of 23:35, 25 February 2006
Line 3:		Line 3:

	The below code demonstrates how the code determines which bot is the "fittest"		The below code demonstrates how the code determines which bot is the "fittest"
		+
		+
		+	''would someone please explain how it does so?<br>
		+	''exactly where in this code is the number of offspring entered?<br>
		+	''what does s(t,1,2,0) mean?
		+	''how might one use other factors, weighted or whatever, to contribute<br>
		+	''to the score?<br>
		+	how about a breakdown of the code or some hints using the [[Talk:King_Bot\|discussion]] tab above?
		+

	<pre>		<pre>

@@ Line 24: / Line 24: @@
 End Function
 </pre>
-or this?
 <pre>
 ' does various things: with

@@ Line 2: / Line 2: @@
 ----
-exactly how is this King Bot selected?<br>
+The below code demonstrates how the code determines which bot is the "fittest"
 <pre>
 ' returns the fittest robot (selected through the score function)

← Older revision		Revision as of 14:57, 25 February 2006
Line 1:		Line 1:
	Selects the most successful bot for a given value of success. Typically this is the bot with the most offspring.		Selects the most successful bot for a given value of success. Typically this is the bot with the most offspring.
		+	----

		+	exactly how is this King Bot selected?<br>
		+	wondering how the selection criteria might be customized.
		+
		+
		+	anything to do with this?
		+	<pre>
		+	' returns the fittest robot (selected through the score function)
		+	' altered from the bot with the most generations
		+	' to the bot with the most invested energy in itself and children
		+	Function fittest() As Integer
		+	Dim t As Integer
		+	Dim s As Double
		+	Dim Mx As Double
		+	Mx = 0
		+	For t = 1 To MaxRobs
		+	If rob(t).Exist And Not rob(t).Veg Then
		+	s = score(t, 1, 2, 0)
		+	If s >= Mx Then
		+	Mx = s
		+	fittest = t
		+	End If
		+	End If
		+	Next t
		+	End Function
		+	</pre>
		+	or this?
		+	<pre>
		+	' does various things: with
		+	' tipo=0 returns the number of descendants for maxrec generations
		+	' tipo=1 highlights the descendants
		+	' tipo=2 searches up the tree for eldest ancestor, then down again
		+	' tipo=3 draws the lines showing kinship relations
		+	Function score(ByVal r As Integer, ByVal reclev As Integer, maxrec As Integer,
		+
		+	tipo As Integer) As Double
		+	Dim al As Integer
		+	Dim dx As Single
		+	Dim dy As Single
		+	Dim cr As Long
		+	Dim ct As Long
		+	Dim t As Integer
		+	If tipo = 2 Then plines (r)
		+	score = 0
		+	For t = 1 To MaxRobs
		+	If rob(t).Exist Then
		+	If rob(t).parent = rob(r).AbsNum Then
		+	If reclev < maxrec Then score = score + score(t, reclev + 1, maxrec, tipo)
		+	score = score + InvestedEnergy(t)
		+	If tipo = 1 Then rob(t).highlight = True
		+	If tipo = 3 Then
		+	dx = (rob(r).pos.x - rob(t).pos.x) / 2
		+	dy = (rob(r).pos.y - rob(t).pos.y) / 2
		+	cr = RGB(128, 128, 128)
		+	ct = vbWhite
		+	If rob(r).AbsNum > rob(t).AbsNum Then
		+	cr = vbWhite
		+	ct = RGB(128, 128, 128)
		+	End If
		+	Line (rob(t).pos.x, rob(t).pos.y)-Step(dx, dy), ct
		+	Line -(rob(r).pos.x, rob(r).pos.y), cr
		+	End If
		+	End If
		+	End If
		+	Next t
		+	If tipo = 1 Then
		+	Form1.Cls
		+	DrawAllRobs
		+	End If
		+	End Function
		+	</pre>
	[[Category:Bottype]]		[[Category:Bottype]]

← Older revision		Revision as of 21:48, 31 January 2006
Line 1:		Line 1:
	Selects the most successful bot for a given value of success. Typically this is the bot with the most offspring.		Selects the most successful bot for a given value of success. Typically this is the bot with the most offspring.
		+
		+	[[Category:Bottype]]