Discussion :

[dchibout]

J'ai programmé une suite de choc et de détente mais je trouve pas l'erreur que j'ai commise !
Voilà ce que j'ai fait.

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
  case(8) ! 1 choc à droite, puis 1 choc à gauche, puis 1 détente à gauche, puis 1 détente centrée,
             !et enfin une détente à droite pour revenir à la valeur de départ
 
        if (x(i)<1/6_8)  then
           u(i)=5
           if (x(i)<2/6_8)  then
              u(i)=2
              if (x(i)<3/6_8)  then
                 u(i)=-3
                 if (x(i)<4/6_8)  then
                    u(i)=-1
                    if (x(i)<5/6_8)  then
                       u(i)=4
                    else
                       u(i)=5
                    end if
                 end if
              end if
           end if
        end if

Aidez moi svp

[Sylvain Bergeron]

Je crois que quand tu écris 1/6_8, tu veux la fraction 1/6 en double précision. Est-ce bien ça ?

Le problème, c'est que 6_8, c'est un entier (6) en kind 8, soit un entier 64 bits, et non un réel 64 bits. De là, tu fais 1/6, soit une division d'entiers, qui donne un entier, donc 0.

Si tu veux 1/6 en double précision, tu dois faire 1/6.0_8 où 6.0_8 sera interprété comme un réel kind 8, soit un double précision, et 1 entier divisé par 6 en double précision donnera bien 0.1666666666666667_8. Tu pourrais aussi faire 1.0_8/6 qui fonctionnerait aussi.

[dchibout]

Merci pour votre réponse