Le calcul de boucles

Version imprimable

03/12/2007, 15h45
driss80

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

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..

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:

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.;-)

Citation:
Envoyé par 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:

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....

06/12/2007, 14h56
driss80

Citation:

Envoyé par 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...

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:

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

Citation:
Envoyé par 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:

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...

15/12/2007, 19h44
FR119492

Salut !

Ton dernier message me laisse croire que tu essaies d'intégrer l'équation des télégraphistes en régime transitoire. Est-ce bien ça?

Jean-Marc Blanc
17/12/2007, 12h39
driss80

Citation:

Envoyé par FR119492

Salut !

Ton dernier message me laisse croire que tu essaies d'intégrer l'équation des télégraphistes en régime transitoire. Est-ce bien ça?

Jean-Marc Blanc

salut,
je comprend pas, c'est quoi l'équation des télégraphistes??,
17/12/2007, 14h48
FR119492

Salut !

On cherche à se débrouiller soi-même avant d'appeller au secours!

fr.wikipedia.org/wiki/Propagation_des_ondes

Jean-Marc Blanc
17/12/2007, 17h19
driss80

Citation:

Envoyé par FR119492

Salut !

On cherche à se débrouiller soi-même avant d'appeller au secours!

fr.wikipedia.org/wiki/Propagation_des_ondes

Jean-Marc Blanc

salut,
non mon équation n'est pas celle là, en fait c'est de la puissance laser que je parle....Ps+ et Ps- dans les deux sens...c'est pourquoi jai besoin de calculer la boucle plusieurs fois afin d'atteindre un certain équilibre à la fin....en fait, Ps+ part avec une valeur plus grande que celle de Ps- et c'est juste pour démarer le calcul numérique....merci
21/12/2007, 22h39
FR119492
Salut !

En relisant cette discussion, j'observe que tu commets un erreur de méthodologie extrèmement fréquente, sur ces forums comme ailleurs: tu ne commences pas par le commencement. Je crois donc faire oeuvre utile de montrer ici comment tu aurais dû poser ton problème (ne t'offusque pas, tu n'es pas pire que la plupart des autres, mais je prends seulement ton cas comme exemple).

Tu dois calculer le comportement d'un "machin"; dans ton cas, c'est un laser, mais ça pourrait être n'importe quoi: un réseau à haute tension, une turbine hydraulique, l'évolution de populations, etc.. En passant, ta question aurait eu sa place plutôt dans le forum "Algo", car elle ne concerne pas spécifiquement le Fortran et elle aurait été la même si tu avais programmé en C ou utilisé MatLab.

La marche à suivre est la suivante:
1. Formuler mathématiquement les lois générales qui régissent le phénomène étudié: équations de Maxwell, équation de Navier-Stokes, loi de la gravitation, lois de Kirchhoff, etc., sans hypothèse simplificatrice aucune.
2. Décrire, le plus exactement possible, la géométrie de ton "machin", sans hypothèse simplificatrice aucune.
3. Indiquer les caractéristiques des milieux qui constituent ton "machin", sans hypothèse simplificatrice aucune.
4. Réfléchir aux hypothèses simplificatrices que tu penses pouvoir faire, les formuler explicitement en les justifiant une à une.
5. En utilisant ce que tu as fait dans ces 4 premiers pas, formuler mathématiquement les lois qui régissent le comportement de ton "machin"; cette formulation est souvent sous la forme d'équations différentielles ordinaires avec conditions initiales ou d'équations aux dérivées partielles avec conditions aux limites, mais d'autres formes sont aussi possibles.
6. A ce stade, mais pas avant, choisir les algorithmes les mieux adaptés à ton problème.
7. Une fois les algorithmes choisis, choisir le langage de programmation le mieux adapté à l'application de tes algorithmes.
8. Enfin, et seulement lorsque tous les points précédents sont achevés, écrire et tester le programme.
Tu constateras sans peine que ta question concerne le point 8 de la marche à suivre. Au vu des difficultés que tu rencontres, il est évident qu'elles proviennent de maladresses que tu as commises (tout le monde en commet!) lors des étapes antérieures. mais, comme nous ignorons tout de ce que tu as fait dans les 7 premières étapes, il nous est très difficile de t'aider. J'attends donc que que tu nous dises tout, depuis le début, et nous le résoudrons, ton problème, ou plutôt nous t'indiquerons comment le résoudre.

Bonne chance et à bientôt j'espère.
Jean-Marc Blanc

PS. J'espère que d'autres liront aussi mon message et en prendront de la graine.