Matemática :: Cefes :: Polinomial Matemática :: Cefes :: Polinomial é uma interface Perl para as rotinas polinomiais de matemática cfos.
Baixe Agora

Matemática :: Cefes :: Polinomial Classificação e resumo

Matemática :: Cefes :: Polinomial Tag

matemática Interface Perl. cfos. cefes matemática Rotinas polinômicas

Matemática :: Cefes :: Polinomial Descrição

Matemática :: Cefes :: Polinomial é uma interface Perl para as rotinas polinomiais de matemática cfos. Matemática :: Cefes :: Polinomial é uma interface perl para as rotinas polinomiais matemáticas de cfos.synopsis Use matemática :: Cefes :: QW polinomial (poly); # 'poly' é um atalho para matemática :: Cefes :: Polinomial-> Novo Requer Matemática :: Cefes :: Fracção; # Se os coeficientes são frações exigir matemática :: Cefes :: Complexo; # Se os coeficientes são complexos, meu $ a = poli (); # a (x) = 1 + 2x + 3x ^ 2 my $ b = poly (; # B (x) = 4 + 5x + 6x ^ 2 + 7x ^ 3 my $ c = $ a-> Adicionar ($ B); # C (x) = 5 + 7x + 9x ^ 2 + 7x ^ 3 Meu $ cc = $ c-> coob; para (meu $ i = 0; $ ieval ($ x ); Imprimir "em x = $ x, c (x) é $ rn"; meu $ u1 = matemática :: cfhes :: complexo-> Novo (2,1); meu $ u2 = matemática :: cfos :: complexo -> Novo (1, -3); Minha $ v1 = Matemática :: Cefes :: Complex-> Novo (1,3); Minha $ v2 = Matemática :: Cefes :: Complex-> Novo (2,4); Meu $ Z1 = Matemática :: Cefes :: Polinomial-> Novo (); Minha $ Z2 = Matemática :: Cefes :: Polinomial-> Novo (); Minha $ z3 = $ z1-> Adicionar ($ Z2); Meu $ Z3C = $ Z3-> COEF; para (meu $ i = 0; $ ieval ($ x); imprimir "em x = $ x, z3 (x) real = ", $ r-> r-> r," e imag = ", $ r-> i," n "; meu $ a1 = matemática :: cfos :: fraction-> novo (1,2); meu $ A2 = Matemática :: Cefes :: Fraction-> Novo (2,1); Meu $ B1 = Matemática :: Cefes :: Fraction-> Novo (1,2); Minha $ B2 = Matemática :: Cefes :: Fraction-> Novo (2,2); Meu $ F1 = Matemática :: Cefes :: Polinomial-> Novo (); Minha $ F2 = Matemática :: Cefes :: Polinomial-> Novo ($ B1, $ B1 b2]); meu $ f3 = $ f1-> adicionar ($ f2); meu $ f3c = $ f3-> coif; para (meus $ i = 0; $ ieval ($ x); imprimir "em x = $ x , F3 (x) tem num = ", $ r- > n, "e den =", $ r-> d, "n"; $ r = $ f3-> eval ($ a1); Imprimir "em x =", $ a1-> n, "/", $ a1-> d, ", f3 (x) tem num =", $ r-> n, "e den =", $ r-> D, "N"; Requisitos: · Requisitos de Perl: · Perl.

Matemática :: Cefes :: Polinomial Software Relacionado