<html><body><div style="font-family: 'verdana'; font-size: 12px; color: #000;">Bonsoir,<br><br></div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">Avec ce code j'ai</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">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: 12px; color: #000;">Est-ce que vous voyez une raison ?</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">Merci.</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;"> </div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;"> </div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">#!/usr/bin/perl -w</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">use strict ;<br>use warnings ;<br>use Math::Complex ;<br>use bignum ;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;"> </div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">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: 12px; color: #000;">my $length = scalar (@tab) ;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">my $sum = 0 ;<br>my $sum2 = 0 ;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">foreach my $x (@tab) {<br> $sum += $x ;<br> $sum2 += $x * $x ;<br> }</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;"> </div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">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: 12px; color: #000;">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 id="signature-container" style="background-color: #ffffff; font-size: 12px; font-family: verdana; color: #000000;">===========================================================================<br>Patrick DUPRÉ | | email: pdupre@gmx.com<br>===========================================================================</div></body></html>