AutoHotkey Community
It is currently May 26th, 2012, 12:01 pm

View unanswered posts | View active topics


Board index » General » Offtopic

All times are UTC [ DST ]



Post new topic Reply to topic  Page 1 of 2
  [ 26 posts ]  Go to page 1, 2  Next
  Print view | E-mail friend Previous topic | Next topic 
Author Message
Dra_Gon
PostPosted: September 4th, 2008, 9:37 pm 
Offline

Joined: May 25th, 2007, 6:13 pm
Posts: 373
I just had a thought and figured I'd share it here {yeah, I hear the groans already :lol: }...

In regards to AI {Artificial Intelligence}, I was wondering if a script could be made which would "learn" as it was used and add to itself what it learns.
To wit:
Original script is "A" {this could be pretty much whatever the script is made to do}.
>User>Run script {doing whatever it is the User does}
<Script<
    1- Creates temporary script with current coding
    2- Sees what User is doing
    3- Checks for appropriate coding
    4- Adds coding to the temporary script
    5- Compiles temporary when User is done
    6- Activates a script {we'll call it "Sleeping Pill.exe"} which would erase the Original and rename the temporary to the Original's name after the Original has exited.

So you start with "A", and after one session {in which the User has made his/her way to "E"}, the next time the Script is opened, it now "knows" that "A" goes to "E" by way of "BCD", and is ready to "learn" some more.

Well, it sounds good in my head. Perhaps this can give someone ideas about it and perhaps not. I just wanted to put it out there and see what comes up :wink: .

Ciao,
Dra'Gon

_________________
Image
For a good laugh {hopefully} >> megamatts.50megs.com

My WritersCafe profile>>
http://www.writerscafe.org/writers/BlueDragonFire/


Report this post
Top
 Profile  
Reply with quote  
Jex
 Post subject:
PostPosted: September 5th, 2008, 12:42 am 
Offline

Joined: August 2nd, 2008, 12:31 am
Posts: 101
hmm, that would be neat.

it would have great potential, but might also add unneeded lines to the script. And so might need a clean up once and a while. (<-- my 2 cents)

_________________
Woot.

Please read forum etiquette


Report this post
Top
 Profile  
Reply with quote  
Dra_Gon
 Post subject:
PostPosted: September 5th, 2008, 1:42 am 
Offline

Joined: May 25th, 2007, 6:13 pm
Posts: 373
True, perhaps the ability to "clean up it's own waste".
I would say that when it discovers codes which are the same as earlier "lessons" it would create functions and any time it comes across a similar pattern {which would fit the function} it would just make a reference to that function within the new script.
I'm sure there would be other necessary cleanings too. After all, the $4!t tends to pile up if it's not cleaned regularly :wink:.

Ciao,
Dra'Gon

_________________
Image
For a good laugh {hopefully} >> megamatts.50megs.com

My WritersCafe profile>>
http://www.writerscafe.org/writers/BlueDragonFire/


Report this post
Top
 Profile  
Reply with quote  
[VxE]
 Post subject:
PostPosted: September 5th, 2008, 3:35 am 
Offline
User avatar

Joined: October 7th, 2006, 8:45 am
Posts: 3329
Location: Simi Valley, CA
Regarding evolutionary systems, there are two general archetypes for getting from point A to point B.

(disclaimer: this is not intended to be a relogious/mystic commentary, just logic as I see it.)

Firstly, a 'top down' approach requires a system of high-order complexity and yields X systems of lower complexity. A script which rewrites itself in an attempt to become more complex would require a great deal of complexity to recognize what changes are needed and where to make those changes (some philosophies assert that it is impossible for a closed system to spontaneously generate a system more advanced than the original). "Intelligent Design" is a succinct illustration of this idea.

Secondly, a 'bottom up' approach requires only the most basic function: reproduce with alteration. You can start off with one script that makes slightly different copies of itself and tries to run them. Then whichever ones actually run are tested against some type of goal. The ones closest to that goal are then allowed to spawn more altered copies... etc.... "Genetic Evolution" is the appropriate illustration for this idea (and as for cleaning up junk code... well... most of the human genome is entirely unused...)

I suppose programmers are predisposed towards the first method, since it is their entire experience. The second method replaces a coder's genius with gajillions of megaFLOPs... but the finished product is not guaranteed.

Electronic circuits (and instruments) have been designed using evolutionary computer simulations... with some great successes.

_________________
Ternary (a ? b : c) guide     TSV Table Manipulation Library
Post code inside [code][/code] tags!


Report this post
Top
 Profile  
Reply with quote  
Guest
 Post subject:
PostPosted: September 5th, 2008, 5:41 am 
[VxE] wrote:
Electronic circuits (and instruments) have been designed using evolutionary computer simulations... with some great successes.

This is a good :example:
An antenna. It works good, even tho it ends up looking like some kind of mistake. (scroll down to the bottom)

By Jem Engineering


Report this post
Top
  
Reply with quote  
infogulch
 Post subject:
PostPosted: September 5th, 2008, 5:43 am 
Offline

Joined: March 27th, 2008, 2:14 pm
Posts: 700
Oops.. wasn't signed in.
I saw that article several years ago, thought I'd drop my 2 cents about it. :)

_________________
Scripts - License


Report this post
Top
 Profile  
Reply with quote  
Dra_Gon
 Post subject:
PostPosted: September 5th, 2008, 5:35 pm 
Offline

Joined: May 25th, 2007, 6:13 pm
Posts: 373
That antennae does look like someone just slapped it together :lol: .

[VxE] --> I don't suppose there's anyway, to combine the 2 approaches? {I'm not sure how that would be accomplished in any event.}

A loooong time ago, I thought about a machine which would make a smaller machine - including the programming and smaller tools. This smaller machine would then build yet a smaller machine, and so on. Eventually it would get to the target size and the "alternate" programming would kick in and begin the job which required the tiny size.

I think of this AI in a similar situation - though in reverse. Start with the small size, something which gives it the ability to learn and grow, then it gets bigger.

In fact, along with our genome, most of what is in our brains is largely "unused". Everything we've seen/heard/felt/smelt/tasted/thought in our lives is still there - whether we were conscious of it or not - but we don't have much access to it, except maybe in cases of "intuition". So maybe if the AI program, instead of rewriting itself completely - as I suggested before - it simply writes a function to what it has just learned in a lower directory and adds to itself an "#include" {or something similar, like #getfunction} with the case in which this function would need to be used:

Code:
SearchMem, <incident>
IfFound, Incident
   Select <incident>
      Case(=,"Good")
         #getfunction DoThis
      Case(=,"Bad")
         #getfunction DoThat
      Case(=,"Always Ask")
         #getfunction DoOther
      EndSelect
Else
   {
       CreateFunction, <incident>
          ; This is where what the User did would be encoded into the function.
        MemInsert, <incident>, "Good"


It would look in a "Memory File" {maybe something like a FAT where everything it's encountered is listed} for the incident.

The core program would remain mostly the same, just it's "memory" of events would change and it would only create "pathways" to those memories within itself - using the alter-compile-delete method.
Eventually, it might even experiment with the functions to see what works best and what can be changed/removed.

Ciao,
Dra'Gon

_________________
Image
For a good laugh {hopefully} >> megamatts.50megs.com

My WritersCafe profile>>
http://www.writerscafe.org/writers/BlueDragonFire/


Report this post
Top
 Profile  
Reply with quote  
Slanter
 Post subject:
PostPosted: September 6th, 2008, 1:25 am 
Offline

Joined: May 28th, 2008, 2:11 am
Posts: 739
Location: Minnesota, USA
I remember seeing something on TV a couple weeks about a guy that created a virtual world that had little "bugs" which would try and survive by finding food and propagating. Apparently with each new generation of them, they get more and more efficient at surviving and may have surpassed earth worms in intelligence :shock:. I just wish I could remember what the project was called so I could post a link to his website.

Just thought this was a good example of the "bottom-up" approach that [VxE] posted :)

EDIT: Just remembered another example of this using small robots. It basically had the same thing going, where the robots would learn about their environment and attempt to accomplish a goal, though apparently every once in a while they would get a suicidal one :roll: . Discovery channel ftw

_________________
Unless otherwise stated, all code is untested

(\__/) This is Bunny.
(='.'=) Cut, copy, and paste bunny onto your sig.
(")_(") Help Bunny gain World Domination.


Report this post
Top
 Profile  
Reply with quote  
[VxE]
 Post subject:
PostPosted: September 6th, 2008, 3:40 am 
Offline
User avatar

Joined: October 7th, 2006, 8:45 am
Posts: 3329
Location: Simi Valley, CA
Spore

_________________
Ternary (a ? b : c) guide     TSV Table Manipulation Library
Post code inside [code][/code] tags!


Report this post
Top
 Profile  
Reply with quote  
Dra_Gon
 Post subject:
PostPosted: September 6th, 2008, 7:11 pm 
Offline

Joined: May 25th, 2007, 6:13 pm
Posts: 373
[VxE] wrote:
Spore


That looks pretty cool! I just wish that Creature Creator was actually free, as the main page says it is. Since they have a trial and paid version, they should have said so up front. Ah well, I'll still take a look at it anyway.

Ciao,
Dra'Gon

_________________
Image
For a good laugh {hopefully} >> megamatts.50megs.com

My WritersCafe profile>>
http://www.writerscafe.org/writers/BlueDragonFire/


Report this post
Top
 Profile  
Reply with quote  
Slanter
 Post subject:
PostPosted: September 7th, 2008, 12:50 am 
Offline

Joined: May 28th, 2008, 2:11 am
Posts: 739
Location: Minnesota, USA
Okay, I was bored over the last couple of days and decided to try and write something like the bug program I mentioned. I did it in AU3 though because I wanted to use arrays :oops: .

Basically, the script creates a starting population of "bugs" with random "genes" such as speed and gender (the others aren't implemented yet) and they attempt to gather food and reproduce. The offspring have a chance to mutate a little, and they randomly receive "genes" from their parents. After 50 days they reach maturity, and the bugs die of old age after 500 days. They will also starve to death if they don't find enough food (average of about 1 food/33 days I think).

Anyways, this script seems to demonstrate at least a small amount of learning capability in that the bugs are getting more efficient at surviving. On my test run (which I have going right now) the bugs started out with a population that averaged 35-36, and now after almost 2000 days the population is sitting at 40-41. I know this isn't really anything that amazing, but it's a work in progress and I thought someone might find it interesting.

Here's the script:
Code:
; Bug Structure
;  0 => Genome
;    0 => Gender (0 = male, 1 = female)
;    1 => Speed (faster = faster health drain, but can get food better)
;    2 => Size (larger = faster health drain, but can fight better) [NYI]
;    3 => Recklessness (higher = less regard for self in fights, lower = more regard for self in fights) [NYI]
;  1 => Stats
;    0 => Age ( >= 50 = mature, Die at 500 )
;    1 => Health ( 0 = Dead, 100 = Start/Max )
;    2 => Move Mode ( 1 = To Food, 2 = To Mate )
;    3 => PosX
;    4 => PosY
;    5 => Recent Mating (Can only mate once/10 ages - Females only)
;    6 => Graphic Control ID
; Food Structure
;  0 => PosX
;  1 => PosY
;  2 => Graphic Control ID
#Include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Global $AgeCD = 10, $AgeTotal = 0, $MaxBugs = 0, $BoundX = 100, $BoundY = 100, $FoodRegen = 1, $FoodRegenAmt = 5, $FoodRegenCD = 1, $DyingMessage_Gend = 0

GuiCreate("Bugs!",$BoundX*4,$BoundY*4)
$Graphic = GUICtrlCreateGraphic(0,0,$BoundX*4+1,$BoundY*4+1)
GUICtrlSetGraphic($Graphic,$GUI_GR_COLOR,0x00BB00,0x00BB00)
GuiCtrlSetGraphic($Graphic,$GUI_GR_RECT,0,0,$BoundX*4+1,$BoundY*4+1)

Func BuildStartingPopulation($Num)
   Global $Bugs[$Num][2][7]
   For $i=0 to $Num - 1 Step 1
      $Bugs[$i][0][0] = Random(0,1,1)
      $Bugs[$i][0][1] = Random(1,5,1)
      $Bugs[$i][0][2] = Random(1,5,1)
      $Bugs[$i][0][3] = Random(1,5,1)
      $Bugs[$i][1][0] = 100
      $Bugs[$i][1][1] = 100
      $Bugs[$i][1][2] = Random(1,2,1)
      $Bugs[$i][1][3] = Random(0,$BoundX,1)
      $Bugs[$i][1][4] = Random(0,$BoundY,1)
      $Bugs[$i][1][5] = 0
      If $Bugs[$i][0][0] Then
         $Bugs[$i][1][6] = CreateNewGraphic(0xEE0000,$Bugs[$i][1][3],$Bugs[$i][1][4])
      Else
         $Bugs[$i][1][6] = CreateNewGraphic(0x990000,$Bugs[$i][1][3],$Bugs[$i][1][4])
      EndIf
   Next
EndFunc

Func BuildStartingFood($Num)
   Global $Food[$Num][3]
   For $i=0 to $Num - 1 Step 1
      Local $X = Random(0,$BoundX,1), $Y = Random(0,$BoundY,1)
      If FoodAt($X,$Y) Then
         $i -= 1
         ContinueLoop
      EndIf
      $Food[$i][0] = $X
      $Food[$i][1] = $Y
      $Food[$i][2] = CreateNewGraphic(0x000099,$X,$Y)
   Next
EndFunc

Func CreateNewGraphic($Color,$PosX,$PosY)
   Local $NGraphic = GUICtrlCreateGraphic($PosX*4,$PosY*4,2,2)
   GUICtrlSetGraphic($NGraphic,$GUI_GR_COLOR,$Color,$Color)
   GuiCtrlSetGraphic($NGraphic,$GUI_GR_RECT,1,1,2,2)
   ; Fixes redraw issues
   GuiCtrlSetPos($NGraphic,($PosX+1)*4,($PosY+1)*4,4,4)
   GuiCtrlSetPos($NGraphic,$PosX*4,($PosY+1)*4,4,4)
   GuiCtrlSetPos($NGraphic,($PosX+1)*4,$PosY*4,4,4)
   GuiCtrlSetPos($NGraphic,$PosX*4,$PosY*4,4,4)
   Return $NGraphic
EndFunc

Func MoveGraphic($ID,$PosX,$PosY)
   GuiCtrlSetPos($ID,$PosX*4,$PosY*4,4,4)
EndFunc

Func DelGraphic($ID)
   ;GuiCtrlSetPos($ID,-1,-1)
   GuiCtrlDelete($ID)
EndFunc

Func FoodAt($X,$Y)
   For $i=0 to UBound($Food) - 1 Step 1
      If $Food[$i][0] = $X AND $Food[$i][1] = $Y Then Return 1
   Next
   Return 0
EndFunc

Func Propagate($P1_ID,$P2_ID)
   If $Bugs[$P2_ID][1][5] OR $Bugs[$P1_ID][0][0] = $Bugs[$P2_ID][0][0] OR $Bugs[$P1_ID][0][0] OR NOT $Bugs[$P2_ID][0][0] OR NOT CanMate($P1_ID) OR NOT CanMate($P2_ID) Then Return 0
   ReDim $Bugs[UBound($Bugs)+1][UBound($Bugs,2)][UBound($Bugs,3)]
   $NewBug = UBound($Bugs) - 1
   $Parts = Round(UBound($Bugs,2) / 2)
   $P1_P  = 0
   $P2_P  = 0
   Dim $Child[2][UBound($Bugs,2)]
   For $i=0 to UBound($Bugs,2)-1 Step 1
      $P = Random(1,2,1)
      If (Execute("$P"&$P&"_P") < $Parts) Then
         Execute("$P"&$P&"_P += 1")
      Else
         $P = Not($P - 1) + 1
      EndIf
      $Bugs[$NewBug][0][$i] = Execute("$Bugs[$P"&$P&"_ID][0]["&$i&"]")
      If ($i > 0 And Random(0,5) = 5) Then $Bugs[$NewBug][0][$i] = Mutate($Bugs[$NewBug][0][$i])
   Next
   $Bugs[$NewBug][1][0] = 0
   $Bugs[$NewBug][1][1] = 100
   $Bugs[$NewBug][1][3] = $Bugs[$P1_ID][1][3]
   $Bugs[$NewBug][1][4] = $Bugs[$P1_ID][1][4]
   If $Bugs[$NewBug][0][0] Then
      $Bugs[$NewBug][1][6] = CreateNewGraphic(0xEE0000,$Bugs[$NewBug][1][3],$Bugs[$NewBug][1][4])
   Else
      $Bugs[$NewBug][1][6] = CreateNewGraphic(0x990000,$Bugs[$NewBug][1][3],$Bugs[$NewBug][1][4])
   EndIf
   $Bugs[$P1_ID][1][1] -= 50
   $Bugs[$P2_ID][1][1] -= 50
   $Bugs[$P2_ID][1][5]  = 10
   Return 1
EndFunc

Func Mutate($Val)
   Return Round($Val * Random(Random(.5,1),Random(1,1.5)))
EndFunc

Func CanMate($id)
   If ($Bugs[$id][1][0] < 50 OR $Bugs[$id][1][1] < 50 OR ($Bugs[$id][0][0] AND $Bugs[$id][1][5])) Then Return 0
   Return 1
EndFunc

Func AgeBugs()
   $BugDies = 1
   While $BugDies
      $i = 0
      While $i <= UBound($Bugs) - 1
         $BugDies = 0
         $Bugs[$i][1][1] -= $Bugs[$i][0][1]
         If $Bugs[$i][1][5] > 0 Then $Bugs[$i][1][5] -= 1
         If ($Bugs[$i][1][0] >= 500 OR $Bugs[$i][1][1] <= 0) Then
            DelGraphic($Bugs[$i][1][6])
            $BugDies = 1
            If UBound($Bugs) > 1 Then
               For $x=$i To UBound($Bugs)-2 Step 1
                  For $n=0 To UBound($Bugs,2) - 1 Step 1
                     For $o=0 To UBound($Bugs,3) - 1 Step 1
                        $Bugs[$x][$n][$o] = $Bugs[$x+1][$n][$o]
                     Next
                  Next
               Next
               ReDim $Bugs[UBound($Bugs) - 1][UBound($Bugs,2)][UBound($Bugs,3)]
            Else
               MsgBox(0,"Extinct","Your bugs have become extinct!"&@LF&@LF&"Time Passed: "&@TAB&$AgeTotal&@LF&"Max Pop: "&@TAB&$MaxBugs)
               Exit
            EndIf
         Else
            $Bugs[$i][1][0] += 1
         EndIf
         $i += 1
      WEnd
   WEnd
EndFunc

Func Eat($Bug_ID,$Food_ID)
   $Bugs[$Bug_ID][1][1] += 10
   If $Bugs[$Bug_ID][1][1] > 100 Then $Bugs[$Bug_ID][1][1] = 100
   DelGraphic($Food[$Food_ID][2])
   _ArrayDelete($Food,$Food_ID)
EndFunc

Func UpdateFood()
   If $AgeCD Then Return 0
   $FoodRegenCD -= 1
   If $FoodRegenCD <= 0 Then
      For $i=0 to $FoodRegenAmt - 1 Step 1
         Local $X = Random(0,$BoundX,1), $Y = Random(0,$BoundY,1)
         If FoodAt($X,$Y) Then
            $i -= 1
            ContinueLoop
         EndIf
         If Not UBound($Food) Then
            Global $Food[1][3]
         Else
            ReDim $Food[UBound($Food)+1][3]
         EndIf
         $Food[UBound($Food) - 1][0] = $X
         $Food[UBound($Food) - 1][1] = $Y
         $Food[UBound($Food) - 1][2] = CreateNewGraphic(0x000099,$X,$Y)
      Next
      $FoodRegenCD = $FoodRegen
   EndIf
EndFunc

Func UpdateBugs()
   If UBound($Bugs) > $MaxBugs Then $MaxBugs = UBound($Bugs)
   If $AgeCD <= 0 Then
      AgeBugs()
      $AgeCD = 10
      $AgeTotal += 1
      TrayTip("","",0)
      TrayTip("Bug Info","Time Passed:"&@TAB&$AgeTotal&@LF&"Population:"&@TAB&UBound($Bugs)&@LF&"Food:"&@TAB&@TAB&UBound($Food),10)
   EndIf
   $AgeCD -= 1
   For $i=0 to UBound($Bugs)-1 Step 1
      If (CanMate($i)) Then
         $Bugs[$i][1][2] = 2
      Else
         $Bugs[$i][1][2] = 1
      EndIf
   Next
EndFunc

Func MoveBugs()
   For $i=0 to UBound($Bugs)-1 Step 1
      If ($Bugs[$i][1][2] = 1) Then
         $CFood = ClosestFood($i)
         If $CFood >= 0 Then
            For $x = 1 to 3 * $Bugs[$i][0][1] Step 1
               $DistX = Abs($Bugs[$i][1][3] - $Food[$CFood][0])
               $DistY = Abs($Bugs[$i][1][4] - $Food[$CFood][1])
               If $DistX AND $DistY Then
                  If $DistX > $DistY Then
                     $Coord = 3
                  Else
                     $Coord = 4
                  EndIf
                  If $Bugs[$i][1][$Coord] > $Food[$CFood][$Coord - 3] Then
                     $Bugs[$i][1][$Coord] -= 1
                  Else
                     $Bugs[$i][1][$Coord] += 1
                  EndIf
                  MoveGraphic($Bugs[$i][1][6],$Bugs[$i][1][3],$Bugs[$i][1][4])
               Else
                  Eat($i,$CFood)
                  ExitLoop
               EndIf
            Next
         EndIf
      Else
         $Mate = ClosestMate($i)
         If $Mate >= 0 Then
            For $x = 1 to 5 * $Bugs[$i][0][1] Step 1
               $DistX = Abs($Bugs[$i][1][3] - $Bugs[$Mate][1][3])
               $DistY = Abs($Bugs[$i][1][4] - $Bugs[$Mate][1][4])
               If $DistX AND $DistY Then
                  If $DistX > $DistY Then
                     $Coord = 3
                  Else
                     $Coord = 4
                  EndIf
                  If $Bugs[$i][1][$Coord] > $Bugs[$Mate][1][$Coord] Then
                     $Bugs[$i][1][$Coord] -= 1
                  Else
                     $Bugs[$i][1][$Coord] += 1
                  EndIf
                  MoveGraphic($Bugs[$i][1][6],$Bugs[$i][1][3],$Bugs[$i][1][4])
               Else
                  If $Bugs[$i][0][1] Then
                     Propagate($Mate,$i)
                  Else
                     Propagate($i,$Mate)
                  EndIf
                  ExitLoop
               EndIf
            Next
         EndIf
      EndIf
   Next
EndFunc

Func ClosestMate($id)
   Local $Closest[2]
   $Closest[0] = -1
   $Closest[1] = -1
   For $i=0 to UBound($Bugs)-1 Step 1
      If $i = $id OR $Bugs[$id][0][0] = $Bugs[$i][0][0] Then ContinueLoop
      If Sqrt(($Bugs[$i][1][3] - $Bugs[$id][1][3])^2 + ($Bugs[$i][1][4] - $Bugs[$id][1][4])^2) < $Closest[1] Or $Closest[1] = -1 Then
         $Closest[0] = $i
         $Closest[1] = Sqrt(($Bugs[$i][1][3] - $Bugs[$id][1][3])^2 + ($Bugs[$i][1][4] - $Bugs[$id][1][4])^2)
      EndIf
   Next
   If $Closest[0] = -1 Then
      If Not $Bugs[$id][0][0] Then
         $Gend = "Females"
      Else
         $Gend = "Males"
      EndIf
      If Not $DyingMessage_Gend Then
         MsgBox(0,"Dying!","All of the "&$Gend&" of your bug population have died! It's only a matter of time before the others die too.")
         $DyingMessage_Gend = 1
      EndIf
      Return -1
   EndIf
   Return $Closest[0]
EndFunc

Func ClosestFood($id)
   Local $Closest[2]
   $Closest[0] = -1
   $Closest[1] = -1
   For $i=0 to UBound($Food)-1 Step 1
      If Sqrt(($Food[$i][0] - $Bugs[$id][1][3])^2 + ($Food[$i][1] - $Bugs[$id][1][4])^2) < $Closest[1] Or $Closest[1] = -1 Then
         $Closest[0] = $i
         $Closest[1] = Sqrt(($Food[$i][0] - $Bugs[$id][1][3])^2 + ($Food[$i][1] - $Bugs[$id][1][4])^2)
      EndIf
   Next
   Return $Closest[0]
EndFunc

BuildStartingPopulation(10)
BuildStartingFood(25)
GuiSetState()
While 1
   UpdateFood()
   UpdateBugs()
   MoveBugs()
WEnd


You can change the starting population/amount of food with the lines "BuildStartingPopulation(10)" and "BuildStartingPopulation(25)". You can also change any of these globals found near the beginning of the script (the other ones are for the script to function):
$BoundX - Highest X coordinate for food creation
$BoundY - Highest Y coordinate for food creation
$FoodRegen - Number of days for new food to be made
$FoodRegenAmt - Amount of new food made each time

What the script does (atm) is create a traytip with the time passed, current population and current amount of food. Planning on making a gui with moving pixels for bugs/food eventually.

*Note - The script is slow, I still need to optimize it. Also it might take a few tries to get a population that doesn't go extinct within the first 500 days (usually due to no males or females being in the starting population)

_________________
Unless otherwise stated, all code is untested

(\__/) This is Bunny.
(='.'=) Cut, copy, and paste bunny onto your sig.
(")_(") Help Bunny gain World Domination.


Last edited by Slanter on September 7th, 2008, 6:24 am, edited 2 times in total.

Report this post
Top
 Profile  
Reply with quote  
Jex
 Post subject:
PostPosted: September 7th, 2008, 2:06 am 
Offline

Joined: August 2nd, 2008, 12:31 am
Posts: 101
umm, can't you use arrays in ahk?

any way, your bug simulation sounds neat.

i was thinking of starting a project to get an AI to draw a line around obstacles to connect 2 points(using paint).

_________________
Woot.

Please read forum etiquette


Report this post
Top
 Profile  
Reply with quote  
Krogdor
 Post subject:
PostPosted: September 7th, 2008, 2:25 am 
Offline

Joined: April 18th, 2008, 7:57 am
Posts: 1390
Location: The Interwebs
Jex wrote:
umm, can't you use arrays in ahk?


AHK only has pseudo-arrays; AU3 supports them much better. Anyway, your bug simulation sounds really cool, but I'm too lazy to download AU3 just to see it. Perhaps someone who actually knows how AU3 works will translate? :D


Report this post
Top
 Profile  
Reply with quote  
Slanter
 Post subject:
PostPosted: September 7th, 2008, 6:24 am 
Offline

Joined: May 28th, 2008, 2:11 am
Posts: 739
Location: Minnesota, USA
I just updated the code with a gui. Colors of dots are as follows: Female bug is light red, Male bug is dark red/brown, Food is blue. This really shows how some of these bugs mutate, as you watch them shoot half way across the map in ~1/10 of a second, then promptly die as they run out of energy :lol:

Also a compiled version here for those of you who want to see it without gettin autoit.

Enjoy :D

*Note - I am aware that some of the bugs just end up sitting in one spot until they die. I don't know the why, but they seem to be suicidal :(
Edit: Figured this out, they just weren't updating their positions while in "mating mode"... stealth for the win?

_________________
Unless otherwise stated, all code is untested

(\__/) This is Bunny.
(='.'=) Cut, copy, and paste bunny onto your sig.
(")_(") Help Bunny gain World Domination.


Report this post
Top
 Profile  
Reply with quote  
Krogdor
 Post subject:
PostPosted: September 7th, 2008, 8:27 am 
Offline

Joined: April 18th, 2008, 7:57 am
Posts: 1390
Location: The Interwebs
Slanter wrote:
I just updated the code with a gui. Colors of dots are as follows: Female bug is light red, Male bug is dark red/brown, Food is blue. This really shows how some of these bugs mutate, as you watch them shoot half way across the map in ~1/10 of a second, then promptly die as they run out of energy :lol:

Very cool stuff!

Quote:
Also a compiled version here for those of you who want to see it without gettin autoit.

Thanks :D


Report this post
Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 2
  [ 26 posts ]  Go to page 1, 2  Next

Board index » General » Offtopic

All times are UTC [ DST ]

Who is online

Users browsing this forum: Morpheus and 10 guests

You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Powered by phpBB® Forum Software © phpBB Group