Sistema Experto En Prolog del Sector Turismo en la región Puno

1. Introducción

Actualmente se le da mucha importancia al ocio en nuestras vidas, y un campo muy importante dentro del terreno del ocio es el tema de los viajes. Muchas veces tenemos ganas de viajar, conocer nuevos sitios, nuevas culturas, o simplemente pegarnos unos “chapuzones” al rio o ir campamento al campo con los amigos para evadirnos de la “rutinaria ciudad”.

Después de conseguir poner de acuerdo a las personas adecuadas para realizar un viaje en una fecha determinada, surgen los problemas para decidir cuál es la ciudad adecuada para ese viaje. Y es aquí cuando entra en juego nuestro programa: El sistema experto en turismo.

Se trata de un programa fácil de …ver más…

El precio de los viajes en autos se calculó partiendo de la distancia entre las ciudades, un consumo medio de 3 Galones a los 100 km, y un coste de la gasolina de S/13.

- Fase II: “Elección de las características y descripción de las ciudades”

Esta fase era crítica para el funcionamiento de nuestro programa. Debíamos escoger las características adecuadas para cada ciudad, y para ello nos basamos en nuestra propia experiencia, y a información que buscamos en internet sobre los mejores lugares para visitar en cada ciudad.

- Fase III: “Creación de reglas e instrucciones”

Durante esta fase nos dedicamos a declarar los predicados y las reglas derivadas. Implementamos distintas funciones para la resolución del programa completo. Esta fase se explica más en profundidad en el siguiente apartado.

Empezando con las siguientes preguntas

new(Pre1,menu('Quires salir de turimo para divertirte ?')), send_list(Pre1,append,[si , no]), new(Pre2,menu('Quires conocer lugares turisticos mas visitados ?')), send_list(Pre1,append,[si , no]),

opcion para la diversion principal(P1,P2):- espregunta('diversion ?',P1),P1='si', espregunta('atractivos turisticos ?',P2),P2='no', di. opcion para la atractivos turisticos principal(P1,P2):- espregunta('diversion ?',P1),P1='no', espregunta('atractivos turisticos ?',P2),P2='si',
at.