1votos

Rectas perpendiculares en Haskell

por josejuan hace 2 años

.

Hallar la ecuación de una recta perpendicular a otra recta dada

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
perpendicular :: Num a ⇒ Recta a → Punto a → Recta a 
perpendicular (Recta dx dy _) (Punto x y) = Recta dy (-dx) (dy × x - dx × y) 
 
 
-- Rectas en la forma: a X + b Y = c 
data Recta a = Recta a a a 
instance Show a ⇒ Show (Recta a) where 
    show (Recta dx dy k) = show dx ⧺ " · x + " ⧺ show dy ⧺ " · y = " ⧺ show k 
data Punto a = Punto a a 
 
{- 
 
-- por ejemplo 
 
> perpendicular (Recta 1 2 (-3)) (Punto 3 5) 
2 · x + -1 · y = 1 
 
> perpendicular (Recta 1 1 0) (Punto 2 0) 
1 · x + -1 · y = 2 
 
-} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.