Discussion :

[valocool]

Bonjour j'ai un souci avec mon code Fortran pour un Jeu De Vie.

Mon soucis est que j'ai la matrice 3*3 suivante :

1 0 0
1 1 0
0 0 1

Lorsque je passe ma fonction nb_voisins_vivants(i,j,G) sur la case de coordonnée i=1, j=1 j'obtiens bien 2 (voisins).

Cependant dans ma fonction prochain_etat(i,j,G) qui rend la valeur d'une case a la génération suivante, lorsque je PRINT la valeur de nb_voisins_vivants(i,j,G) avec toujours i=1 et j=1 j'obtiens 5 !!!


Puis si je boucle la fonction et que je continue avec les mêmes coordonnées il me donne 11 puis 17 ... (+6 a chaque fois)
Je ne comprends pas pourquoi ?
Y aurait-il un problème avec ma fonction nb_voisins_vivants(i,j,G) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
INTEGER FUNCTION prochain_etat(i,j,G)
INTEGER, DIMENSION(:,:),INTENT(INOUT) :: G
INTEGER, INTENT(INOUT) :: i,j
 
 
IF (G(i,j)==1) THEN
PRINT*, nb_voisins_vivants(i,j,G)
   IF (nb_voisins_vivants(i,j,G)==2 .OR. nb_voisins_vivants(i,j,G)==3) THEN
      prochain_etat=1
   ELSE
      prochain_etat=0
   END IF
ELSE
   IF (nb_voisins_vivants(i,j,G)==3) THEN
      prochain_etat=1
   ELSE
      prochain_etat=0
   END IF
END IF
 
END FUNCTION prochain_etat
 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Merci d'avance pour votre aide.
J'ai joins mon fichier *.f90 dans le zip pour que vous voyez un peu ce que j'ai fais.

[__dardanos__]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
INTEGER FUNCTION nb_voisins_vivants(i,j,G)
INTEGER, DIMENSION(:,:),INTENT(INOUT) :: G
INTEGER, INTENT(INOUT) :: i,j
INTEGER :: s=0, f, jbis,z,a,b

En FORTRAN 90, s est une variable statique.
La fonction nb_voisins_vivants l'incrémente bien de 2 à chaque appel.
Comme elle est appelée 3 fois par prochain_etat dans la boucle, ça explique le +6.

Sinon, il y aurait des choses à redire sur le code.
Dans nb_voisins_vivants, les variables i et j servent à la fois à repérer la case et à faire la somme.

Et le code serait plus clair en utilisant des ELSEIF.

Tu peux utiliser avantageusement les fonctions intrinsèques du FORTRAN 90 (where, sum …).

Si tu ne vois toujours pas, utilise un débogueur pour faire du pas à pas.

Bon courage.

[Sylvain Bergeron]

Pour compléter :

En FORTRAN 90, s est une variable statique.
La fonction nb_voisins_vivants l'incrémente bien de 2 à chaque appel.
Comme elle est appelée 3 fois par prochain_etat dans la boucle, ça explique le +6.

L'initialisation à zéro est bien effectuée, mais une seule fois au démarrage du programme. Pour que la mise à zéro s'effectue à chaque appel, tu dois avoir une instruction s = 0 dans la section « exécutable » et non dans les déclarations.

[valocool]

Merci pour vos réponses.

Donc j'ai rajouter :

s=0

a la fin de ma fonction nb_voisins_vivants.

Mais maintenant j'ai un problème avec la fonction prochain_etat qui me renvoie 0 a la place de 1 pour la case i=2, j=2.

Pourtant il y'a bien 3 voisin a la case (2,2) donc il devrait me renvoyer 1 :/

Après je confirme que le code est encore un peu brouillon vu que je viens de le commencer. Il y'a plein de variables ou de test inutile mais qui me serve a la résolution de problème vu que je n'ai pas de débogueur.