Page 1 sur 1
[R] Exploration d'un arbre en profondeur
Posté : sam. 08 nov. 2014 17:26
par sozary
Bonjour!!
J'ai fais une exploration d'un arbre en profondeur qui marche très bien..
Seulement voilà, regardez mon code source:
► Afficher le texte
Code : Tout sélectionner
;Tout d'abord, je créer mon arbre
#include <array.au3>
Global $TREE[3]
Global $rac[3]
$rac[0]="11"
Local $node[3]
$node[0]="8"
Local $nida[3]
$nida[0]="5"
Local $noda[3]
$noda[0]="10"
$node[1]=$nida
$node[2]=$noda
Local $nide[3]
$nide[0]="14"
local $mias[3]
$mias[0]="13"
Local $minos[3]
$minos[0]="15"
$nide[1]=$mias
$nide[2]=$minos
$rac[1]=$node
$rac[2]=$nide
Global $text=""
MsgBox(0,"",_Affiche($rac))
Func _Affiche($noeud)
_ArrayDisplay($noeud)
If IsArray($noeud) Then
$text&=$noeud[0]&";"
_Affiche($noeud[1])
_Affiche($noeud[2])
EndIf
Return $text
EndFunc
Le soucis est que je dois déclarer chaque tableaux, et c'est lassant alors que je n'ai que 7 valeurs.. Un moyen plus rapide est t-il envisageable?
Merci d'avance!
Re: [..] Exploration d'un arbre en profondeur
Posté : sam. 08 nov. 2014 22:11
par Faco
c'est important les valeurs que tu met dans ton tableau? Sinon tu peux partir sur une fonction récursive comme tu l'a déjà fais.
Re: [..] Exploration d'un arbre en profondeur
Posté : sam. 08 nov. 2014 22:28
par sozary
Mais c'est ce que j'ai fais par la suite!
-->
► Afficher le texte
Code : Tout sélectionner
_PutInTree("13","15","14",$rac)
Func _PutInTree($Value1,$Value2,$pValue,$aDest)
If IsArray($aDest) Then
If $aDest[0]=$pValue Then
Local $node[3],$noda[3]
$noda[0]=$Value2
$node[0]=$Value1
$aDest[1]=$noda
$aDest[2]=$node
Return
Else
_PutInTree($Value,$branche,$pValue,$aDest[1])
_PutInTree($Value,$branche,$pValue,$aDest[2])
EndIf
EndIf
EndFunc
Mais bizarrement la valeur 13 ne veut pas s'ajouter... Ceci est une modification, avant la fonction prenais en paramètre uniquement la valeur d'un noeud, et la fonction ajoutais ce noeud. Cela marchais avec 15, mais avec 13 nan! D'ou les changements-test effectués
Re: [..] Exploration d'un arbre en profondeur
Posté : sam. 08 nov. 2014 22:56
par Faco
pour de vrai tu veux faire quoi ? tu nous fais réfléchir sur des truc pas très compréhensible.
$Value et $branche ne sont pas définit (dans la partie de code que tu donne ...)
Re: [..] Exploration d'un arbre en profondeur
Posté : sam. 08 nov. 2014 23:18
par sozary
En fait: j'ai un nœud racine valant 11, qui se divise en deux noeud, 14 et 8 comme sur l image:
http://recursivite.developpez.com/images/image7-1-2.gif
Je veux en entrant deux noeuds fils, qu'ils se mettent eux même fils d'un parent donné (d'ou le valeur1,valeur2 représentrant les noeuds fils)
Re: [..] Exploration d'un arbre en profondeur
Posté : dim. 09 nov. 2014 02:07
par orax
On peut utiliser une écriture plus courte pour les tableaux.
► Afficher le texte
Code : Tout sélectionner
Local $nida = [5, "", ""]
Local $noda = [10, "", ""]
Local $node = [8, $nida, $noda]
Local $mias = [13, "", ""]
Local $minos = [15, "", ""]
Local $nide = [14, $mias, $minos]
Global $rac = [11, $node, $nide]
Je ne sais pas si c'est bon mais là j'ai tous les nombres.
► Afficher le texte
Code : Tout sélectionner
;Tout d'abord, je créer mon arbre
#include <array.au3>
Global $rac[3]
Global $text = ""
$rac[0]=11
_PutInTree("14","8","11",$rac)
_PutInTree("10","5","8",$rac)
_PutInTree("15","13","14",$rac)
Func _PutInTree($Value1,$Value2,$pValue, ByRef $aDest)
If IsArray($aDest) Then
If $aDest[0]=$pValue Then
Local $node[3],$noda[3]
$noda[0]=$Value2
$node[0]=$Value1
$aDest[1]=$noda
$aDest[2]=$node
Else
_PutInTree($Value1,$Value2,$pValue,$aDest[1])
_PuteInTree($Value1,$Value2,$pValue,$aDest[2])
EndIf
EndIf
EndFunc
MsgBox(0, "", _Affiche($rac))
Func _Affiche($noeud)
_ArrayDisplay($noeud)
If IsArray($noeud) Then
$text &= $noeud[0] & ";"
_Affiche($noeud[1])
_Affiche($noeud[2])
EndIf
Return $text
EndFunc ;==>_Affiche
Re: [..] Exploration d'un arbre en profondeur
Posté : dim. 09 nov. 2014 11:33
par sozary
En effet... J'ai le même code, je sais pas pourquoi cela avait planter ..!
Merci quand même à vous deux!
P.S: Orax, dans ton code, dans la fonction _PutInTree(), quand tu l'appelles deux fois, la deuxième fois, n'écris pas "_PuteInTree"
! Ce petit lapsus
!
Re: [..] Exploration d'un arbre en profondeur
Posté : dim. 09 nov. 2014 15:21
par sozary
Je pense que le ByRef a débloqué l'histoire en fait! Merci!
Re: [..] Exploration d'un arbre en profondeur
Posté : dim. 09 nov. 2014 17:51
par mikell
sozary a écrit :quand tu l'appelles deux fois, la deuxième fois, n'écris pas "_PuteInTree"
Oui, tu peux appeler la dame dans son arbre si tu veux, mais ne l'écris pas
