Discussion :

[driss80]

salut les amis;
mon probleme est le suivant: j'ai calculé une boucle sous la forme suivante:

Code :

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

1
2
3
do i=1,200
 P(i+1)=P(i)+....
enddo

une seule fois, cad qu'on fait un calcul de 1 à 200 et ça yest c fini, alors ma question est comment faire pour calculer cette boucle 40 fois (cad on fait 40 fois de 1 à 200 en prenant compte des resultats de le boucle precedente) sans changer la dimension du tableau P? et merci à tous et à toutes..

[yogitetradim]

Bonjour,

j'ai un peu de mal à comprendre ce que tu veux faire. Est-ce une sorte de mise à jour d'un tableau de valeurs (mise à jour que tu ferais 40 fois) ?
dans ce cas (et en considérant que tu as une clause qui te permet de te référer à la dernière cellule de ton tableau quand tu recommences ta boucle). un do while devrait marcher.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
do while (cpt<40)
          boucleTable:do i=1,200
!cette partie devrait être un peu plus explicite
                                P(i+1)=P(i)+....
                            enddo boucleTable
!on incrémente le compteur de MAJ
cpt=cpt+1
!plus instructions pour que lorsque je recommence boucleTable, 
!ma valeur de P(1) ait changé ! 
p(1)=p(201)  ! par exemple
enddo

Il est probable que je n'ai rien compris à ce que tu demandais réellement, auquel cas excuse moi.;-)

[driss80]

Bonjour,

j'ai un peu de mal à comprendre ce que tu veux faire. Est-ce une sorte de mise à jour d'un tableau de valeurs (mise à jour que tu ferais 40 fois) ?
dans ce cas (et en considérant que tu as une clause qui te permet de te référer à la dernière cellule de ton tableau quand tu recommences ta boucle). un do while devrait marcher.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
do while (cpt<40)
          boucleTable:do i=1,200
!cette partie devrait être un peu plus explicite
                                P(i+1)=P(i)+....
                            enddo boucleTable
!on incrémente le compteur de MAJ
cpt=cpt+1
!plus instructions pour que lorsque je recommence boucleTable, 
!ma valeur de P(1) ait changé ! 
p(1)=p(201)  ! par exemple
enddo

Il est probable que je n'ai rien compris à ce que tu demandais réellement, auquel cas excuse moi.;-)

merci infiniment pour votre reponse, en fait, je dois calculer la boucle comme tu l'as nommé boucletable 40 fois et à chaque fois je reprend les valeurs trouvés suite au calcul de la boucle 1 comme valeurs initiales ou de depart pour la boucle 2 et ainsi de suite....

[driss80]

merci infiniment pour votre reponse, en fait, je dois calculer la boucle comme tu l'as nommé boucletable 40 fois et à chaque fois je reprend les valeurs trouvés suite au calcul de la boucle 1 comme valeurs initiales ou de depart pour la boucle 2 et ainsi de suite....

j'ai essayé avec cela mais ça donne pas de résultats...

[FR119492]

Salut !

Si tu nous disais ce que tu veux faire avec tes deux boucles imbriquées, ce serait plus facile de te répondre. En attendant, tu peux essayer ceci:

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
C       Début de la boucle extérieure
      Do k=1,40
        If (k.Eq.1) Then
C           Initialisation de P(1) pour la première des 40 boucles
          P(1)= ...
        Else
C           Initialisation de P(1) pour les 39 autres boucles
          P(1)= ...
        End If
C           Début de la boucle intérieure
        Do i=1,200
          P(i+1)=P(i)+ ...
C           Fin de la boucle intérieure
        End Do
C           Utilisation des résultats d'une boucle
          ...
C           Fin de la boucle extérieure
      End Do

Bonne chance
Jean-Marc Blanc

[driss80]

Salut !

Si tu nous disais ce que tu veux faire avec tes deux boucles imbriquées, ce serait plus facile de te répondre. En attendant, tu peux essayer ceci:

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
C       Début de la boucle extérieure
      Do k=1,40
        If (k.Eq.1) Then
C           Initialisation de P(1) pour la première des 40 boucles
          P(1)= ...
        Else
C           Initialisation de P(1) pour les 39 autres boucles
          P(1)= ...
        End If
C           Début de la boucle intérieure
        Do i=1,200
          P(i+1)=P(i)+ ...
C           Fin de la boucle intérieure
        End Do
C           Utilisation des résultats d'une boucle
          ...
C           Fin de la boucle extérieure
      End Do

Bonne chance
Jean-Marc Blanc

en fait, je dois calculer un signal qui se propage dans le sens positif (c la boucle i=1,200; cad 200 tranches, après je reprend la valeur en i=200 comme la valeur initiale pour k=2 et ainsi de suite, je fais tout ce calcul parce que vous savez un signal ne peut pas garder la même puissance suite aux atténuations et aux effets non linéaires, je reprend le m^me calcul mais avec des conditions initiales différentes jusqu'à la stabilisation, c'est toute mon idée...et merci pour votre réponse...