CURSO
DOCENTE
ALUMNO
INTELIGENCIA ARTIFICIAL
Ing. Freddy Toribio HUAYTA MEZA
QUISPE QUICHCA, Edgar J
SEMESTRE
2014-I
CICLO
VII P A M P A S - 20 20 1 4
UNIVERSIDAD NACIONAL DE HUANCAVELICA (Creada por Ley N º 25265) FACULTAD DE INGENIERÍA ELECTRÓNICA - SISTEMAS ESCUELA ACADÉMICO PROFESIONAL DE SISTEMAS
progenitor(estela,demetrio). progenitor(silverio,denetrio). progenitor(victoria,apolinaria). progenitor(silvestre,apolinaria). progenitor(apolinaria,edgar). progenitor(demetrio,edgar). progenitor(apolinaria,hermelinda). progenitor(demetrio,hermelinda). progenitor(apolinaria,hector). progenitor(demetrio,hector). progenitor(hermelinda,gael). varon(silvestre). varon(silvestre). varon(silverio). varon(silverio). varon(demetrio). varon(demetrio). varon(edgar).
Inteligencia Artificial
bisabuela(X,Y) bisabuela(X,Y) :-madre(X,Z),abuelo(Z,Y). :-madre(X,Z),abuelo(Z,Y). bisabuela(X,Y) bisabuela(X,Y) :-madre(X,Z),abuela(Z,Y). :-madre(X,Z),abuela(Z,Y). bisabuelo(X,Y) bisabuelo(X,Y) :-padre(X,Z),abuelo(Z,Y). :-padre(X,Z),abuelo(Z,Y). bisabuelo(X,Y) bisabuelo(X,Y) :-padre(X,Z),abuela(Z,Y). :-padre(X,Z),abuela(Z,Y). nieto(X,Y) :- progenitor(Y,Z),progenitor(Z,X progenitor(Y,Z),progenitor(Z,X),varon(X). ),varon(X). nieto(X,Y) :- abuelo(Y,X),varon(X). abuelo(Y,X),varon(X). nieto(X,Y) :- abuela(Y,X),varon(X). abuela(Y,X),varon(X). bisnieto(X,Y) bisnieto(X,Y) :- bisabuelo(Y,X),varon(X). bisabuelo(Y,X),varon(X). bisnieto(X,Y) bisnieto(X,Y) :- bisabuela(Y,X),varon(X). bisabuela(Y,X),varon(X). bisnieta(X,Y) bisnieta(X,Y) :- bisabuelo(Y,X),mujer(X). bisabuelo(Y,X),mujer(X). bisnieta(X,Y) bisnieta(X,Y) :- bisabuela(Y,X),mujer(X). bisabuela(Y,X),mujer(X). tio(X,Y) :- hermanos(X,Z),antepasado(Z,Y hermanos(X,Z),antepasado(Z,Y),varon(X). ),varon(X).
Página 2
UNIVERSIDAD NACIONAL DE HUANCAVELICA (Creada por Ley N º 25265) FACULTAD DE INGENIERÍA ELECTRÓNICA - SISTEMAS ESCUELA ACADÉMICO PROFESIONAL DE SISTEMAS
varon(hector). varon(gael). mujer(victoria). mujer(estela). mujer(apolinaria). mujer(hermelinda). padre(X,Y) :- progenitor(X,Y),varon(X). progenitor(X,Y),varon(X). madre(X,Y) :- progenitor(X,Y),mujer(X). progenitor(X,Y),mujer(X). hijo(X,Y) :- progenitor(Y,X),varon(X). progenitor(Y,X),varon(X). hija(X,Y) :- progenitor(Y,X),mujer(X). progenitor(Y,X),mujer(X).
tio(X,Y) :- primohermano(X,Z),antepas primohermano(X,Z),antepasado(Z,Y),varon(X). ado(Z,Y),varon(X). tia(X,Y) :- hermanos(X,Z),antepasado(Z,Y hermanos(X,Z),antepasado(Z,Y),mujer(X). ),mujer(X). tia(X,Y) :- primahermana(X,Z),antepas primahermana(X,Z),antepasado(Z,Y),mujer(X ado(Z,Y),mujer(X). ). tioabuelo(X,Y) tioabuelo(X,Y) :-hermanos(X,Z),abuelo(Z,Y),v :-hermanos(X,Z),abuelo(Z,Y),varon(X). aron(X). tiaabuela(X,Y) tiaabuela(X,Y) :-hermanos(X,Z),abuela(Z,Y),m :-hermanos(X,Z),abuela(Z,Y),mujer(X). ujer(X). sobrino(X,Y) sobrino(X,Y) :- tio(Y,X),varon(X). sobrino(X,Y) sobrino(X,Y) :- tia(Y,X),varon(X). sobrina(X,Y) sobrina(X,Y) :- tio(Y,X),mujer(X). sobrina(X,Y) sobrina(X,Y) :- tia(Y,X),mujer(X). tia(Y,X),mujer(X).
abuelo(X,Y) :- padre(X,Z),progenitor(Z,Y). padre(X,Z),progenitor(Z,Y). abuela(X,Y) :- madre(X,Z),progenitor(Z,Y). madre(X,Z),progenitor(Z,Y).
Inteligencia Artificial
Página 3