0votos

Raíces de un polinomio de grado 2 en Haskell

por josejuan hace 2 años

Se aplica directamente la fórmula.

Realiza un programa que calcule las raíces de un polinomio de grado 2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
poly2 :: Floating x ⇒ x → x → x → (x, x) 
poly2 a b c = (o + p, o - p)  
  where o = -b / (2 × a) 
        p = √(b² - 4 × a × c) / (2 × a) 
         
 
{- 
 
-- soluciones reales 
> poly2 6 (-9) 3 :: (Double, Double) 
(1.0,0.5) 
 
-- soluciones complejas 
> poly2 6   9  3 :: (Complex Double, Complex Double) 
((-0.5) :+ 0.0,(-1.0) :+ (-0.0)) 
 
-} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.