Discussion :

[parsy]

Bonjour,

J'ai des soucis pour afficher un nombre complexe sous forme polaire.Je m'explique: j'ai réalisé le premier exemple suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
use strict;
use Math::Complex;
 
my $z1=cplxe(1,pi/4);
 
print "z1=$z1\n";
 
$z1->display_format('style'=>'cartesian', 'format'=>'%.3f');
 
print "z1=$z1\n";

Les résultats sont corrects

Code :

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

1
2
z1=[1,pi/4]
z1=0.707+0.707i

Le deuxième exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use Math::Complex;
 
my $z1=cplx(1,1);
 
print "z1=$z1\n";
 
$z1->display_format('style'=>'polar');
print "z1=$z1\n";
 
$z1->display_format('style'=>'polar','polar_pretty_print'=>0);
print "z1=$z1\n";

Les résultats sont

Code :

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

1
2
3
z1=1+i
z1=[1.4142135623731,pi/4]
z1=[1.4142135623731,0.785398163397448]

Je souhaite maintenant limiter le nombre de décimales à 3, pour cela je rajoute 'format'=>'%.3f'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use Math::Complex;
 
my $z1=cplx(1,1);
print "z1=$z1\n";
 
$z1->display_format('style'=>'polar');
print "z1=$z1\n";
$z1->display_format('style'=>'polar','polar_pretty_print'=>0);
 
print "z1=$z1\n";
$z1->display_format('style'=>'polar','polar_pretty_print'=>0,'format'=>'%.3f');
 
print "z1=$z1\n";

Les résultats sont:

Code :

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

1
2
3
4
5
6
z1=1+i
z1=[1.4142135623731,pi/4]
z1=[1.4142135623731,0.785398163397448]
Use of uninitialized value in sprintf at C:/Perl/lib/Math/Complex.pm line 1463.
Use of uninitialized value in sprintf at C:/Perl/lib/Math/Complex.pm line 1463.
z1=[1.414,0.000]

Je n'obtiens pas

Code :

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

z1=[1.414,0.785]

Merci de m'aider

[Jedai]

C'est juste un bug de Math::Complex (étrange qu'il soit passé inaperçu dans un module du Core ?), il te suffit de modifier la 1463ème ligne de Math/Complex.pm : tu remplaçes ce bloc :

Code :

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

1
2
3
4
5
6
7
 
	if (defined $format) {
	    $r     = sprintf($format, $r);
	    $theta = sprintf($format, $theta) unless defined $theta;
	} else {
	    $theta = $t unless defined $theta;
	}

par celui-ci

Code :

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

1
2
3
4
5
6
7
 
	if (defined $format) {
	    $r     = sprintf($format, $r);
	    $theta = sprintf($format, $t) unless defined $theta; #modifiée
	} else {
	    $theta = $t unless defined $theta;
	}

Et y a plus de problème !!

(J'ai déjà envoyé un report de bug à l'auteur du module, inutile de lui envoyer un double)

--
Jedaï

[parsy]

Ca marche Nickel-chrome

Merci beaucoup