0votos

Ecuación de la recta en Haskell

por josejuan hace 2 años

Otra

Realizar un programa que dado dos puntos en el eje de coordenadas encuentre la ecuación general de la recta y de como respuesta por ejemplo: la ecuación de la recta que pasa por los puntos: (3, -6) (-4, 4) es: 10x +7y +12 = 0

1
2
3
4
5
6
-- Dados dos puntos distintos calcula: A x + B y = C 
recta :: (Eq a, Fractional a) ⇒ (a, a) → (a, a) → 𝐌 (a, a, a) 
recta a@(ax, ay) b@(bx, by) | a  ≡ b    = 𝑁  
                            | ax ≡ bx   = 𝐽 (1, 0, ax) 
                            | otherwise = 𝐽 (-d, 1, ay - ax × d) 
                                          where d = (ay - by) / (ax - bx) 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.