Evolution des cellules

Version imprimable

29/11/2010, 16h35
lemano

Evolution des cellules

Bonjour,
je suis étudiant débutant sur Visual.net 2010 je dois faire un projet et j'aurais besoin de votre aide pour m'aider à démarrer le projet.
Une cellule est décrite par huit informations binaires et obéit aux 16 règles d’évolution qui définissent la théorie évolutionniste. Ces règles explicitent l’évolution de la cellule par tranche de quatre positions binaires. Elles sont exposées dans la partie gauche du tableau 1 donné ci-dessous.

Si par exemple on considère la cellule 01001001 et les règles d’évolution décrites ci-dessous, la cellule est devenue 10000010 après 3 itérations. Le détail de l’évolution de la cellule est donné tableau 1.

0000 -> 0001
0001 -> 0010
0010 -> 0011
0011 -> 0100
0100 -> 0110
0101 -> 0110
0110 -> 0111
0111 -> 1000
1000 -> 1001
1100 -> 1101
1101 -> 1110
1110 -> 1111
1111 -> 0000
1010 -> 1011
1011 -> 1100
1001 -> 0000

Tableau 1 : Règles d’évolution et Evolution d’une cellule
1ère Itération
01001001 -> 01100000
d’après les règles
0100 -> 0110 et 1001 -> 0000

2ème Itération
01100000 -> 01110001
d’après les règles
0110 -> 0111 et 0000 -> 0001

3ème Itération
01110001 -> 10000010
d’après les règles
0111 -> 1000 et 0001 -> 0010

On vous demande d’écrire une application Visual Basic qui permet la saisie d’une cellule et la simulation de son évolution sur un nombre d’itération saisi par l’utilisateur. L’application doit afficher le résultat de l’évolution après chaque itération. Elle doit également expliciter cette évolution comme indiqué dans le tableau 1.

Voila le sujet, donc il faut mettre 2 textbox avec dans la premier les 4 chiffres binaires et dans la deuxième la suite et voir ensuite son évolution. Il ne s'agit pas de faire des additions binaire mais une comparaison.

Je demande un peu d'aide pour savoir comment construire mon algo je pense qu'il faut faire 2 boucles mais pour l'instant je vois pas trop comment8O
Merci de votre aide

A mon avis, le plus simple est de considérer les différents états binaires comme des nombres entiers (que tu pourras reconvertir en binaire pour l'affichage si besoin).

Il te faut une fonction qui te renvoie l'état suivant à partir de l'état courant. Tu peux implémenter ça avec un Select Case, ou alors un Dictionary si tu veux pouvoir rendre les transitions configurables.

Voilà une implémentation toute simple de la fonction de transition avec Select Case :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Function GetNextState(ByVal currentState As Integer) As Integer Select Case currentState Case 0 Return 1 Case 1 Return 2 Case 2 Return 3 Case 3 Return 4 Case 4 Return 6 Case 5 Return 6 Case 6 Return 7 Case 7 Return 8 Case 8 Return 9 Case 12 Return 13 Case 13 Return 14 Case 14 Return 15 Case 15 Return 0 Case 10 Return 11 Case 11 Return 12 Case 9 Return 0 Case Else Throw New Exception("Etat non valide") End Select End Function
Pour convertir l'état d'une cellule en binaire, tu peux utiliser Convert.ToString(state, 2)

Bonsoir,
le dictionary de tomlev me semble bien :

Code:

1
2
3
4
5
6
7
    Dim Dic As New Dictionary(Of String, String)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dic.Add("0000", "0001")
        Dic.Add("0001", "0010")
        Dic.Add("0010", "0011")
        'etc...

et une fonction du genre :

Code:

1
2
3
4
5
6
7
8
9
    Private Function Evolution(ByVal cle As String, ByVal nbrItération As Integer) As String
 
        For i As Integer = 1 To nbrItération
            cle = Dic.Item(cle)
            MessageBox.Show(cle)
        Next
        Return cle
 
    End Function

30/11/2010, 11h52
lemano
Merci de vos réponses, mais je ne sais pas utiliser le dictionary, je pensais faire ça plutôt avec des tableaux. Un peu comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 dim Tab1erepartie Tab(0)"000" Tab(1)"0001" ... Tab(15)"1001" dim Tab2emepartie Tab(0)"0001" ... Tab(15)"0000" Qu'en pensez vous ?
30/11/2010, 14h07
tomlev

Citation:

Envoyé par lemano

Merci de vos réponses, mais je ne sais pas utiliser le dictionary, je pensais faire ça plutôt avec des tableaux. Un peu comme ceci

C'est pas très compliqué d'utiliser un Dictionary, tu peux apprendre...

Sinon tu peux effectivement le faire avec un tableau, mais je te conseille de stocker la valeur décimale plutôt que la représentation binaire, ce sera plus pratique
30/11/2010, 15h44
lemano

Je n'arrive pas à bien comprendre comment son stockées les clés dans le dictionary en fait ?

Citation:

Envoyé par lemano

Je n'arrive pas à bien comprendre comment son stockées les clés dans le dictionary en fait ?

En fait, un Dictionary c'est un peu comme un tableau, sauf que tu peux utiliser n'importe quoi comme "index" (nombre, chaine de caractères, objet...)

Chaque valeur dans le dictionnaire est associé à une clé, par laquelle tu peux accéder à la valeur. Par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ' Clés de type String, valeurs de type Integer Dim dict As New Dictionary(Of String, Integer)() ' Ajout d'une valeur avec la clé "hello" dict.Add("hello", 123) dict.Add("hello", 456) ' Erreur : la clé "hello" existe déjà ' Récupération de la valeur associée à la clé "hello" Dim valeur As Integer = dict("hello") Dim oops As Integer = dict("blabla") ' Erreur : la clé "blabla" n'existe pas ' Changement de la valeur associée à la clé "hello" dict("hello") = 42 ' Suppression de la valeur associée à la clé "hello" dict.Remove("hello")

01/12/2010, 16h40
lemano

Merci de ton aide, mais je me suis renseigné et il faut utiliser des tableaux j'ai donc choisit de faire 2 tableaux à 2 dimensions, merci quand même.