Adriana
ESCUELA SUPERIOR DE CÓMPUTO
ASIGNATURA:
INTELIGENCIA ARTIFICIAL
PROFESOR:
MACARIO HERNANDEZ CRUZ
EQUIPO:
HERNANDEZ SANCHEZ ABIGAIN ELISA
MORALES MACEDA ADRIANA
GRUPO:
6CM8
PRACTICA 5:JPL(Prolog desde Java)
frame(ser_vivo, _, propiedades([]),nombre_vulgar(ser_vivo),imagen('ser_vivo.jpg')).frame(animal,subclase(ser_vivo),propiedades([puede(sentir), puede(respirar), puede(moverse)]),nombre_vulgar(animal),imagen('animal.jpg')).
frame(mamalia,subclase(animal),propiedades([puede(mamar)]),nombre_vulgar(mamiferos),imagen('mamalia.jpg')).
frame(monotremas,subclase(mamalia),propiedades([tiene(un_orificio),nace(de_huevo)]),nombre_vulgar(mamifero_oviparo),imagen('monotremas.jpg')).
frame(ornithorhynchus_anatinus,subclase(monotremas),propiedades([vive_en(australia),puede(escarbar),tiene(pico_en_forma_de_paleta),come(plantas_submarinas)]),nombre_vulgar(ornitorrinco),imagen('ornito.jpg')).
frame(metatheria ,subclase(mamalia),propiedades([nace(muy_rapido)]),nombre_vulgar(marsupiales),imagen('marsupiales.jpg')).
frame(microbiotheria,subclase(metatheria),propiedades([vive_en(chile),tiene(cola_grande),come(insectos)]),nombre_vulgar(monito_de_monte),imagen('monito_de_monte.jpg')).
frame(phalanderidae ,subclase(metatheria),propiedades([vive_en(oceania),come(plantas),tiene(menos_dientes),puede(saltar_mucho)]),nombre_vulgar(canguro),imagen('canguro.jpg')).
frame(eutheria ,subclase(mamalia),propiedades([nace(lento),tiene(orificio_optico_separador)]),nombre_vulgar(mamiferos_placentarios),imagen('mam_place.jpg')).
frame(talpidae,subclase(eutheria),propiedades([vive_en(norteamerica),puede(cavar),come(carne),tiene(madrigueras)]),nombre_vulgar(topo),imagen('topo.jpg')).
frame(ursidae ,subclase(eutheria),propiedades([tiene(garras),come(pescado),come(miel),puede(atacar), vive_en(canada)]),nombre_vulgar(oso),imagen('oso.jpg')).
frame(canidae,subclase(eutheria),propiedades([come(carne),vive_en(mundo),puede(ser_mascota),tiene(colmillos)]),nombre_vulgar(caninos_perros),imagen('perro.jpg')).
frame(pantherinae ,subclase(eutheria),propiedades([come(carne),puede(agresivo),tiene(colmillos),tiene(garras)]),nombre_vulgar(felinos),imagen('felino.jpg')).
frame(panthera_leo ,subclase(pantherinae),propiedades([vive_en(la_sabana),tiene(melena)]),nombre_vulgar(leon),imagen('leon.jpg')).
frame(panthera_tigris,subclase(pantherinae),propiedades([tiene(rayas),vive_en(asia)]),nombre_vulgar(tigre),imagen('tigre.jpg')).
buscar(B, P):-frame(_,_,propiedades(X),nombre_vulgar(A),imagen(I)),esprop(P,X),concat([A],[I],B),!.
pertenece(X,[X|_]):- !.
pertenece(X,[_|T]):- pertenece(X,T).
esprop([],_):-!.
esprop([H|T],X):- pertenece(H,X),esprop(T,X).
concat([],L,L).
concat([X|L1],L2,[X|L3]):- concat(L1,L2,L3).
[pic][pic]
Sistema Experto
frame(sifilis,
['Ulceras en area genital',
'Fiebre',
'Dolor de garganta',
'Dolor de articulaciones',
'Pérdida de coordinacion'],
'La sífilis es una infección de transmisión sexual crónica producida por la bacteria espiroqueta Treponema pallidum, subespecie pallidum (pronunciado pál lidum).
Este microorganismo es unabacteria móvil espiroforme (con forma de hilo en espiral), perteneciente al orden Spirochaetales, familia Spirochaetaceae. Su diámetro es de 0,1 a 0,2 micrómetros y su longitud entre 5 y 15 micrómetros. Puestas una detrás de otra, entre 70 y 200 espiroquetas medirían alrededor de un milímetro.').
frame(gonorrea,
['Secreción uretral blanquecina',
'Dolor al orinar',
'Secreciónvaginal',
'Inflamacion de los testiculos',
'Enrojecimiento del area genital'],
'La gonorrea, también denominada blenorragia, blenorrea y uretritis gonocócica, es una infección de transmisión sexual provocada por la bacteria Neisseria gonorrhoeae o gonococo.').
frame(chancro,
['Hinchazon dolorosa de entre 3 y 50 mm.',
'Hinchazon con bordes irregulares o...
Regístrate para leer el documento completo.