[Nombre Complexe]affichage formatte

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:

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:

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

Le deuxième exemple

Code:

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:

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:

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:

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:

z1=[1.414,0.785]

Merci de m'aider

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:

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:

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 !! :D

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

--
Jedaï

[Nombre Complexe]affichage formatte

Ca marche Nickel-chrome

Merci beaucoup

:D :lol: :D :lol: :D :lol: