Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - asterixx

Pages: [1] 2 3 4
1
Evolution and Internet Sharing Sims / Pfft! Just tell me what to do.
« on: July 01, 2008, 03:52:39 PM »
Thank you for the suggestions, we'll see how it goes, and I'll get back to you.

2
Evolution and Internet Sharing Sims / Pfft! Just tell me what to do.
« on: June 30, 2008, 10:39:56 PM »
Quote from: EricL
Controlling populations in internet mode works the same as with any other sim.  Use nrg thresholds, use costs, use auto-costs, limit veggies, limit sunshine, do what ever you would normally do to control populations.

I don't know what settings to use for many of the bots in internet mode, so either I end up killing everything, or the costs do nothing. Maybe I should have asked for some typical IM settings.

3
Evolution and Internet Sharing Sims / Pfft! Just tell me what to do.
« on: June 30, 2008, 10:50:22 AM »
I want to run an internet sim without the population climbing to 3-3.5 thousand, because it slows to .2 cycles/sec. Does anyone want me to just run a copy of their faster sim? I would be more than okay with that.

4
DNA - General / Optimizing a Swarm
« on: June 28, 2008, 07:47:28 PM »
Well, whatever advice you might have would be helpful. One of the most important things I want to fix is that when the swarm hits a wall, it gets a little broken up. So I'm going to start with that.

5
DNA - General / Optimizing a Swarm
« on: June 28, 2008, 06:12:30 PM »
I was wondering if anyone could help me improve the behaviour of this bot. I would particularly like them to be able to survive better, but also it would be neat if there was a way to make them stay in tighter clusters. Here's the DNA:

________________________________
 cond
 *.eye5 0 >
 *623 *.myeye !=
 start
 *.refveldx .dx store
 *.refvelup 30 add .up store
 stop

 cond
 *.eye5 50 >
 *.refeye *.myeye !=
 start
 -1 .shoot store
 *.refvelup .up store
 stop


 cond
 *.eye5 0 =
 *.refeye *.myeye =
 or
 start
 314 rnd .aimright store
 stop

 cond
 *.nrg 5000 >
 start
 10 .repro store
 stop
________________________________

Thanks.

6
Biology / Voodoo Wasps
« on: June 21, 2008, 08:18:38 AM »
Quote from: Numsgil
Maybe they pinch it like a predator would if they sense too much vibration?

That could very well be. And I wonder if the motion is just random or if it is specifically directed at a certain disturbance on the caterpillars body.

7
Biology / Voodoo Wasps
« on: June 20, 2008, 08:59:50 PM »
Some of you may have seen this already. I thought it was a neat.


Zombie caterpillar controlled by voodoo wasps

8
Internet Mode Commentary / The State of the Simulation
« on: June 09, 2008, 09:30:25 PM »
Well, after about 850 hours, my zerobot sim collapsed, and I tried bringing it back to life but they kept going extinct; I think I can blame that on there being no family recognition, although the last bot alive wasn't the "bully/mass murderer" as I had expected so I dont know. I'm going to abandon that project for awhile and just try tinkering with internet mode: Is it functional?

9
Biology / Crows are pretty damn smart
« on: June 09, 2008, 08:57:52 PM »
Why is a raven like a writing desk?

10
Biology / Crows are pretty damn smart
« on: June 08, 2008, 09:22:50 AM »
I am really not too sure how this thread progressed to this point   , but if I may just make a comment about the original point, I'd like to say that it is not surprising that a crow would be capable of such a behaviour. A friend of mine has a pet crow and it is capable of opening doors, and it has never (I think), seen another crow, the only 'social structure' it could possibly observe was the human interractions of the family. Can we at least agree that the crow has DNA that codes for the capacity to achieve such a task?

Thanks for this thread, truly amazing. As for the physics, I really do not know enough to speculate objectively as to the nature of the relationship between the structure of energy and its connection to gene expression? I appreciate the divergence  

Nice to post again, it feels like its been ages. And this zerobot sim is closing in on 1000 hours, there has clearly been evolution (I thought I'd never see changes) but, nothing as spectacular as I was hoping.

11
Bugs and fixes / Courrupted .sim files RESOLVED 2.43.1k
« on: May 01, 2008, 09:44:30 PM »
Thank you EricL!    I was having this problem too.

12
Newbie / Methinks it is like a weasel
« on: April 29, 2008, 08:17:15 PM »
[div class=\'codetop\']CODE[div class=\'codemain\' style=\'height:200px;white-space:pre;overflow:auto\']Module Module1
    Sub Main()
        Dim Create As StringCreator
        Dim NumberOfKeys As Integer
        Dim i_Keys As Integer
        Dim RandomCreate As String
        NumberOfKeys = 1

        Create = New StringCreator
        Create.KeyLetters = "abcdefghijklmnopqrstuvwxyz"
        Create.KeyNumbers = "0123456789"
        Create.KeyChars = 10
        For i_Keys = 1 To NumberOfKeys
            RandomCreate = Create.Generate()
            Console.WriteLine(RandomCreate)
        Next
        Console.WriteLine("Press any key to exit...")
        Console.Read()
    End Sub
End Module

////////////////////////////

Option Strict On
Imports System.Text

Public Class StringCreator
    Dim Key_Letters As String
    Dim Key_Numbers As String
    Dim Key_Chars As Integer
    Dim LettersArray As Char()
    Dim NumbersArray As Char()

    Property KeyLetters() As String
        Set(ByVal Value As String)
            Key_Letters = Value
        End Set
    End Property

    Property KeyNumbers() As String
        Set(ByVal Value As String)
            Key_Letters = Value
        End Set
    End Property

    Property Set KeyChars() As String
        Set(ByVal Value As String)
            Key_Letters = Value
        End Set
    End Property
    Function Generate() As String
        Dim i_key As Integer
        Dim Random1 As Single
        Dim arrIndex As Int16
        Dim sb As New StringBuilder
        Dim RandomLetter As String


        LettersArray = Key_Letters.ToCharArray
        NumbersArray = Key_Numbers.ToCharArray

        For i_key = 1 To Key_Chars

            Randomize()
            Random1 = Rnd()
            arrIndex = -1

            If (CType(Random1 * 111, Integer)) Mod 2 = 0 Then

                Do While arrIndex < 0
                    arrIndex = Convert.ToInt16(LettersArray.GetUpperBound(0) * Random1)
                Loop
                RandomLetter = LettersArray(arrIndex)

                If (CType(arrIndex * Random1 * 99, Integer)) Mod 2 <> 0 Then
                    RandomLetter = LettersArray(arrIndex).ToString
                    RandomLetter = RandomLetter.ToUpper
                End If
                sb.Append(RandomLetter)
            Else
                Do While arrIndex < 0
                    arrIndex = Convert.ToInt16(NumbersArray.GetUpperBound(0) * Random1)
                Loop
                sb.Append(NumbersArray(arrIndex))
            End If
        Next
        Return sb.ToString
    End Function
End Class




Ok, this one generates a random 10 character string. Its in VB as well.

13
Evolution and Internet Sharing Sims / Successes...and Failures?
« on: April 29, 2008, 05:46:14 PM »
I agree Moonfisher. A very successful bot might also be able to limit the amount of energy it absorbs from the environment (T_Preservans is a good example). Doesnt measuring values that are outside the scope of reproduction become a problem of subjectivity?

Quote from: EricL
I've never played with scripts.  Give it a try.  I'll fix any bugs you find...

As for this, I think the main issue I've been having is that when I set "DNA Scripts Enabled" checkbox, and run the simulator, then go back and check the settings, the box is unchecked.

14
Newbie / Methinks it is like a weasel
« on: April 28, 2008, 10:51:32 PM »
Well, I succeeded at making a completely different program. Its a random number generator which I think has helped me get my brain around this. Is this at least a good first step in figuring it out?

Quote
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Numb As Integer = Rand(1, 1000)
        Label1.Text = (Numb.ToString())
    End Sub

    Public Function Rand(ByVal Low As Long, _
                         ByVal High As Long) As Long
        Rand = Int((High - Low + 1) * Rnd()) + Low
    End Function


End Class

That can pretty much be copy/pasted into VB, just make a Button1 and a Label1.

15
Evolution and Internet Sharing Sims / Successes...and Failures?
« on: April 28, 2008, 06:35:43 PM »
Firstly, I noticed that it selected a most successful bot that had 0 offspring over one that had 4 offspring...That's why I was confused. In any case, it doesnt really bother me all that much.

Quote
Oldest bot without offspring perhaps?

Yes, something like that. It could potentially allow for some interesting comparisons, and might help the user to understand what exactly went "wrong", so to speak.


Pages: [1] 2 3 4