[Fortran 95] Initialiser un tableau et l'afficher avec un format (i,j,val)

Version imprimable

21/11/2008, 19h54
Ric000

[Fortran 95] Initialiser un tableau et l'afficher avec un format (i,j,val)

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 .

Si je comprend bien ton fichier est de la forme :

Code:

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:

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

22/11/2008, 12h06
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:

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.
22/11/2008, 14h25
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:

write(*,"(3i5)")i,j,matrice(i,j)
22/11/2008, 17h57
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 .

bonjour en fait je voudrai minimiser une fonction sur fortran et jarrive tjs pas.si

Citation:
Envoyé par Ladgalen
Si je comprend bien ton fichier est de la forme :
Code:

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:

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