Adriana

Solo disponible en BuenasTareas
  • Páginas : 7 (1560 palabras )
  • Descarga(s) : 0
  • Publicado : 1 de junio de 2011
Leer documento completo
Vista previa del texto
INSTITUTO POLITECNICO NACIONAL

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...
tracking img