view release on metacpan or  search on metacpan

Change.log  view on Meta::CPAN

Change 2178 on 2001/04/11 by nick@dromedary

	Start of digital signal processing support

Change 1739 on 2000/03/11 by nick@bactrian

	Cleanup MANIFEST.SKIP for linux

Change 1738 on 2000/03/11 by nick@bactrian

	Backward compatibility fixes to 5.00404

Change 1737 on 2000/03/10 by nick@bactrian

	Add dTHX

Change 1479 on 1999/09/26 by nick@bactrian

	Remove debug

Change 1477 on 1999/09/25 by nick@bactrian

Data/t/poly.t  view on Meta::CPAN

print "#@roots\n";
is(scalar(@roots),10,"Solved");


while (@roots)
 {
  my $n = Math::Complex->new(splice(@roots,0,2));
  ok(abs($n**5-1) < 1.0e-6,"Fifth root");
 }

my @poly = (1,-3.17771244049072,3.9795618057251,-1.72559440135956,-0.857469737529755,0.766406536102295,0.816600441932678,-1.16691339015961,0.416294276714325);

@roots = solve_polynomial(@poly);
print "#@roots\n";
is(scalar(@roots),16,"Solved");

while (@roots)
 {
  my $n = Math::Complex->new(splice(@roots,0,2));
  my $v = poly_complex_eval($n,@poly);
  print "# $n => $v\n";