Discussion :

[Ric000]

Bonjour,
Voila je suis débutant dans l'utilisation du langage FORTRAN 95 et je souhaite initialiser un tableau 5*5 à l'aide d'un fichier txt contenant une colonne i (ligne), j (colonne), et val (valeur dans la case du tableau (i,j).
J'arrive à ouvrir le fichier .txt mais je ne sais pas comment l'afficher dans mon programme ( en respectant la mise en page ligne et colonne).
Merci de me répondre ou de me demander plus de précision pour m'aider .

[Ladgalen]

Si je comprend bien ton fichier est de la forme :

Code :

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

1
2
3
4
5
6
7
 
1 1 3.2
1 2 2.3
...
i j valeur
...
5 5 8.2

Tu as une matrice 5x5 donc 25 éléments, donc pour lire la matrice tu peux faire ça :

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
 
integer,parameter::n=5   ! dimension de ta matrice
integer::i,j,k
double precision,dimension(n,n)::matrice
 
open(10,file="ton fichier")
 
Do k=1,n*n
  read(10,*)i,j,matrice(i,j)
Enddo
 
! puis pour l'afficher
Do i=1,n
  write(*,"(5F8.3)")(matrice(i,j),j=1,n)
Enddo
 
! change le format en fonction de test valeurs

[Ric000]

Merci, j'arrive a affiché le fichier texte qui rempli entièrement le tableau.
Mais dans mon cas je dois seulement remplir les cases bordures de mon tableau (et de mettre des zéros aux autres cases).

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
1 2 1
1 3 6
1 4 10	
1 5 5
1 6 2
2 1 1
2 7 9
3 1 9
3 7 2
4 1 5
4 7 5
5 1 10
5 7 9
6 2 6
6 7 1
7 2 9
7 3 2
7 4 2
7 5 5
7 6 1

mon tableau est en fait un plateau de dimensions 7*7 mais on remplit toutes les cases bordures du plateau afin de délimiter un plateau 5*5.
J'arrive a affiché mon plateau mais je voudrais savoir si il y avait un moyen d'aligner parfaitement les lignes et les colonnes, en effet j'ai un décalage due à ma valeur 10.

[Ladgalen]

Dans ce cas tu as un problème de format !

Avec un format ix (où x est un nombre de colonne) l'entier est écrit sur x colonnes en commençant par la droite. Normalement ça devrait résoudre ton problème. Essaye par exemple

Code :

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

write(*,"(3i5)")i,j,matrice(i,j)

[Ric000]

Merci beaucoup j'ai enfin pu afficher le plateau correctement.
L'écriture avec 7i3 ma permis d'afficher mes 7 colonnes parfaitement alignés .

[lemale]

Si je comprend bien ton fichier est de la forme :

Code :

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

1
2
3
4
5
6
7
 
1 1 3.2
1 2 2.3
...
i j valeur
...
5 5 8.2

Tu as une matrice 5x5 donc 25 éléments, donc pour lire la matrice tu peux faire ça :

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
 
integer,parameter::n=5   ! dimension de ta matrice
integer::i,j,k
double precision,dimension(n,n)::matrice
 
open(10,file="ton fichier")
 
Do k=1,n*n
  read(10,*)i,j,matrice(i,j)
Enddo
 
! puis pour l'afficher
Do i=1,n
  write(*,"(5F8.3)")(matrice(i,j),j=1,n)
Enddo
 
! change le format en fonction de test valeurs