PROGRAMACIÓN
PROGRAMACIÓN
ARBOL
GENEALOGICO
PROLOG
GRUPO
1
INTEGRANTES
ALFARO BORJAS JONATAN
READ MORE
PROPIEDADES
hombre(james).
hombre(arquimedes).
hombre(tito).
hombre(carlos).
hombre(toño).
hombre(renato).
hombre(sebastián).
hombre(manuel).
hombre(mateo).
mujer(carmen).
mujer(pili).
mujer(alina).
mujer(lili).
mujer(jessica).
mujer(marian).
mujer(nadia).
mujer(rafaela).
progenitor(carmen,james).
progenitor(arquimedes,james).
progenitor(carmen,tito).
RELACIONES DIRECTAS
progenitor(arquimedes,tito).
progenitor(carmen,lily).
progenitor(arquimedes,lily).
progenitor(carmen,jessica).
progenitor(arquimedes,jessica).
progenitor(james,sebastian).
progenitor(james,renato).
progenitor(pili,sebastian).
progenitor(pili,renato).
progenitor(tito,manuel).
progenitor(alina,manuel).
progenitor(lily,nadia).
progenitor(lily,marian).
progenitor(carlos,marian).
progenitor(carlos,nadia).
progenitor(toño,mateo).
progenitor(toño,rafaela).
progenitor(jessica,mateo).
progenitor(jessica,rafaela).
RELACIONES DIRECTAS
pareja(arquimedes,carmen).
pareja(carmen,arquimedes).
pareja(james,pili).
pareja(pili,james).
pareja(tito,alina).
pareja(alina,tito).
pareja(lily,carlos).
pareja(carlos,lily).
pareja(jessica,toño).
pareja(toño,jessica).
REGLAS
padre(X,Y):-hombre(X),progenitor(X,Y).
madre(X,Y):-mujer(X),progenitor(X,Y).
hermanos(X,Y):-progenitor(Z,X),progenitor(Z,Y), not(X=Y).
hermano(X,Y):-hermanos(X,Y),hombre(X).
hermana(X,Y):-hermanos(X,Y),mujer(X).
esposo(X,Y):-pareja(X,Y),hombre(X).
esposa(X,Y):-pareja(X,Y),mujer(X).
suegro(X,Y):-padre(X,Z),pareja(Y,Z).
suegra(X,Y):-madre(X,Z),pareja(Y,Z).
REGLAS
yerno(X,Y):-suegro(Y,X);suegra(Y,X),hombre(X).
nuera(X,Y):-suegro(Y,X);suegra(Y,X),mujer(X).
cuñados(X,Y):-((pareja(X,Z),hermanos(Z,Y));
(pareja(Y,Z),hermanos(Z,X))).
cuñado(X,Y):-cuñados(X,Y),hombre(X).
cuñada(X,Y):-cuñados(X,Y),mujer(X).
abuelo(X,Y):-progenitor(Z,Y),padre(X,Z).
abuela(X,Y):-progenitor(Z,Y),madre(X,Z).
REGLAS
PRIMO
NIETO TÍO
primo (X,Y): progenitor(Z,X),
nieto(X,Y): progenitor(Y,Z), tío (X,Y): progenitor(Z,Y),
progenitor (W,Y),
progenitor(Z,X), (hermano (X,Z);
hermanos (Z,W),
hombre(X). cuñado (X,Z)).
hombre (X).
PRIMA
NIETA TÍA
prima (X,Y): progenitor(Z,X),
nieta(X,Y): progenitor(Y,Z), tía (X,Y): progenitor(Z,Y),
progenitor (W,Y),
progenitor(Z,X), (hermana (X,Z);
hermanos (Z,W),
mujer(X). cuñada (X,Z)).
mujer (X).
THANK YOU
GRUPO 1