<html><body><div id="signature-container" style="background-color: #ffffff; font-size: 12px; font-family: verdana; color: #000000;">Desole pour le bruit,</div>
<div style="background-color: #ffffff; font-size: 12px; font-family: verdana; color: #000000;"> </div>
<div style="background-color: #ffffff; font-size: 12px; font-family: verdana; color: #000000;">J'ai resolu le probleme en enlevant </div>
<div style="background-color: #ffffff; font-size: 12px; font-family: verdana; color: #000000;">use Math::Complex ;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;"> </div>
<div id="sub-body-container" style="margin: 10px 5px 5px 10px; padding: 10px 0px 10px 10px; border-left: 2px solid rgb(195, 217, 229);">
<div style="margin: 0px 0px 10px;">
<div><strong>Sent: </strong>Wednesday, October 21, 2026 at 10:46 PM</div>
<div><strong>From: </strong>"Patrick Dupre" <pdupre@gmx.com></div>
<div><strong>To: </strong>perl@mongueurs.net</div>
<div><strong>Subject: </strong>[Perl] Can't call Math::BigFloat->_cartesian(), not a valid method</div>
</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">Bonsoir, <br><br></div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">Avec ce code j'ai</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">Can't call Math::BigFloat->_cartesian(), not a valid method at /usr/share/perl5/Math/Complex.pm line 739</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">Est-ce que vous voyez une raison ?</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">Merci.</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;"> </div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;"> </div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">#!/usr/bin/perl -w</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">use strict ; <br>use warnings ; <br>use Math::Complex ; <br>use bignum ;</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;"> </div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">my @tab = ( <br> 189793243.027, <br> 189793243.077, <br> 189793243.127, <br> 189793243.177, <br> 189793243.227, <br> 189793243.277, <br> 189793243.327, <br> 189793243.377, <br> 189793243.427, <br> 189793247.027) ;</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">my $length = scalar (@tab) ;</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">my $sum = 0 ; <br>my $sum2 = 0 ;</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">foreach my $x (@tab) { <br> $sum += $x ; <br> $sum2 += $x * $x ; <br> }</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;"> </div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">my ($ave, $ave2, $sqr_ave, $var) ; <br>$ave = $sum / $length ; <br>$ave2 = $ave * $ave ; <br>$sqr_ave = $sum2 / $length ; <br>$var = $sqr_ave - $ave2 ;</div>
<div style="font-family: verdana; font-size: 12.0px; color: #000000;">if ($var > 0) { <br> print "A\n" ; <br> my $std = sqrt ($var) ; <br> # print "$ave, $ave2, $sqr_ave, $std\n" ; <br> } <br>else { <br> print "Issue with variance: $var\n" ; <br> }</div>
</div>
<div style="background-color: #ffffff; font-size: 12.0px; font-family: verdana; color: #000000;">=========================================================================== <br>Patrick DUPRÉ | | email: pdupre@gmx.com <br>===========================================================================</div>
_______________________________________________ Perl mailing list Perl@mongueurs.net http://listes.mongueurs.net/mailman/listinfo/perl Attention, les archives sont publiques</div></body></html>