Acceso al documento en PDF - Biblioteca Nacional de Maestros

entonces
InsU (Elem (i-t-1, ListEnt), ListCasco)
sino
InsU (Elem (i+2, ListEnt), ListCasco)
Mientras Car (ListCasco) > 2 n (lll)
(pend (Ejem (Car (ListCasca), ListCasco),
Elem (Car (ListCasco)-2, ListCasco))
pend (Elem (Car (ListCasco), ListCasco),
Elem (Car (ListCasco)-1, ListCasco)))
hace
Eliminar (Car (List.Casco)-1, ListCasco)
I n c ( i )
Insu(Punto,Lista) : Inserta el punto P unto al final de la lista Lista.
Elem(i,Uslcr) : Devuelve el punto ubicado en la posición i en la 1ista Lista,
Car(Lista) : Devuelve: la cardinalidad de la lista Lista.
Eliminar(i,Lista): Elimina el punto ubicado en la posición i en la lista Lista.
:
Pend(xl;y1 ,x2y2) : Devuelve la pendiente de la recta detcrminada por los puntos (x1 ,yl)y (x2,y2),
El primer paso del algoritmo (I) es insertar el primer punto de la lista de entrada ( C1) en la lista
resultado: ListCasco.
LA primera iteración (II),consiste en recorrer ListEnt y formar ternas de puntos
(A,B,C) para con ellos comparar las pendientes de los segmentos AB y AC, incluyendo B en la lista
resultado si AB tiene mayor pendiente que AC, caso contrario C es insertado en la lista.
Luego, en la segunda iteración (III) se toman los tres últimos puntos de la lista resultado (A, B, C) y se
comparan las pendientes de los segmentos CA y CB, eliminando B si la pendiente de CA es mayor
que la de CB.
Algoritmo para la obtención de la base convexa
Este es análogo al anterior, la diferencia radica en que la comparación de pendientes se realiza por
menor (