Discussion :

[Ickou]

je cherche à avoir toutes les valeurs entre -1 et 1 avec une incrémentation de 0.01 ........
mais à 0.44 perl perd la tête

Code :

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

1
2
3
4
 
 for ($ii=1; $ii>=(-1); $ii=$ii-0.01){
  print "$ii\n";
 }

De même dans l'autre sens

Code :

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

1
2
3
 
 for ($ii=-1; $ii<=1; $ii=$ii+0.01){
  print "$ii\n";

Comment dois je faire ???

[GLDavid]

Comment ça "perd la tête" ?
Peux-tu préciser l'erreur ?

@++

[GLDavid]

Petit problème de formatage de print sans doute. Ce code fonctionne :

Code :

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

1
2
3
4
5
6
7
8
 
#!/usr/bin/perl
 
$ii=1;
while($ii>=-1){
  printf "%.2f\n",$ii;
  $ii=$ii-0.01;
 }

@++

[Ickou]

tu as essayé d'excuter le code ???

moi il donne ça :
1
0.99
0.98
0.97
0.96
etc ...
0.47
0.46
0.45
0.44
0.429999999999999999
0.419999999999999999 et après ça empire !!!!!!

pourquoi il marque pas ça :
0.43
0.42
etc....

Je comprend pas pourquoi ça fait ça !!!!
si tu vois pas ce que je veux dire, exécute le code et tu verras......

Comment écrire le truc pour que ça marche ??

[Ickou]

ton code marche pour écrire à l'écran mais si je veux utiliser la variable $ii pour faire des calculs....
deplus ça affiche pas le "-1"....

on peut pas incrementer de 0.01 en perl sans qu'il fasse des erreurs :

[2Eurocents]

tu as essayé d'excuter le code ???

moi il donne ça :
1
0.99
0.98
0.97
0.96
etc ...
0.47
0.46
0.45
0.44
0.429999999999999999
0.419999999999999999 et après ça empire !!!!!!

pourquoi il marque pas ça :
0.43
0.42
etc....

Je comprend pas pourquoi ça fait ça !!!!
si tu vois pas ce que je veux dire, exécute le code et tu verras......

Comment écrire le truc pour que ça marche ??

Ce type de fonctionnement est tout à fait normal et inévitable.

C'est dû au format utilisé pour stocker les nombres flottants, en binaire.

0.01 ne doit pas être codable exactement, et c'est plus probablement un incrément de 0.0099999999 qui est employé, ou un truc du genre ... et finalement, au bout d'un moment, ça dérive.

C'est pourquoi il est préférable d'utiliser un affichage formaté, limité aux décimales nécessaires.

C'est ce qui impose, en analyse numérique, de ne pas tester une égalité à un nombre flottant, mais plutôt l'écart à ce nombre (qui doit être inférieur à un epsilon donné).


Dans ton cas, plusieurs solutions sont possibles :

1- Si les valeurs sont suffisamment correctes, à l'arrondi prêt, utiliser un printf pour les arrondir et avoir un affichage correct (masquer le problème, plutot que de le traiter)

2- Traiter le problème dans un intervalle entier, et diviser ensuite la variable pour avoir la variation flottante voulue ($ii de -100 à 100, pas de 1, et division par 100 avant l'affichage)

3- Utiliser des packages du CPAN destinés aux traitements mathématiques ... je ne sais plus lesquels, mais il y en a ...

D'autres solutions, encore, sont certainement envisageables.

[2Eurocents]

ton code marche pour écrire à l'écran mais si je veux utiliser la variable $ii pour faire des calculs....
deplus ça affiche pas le "-1"....

on peut pas incrementer de 0.01 en perl sans qu'il fasse des erreurs :

Plutot que d'écrire à l'écran, tu peux aussi écrire dans une variable, au moyen de "sprintf"

Code :

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

1
2
$iii = sprintf ("%.2f",$ii); 
print "$iii\n";

[Ickou]

merci beaucoup

j'ai finalement choisi la solution 2 que tu me proposais
càd:

Code :

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

1
2
3
4
5
 
 for ($ii=-100; $ii<=100; $ii++){
 $nx=$ii/100;
  print "$nx\n";
 }

je suis quand même un peu deçu de savoir que perl peut "bugger" sur certain truc ....

mais bon, c'est super je vais pouvoir grace à vous continuer mon programme sans qu'il y ait des erreurs

merci

[GLDavid]

Ickou, as-tu essayé mon code ? Car c'est exactement ce que te suggère 2Eurocents.

@++

[Ickou]

oui j'ai essayé ton code, il marche.... merci
mais il ne faut pas oublier de faire le printf dans une nouvelle variable car l'erreur persiste dans la variable initiale.

Le seul problème avec cette méthode, c'est qu'on va perdre la dernière valeur (-1) car le test est :

Code :

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

1
2
 
while($ii>=-1)

or le -1 est en fait -1.0000001 donc passe pas le test....

C'est pour cela que je préfère utiliser la méthode 2 de 2Eurocents, elle me semble plus "propre".

je te remercie pour ton aide

[2Eurocents]

je suis quand même un peu deçu de savoir que perl peut "bugger" sur certain truc ....

Attention, ce n'est pas spécifique à Perl.

Cela arrive dans de nombreux langages !

C'est intrinsèque au codage des nombres en flottant. Ce problème survient plus ou moins vite selon le codage retenu (32 bits, 64 bits, 80 bits ...) ou ne survient pas du tout si l'on utilise des bibliothèques spécifiques : "précision arbitraire", ou bien "sans perte de précision", mais les calculs sont alors beaucoup plus lents.

Sinon, dans le genre "expérience", je te recommande de tenter d'extraire la racine carrée d'une variable, puis la racine de celle-ci, etc. puis après de ré-élever au carré jusqu'à obtenir le nombre d'origine.

En général, au bout de 5 ou 6 séries d'extractions/élévations, ça commence à diverger (et tous les langages sont touchés à différent titres !)

[2Eurocents]

Ickou, as-tu essayé mon code ? Car c'est exactement ce que te suggère 2Eurocents.

@++

C'était, mais ce ne l'est plus depuis que j'ai corrigé ma faute de frappe et remplacé printf par sprintf (je rappelle que printf retourne le nombre de "formattages" réussis, et pas la chaine sortie, contrairement à sprintf).