Math :: Cephes :: Polynomial

Math :: Cephes :: Polynomial ist eine Perl-Schnittstelle zu den routinen der Cephes Mathe Polynom.
Jetzt downloaden

Math :: Cephes :: Polynomial Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Randy Kobes
  • Website des Verlags:
  • http://search.cpan.org/~rkobes/

Math :: Cephes :: Polynomial Stichworte


Math :: Cephes :: Polynomial Beschreibung

Math :: Cephes :: Polynomiale ist eine Perl-Schnittstelle zu den Cephes-Math-Polynomroutinen. Math :: Cephes :: Polynom ist eine Perl-Schnittstelle zu den Cephes-Math-Polynomroutinen.Synopsis Verwenden Sie Mathe :: Cephes :: Polynomial QW (Poly); # 'poly' ist eine Verknüpfung für Math :: Cephes :: Polynomial-> Neue Erforderliche Math :: Cephes :: Fraktion; # Wenn Koeffizienten Fraktionen sind, erfordern Math :: Cephes :: Komplex; # Wenn Koeffizienten komplex sind, meine $ A = Poly (); # A (x) = 1 + 2x + 3x ^ 2 My $ B = Poly (; # B (x) = 4 + 5x + 6x ^ 2 + 7x ^ 3 My $ c = $ a-> add ($ b); # C (x) = 5 + 7x + 9x ^ 2 + 7x ^ 3 My $ cc = $ c-> coEF; für (mein $ i = 0; $ ieval ($ x) ); drucken "bei x = $ x, c (x) ist $ rn"; mein $ U1 = math :: cephes :: komplex-> neu (2,1); mein $ u2 = math :: cephes :: komplex -> NEU (1, -3); mein $ v1 = math :: cephes :: complex-> neu (1,3); mein $ v2 = math :: cephes :: komplex-> neu (2,4); mein $ z1 = math :: cephes :: polynomial-> neu (); mein $ z2 = math :: cephes :: polynomial-> neu (); mein $ Z3 = $ Z1-> Hinzufügen ($ Z2); mein $ z3c = $ z3-> cofer; für (mein $ i = 0; $ ieval ($ x); drucken "bei x = $ x, z3 (x) hat real = ", $ r-> r" und imag = ", $ r-> ich," n "; mein $ a1 = math :: cephes :: fraktion-> neu (1,2); mein $ a2 = Math :: cephes :: fraktion-> neu (2,1); mein $ b1 = math :: cephes :: fraktion-> neu (1,2); mein $ b2 = math :: cephes :: fraktion-> neu (2,2); mein $ f1 = math :: cephes :: polynomial-> neu (); mein $ f2 = math :: cephes :: polynomial-> neu (); My $ F3 = $ F1-> Hinzufügen ($ F2); My $ F3C = $ F3-> Coef; für (mein $ i = 0; $ ieval ($ x); drucken "bei x = $ x , f3 (x) hat num = ", $ r- > n, "und den =", $ r-> d, "n"; $ r = $ F3-> EVAL ($ A1); drucken "at x =", $ A1-> n, "/", $ A1-> D, ", F3 (X) hat Num =", $ r-> n, "und den =", $ r-> d, "n"; Anforderungen: · Perl Anforderungen: · Perl.


Math :: Cephes :: Polynomial Zugehörige Software

Über uns