Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/05/2009, 18:26
anza
 
Fecha de Ingreso: abril-2009
Mensajes: 6
Antigüedad: 15 años
Puntos: 0
conectar el lenguaje de php con prolog

ola tengo una duda puedo acer una conexion de php con prolog???
esq en la escuela me pidieron un proyecto y justamente me es prolog y php, ahora mi duda es como acer esto
ehh navegado en san google pero nomas no le entiendo la base de prolog es mas o menos asi como la tengo aunq todavia falta darle otrs reglas, si alguien me puede ayudar se lo agradecere mucho..
les dejo lo de prolog

/*TUXTLA GUTIERREZ inicial con correr.*/

correr:-hipotesis(LUGAR),
direccion(DIRECCION),
write('Te recomendamos:::>'),
write(LUGAR),nl,
write('Direccion:::>'),
write(DIRECCION),nl.




/******DEPORTE********/

hipotesis('Estadio Victor Manuel Reyna'):-estadio_victor_manuel_reyna,!.
hipotesis('Caña Hueca'):-cana_hueca,!.
hipotesis('Parque Oriente'):-parque_oriente,!.

/******CULTURA********/

hipotesis(centro_cultural_jaime_sabines):-centro_cultural_jaime_sabines,!.
hipotesis(jardín_botánico_faustino_miranda):-jardín_botánico_faustino_miranda,!.
hipotesis(museo_chiapas):-museo_chiapas,!.
hipotesis(museo_regional):-museo_regional,!.
hipotesis(teatro_de_la_ciudad):-teatro_de_la_ciudad,!.

/******CINE********/

hipotesis(cinepolis):-cinepolis,!.
hipotesis(cinemark):-cinemark,!.

/******AVENTURA********/

hipotesis(zoomat):-zoomat,!.
hipotesis(cañon_del_sumidero):-canon_del_sumidero,!.
hipotesis(convivencia_infantil):-convivencia_infantil,!.
hipotesis(un_mirador):-mirador,!.

/******HOTELES********/

hipotesis(best_western_palmareca):-best_western_palmareca,!.
hipotesis(camino_real):-camino_real,!.
hipotesis(city_express):-city_express,!.
hipotesis(crowne_plaza):-crowne_plaza,!.
hipotesis(fiesta_inn):-fiesta_inn,!.
hipotesis(holiday_inn):-holiday_inn,!.
hipotesis(maria_eugenia):-maria_eugenia,!.
hipotesis(maya_sol):-maya_sol,!.
hipotesis(quality_inn):-quality_inn,!.


/******PARQUES********/

hipotesis(plaza_civica):-plaza_civica,!.
hipotesis(parque_la_marimba):-parque_la_marimba,!.
hipotesis(parque_joyyo_mayu):-parque_joyyo_mayu,!.

/******ARQUITECTURAS********/

hipotesis(catedral_san_marcos):-catedral_san_marcos,!.
hipotesis(poliforum):-poliforum,!.


/******ANTROS********/

hipotesis(santa_diabla):-santa_diabla,!.
hipotesis(chamochelas):-chamochelas,!.
hipotesis(baby_rock):-baby_rock,!.
hipotesis(piñas_n_charlie):-piñas_n_charlie,!.


/******DESCONOCIDO********/

hipotesis(desconocido).

/********************************/

/*IDENTIFICACION*/

estadio_victor_manuel_reyna:-deporte,cancha_de_futbol_soccer,pista_de_atletismo ,
verifica(la_casa_del_equipo_jaguares_de_chiapas).
cana_hueca:-deporte,cancha_de_futbol_soccer,cancha_de_basquetb ol,pista_de_atletismo,cancha_de_futbol_rapido,
verifica(un_lugar_para_hacer_ejercicios).
parque_oriente:-deporte,cancha_de_futbol_soccer,cancha_de_futbol_r apido,aerobics,golfito,
verifica(un_lugar_ecologico).

centro_cultural_jaime_sabines:-cultura,hemeroteca,fonoteca,videoteca,cibersalas,
verifica(una_famosa_biblioteca).
jardín_botánico_faustino_miranda:-cultura,plantas,arboles,arbustos,
verifica(un_jardin_botanico).
museo_chiapas:-cultura,tecnologia,conferencias,
verifica(el_much).
museo_regional:-cultura,prehistoria,mayas,
verifica(la_historia_de_chiapas).
teatro_de_la_ciudad:-cultura,obras_de_teatro,
verifica(el_teatro).

cinepolis:-cine,peliculas,dulceria,palomitas,juegos,cafeteria ,
verifica(la_capital_del_cine).
cinemark:-cine,peliculas,dulceria,palomitas,
verifica(ver_peliculas).

zoomat:-aventura,naturaleza,aves,leones,cocodrilos,
verifica(ver_animales).
canon_del_sumidero:-aventura,naturaleza,ecoturismo,
verifica(acompañado_de_alberca),
verifica(un_lugar_para_kayaks).
convivencia_infantil:-aventura,juegos_mecanicos,
verifica(un_lugar_especial_para_niños).
mirador:-aventura,espectaculo_natural_impresionante,
verifica(un_lugar_para_ver_de_la_ciudad).

best_western_palmareca:-hotel,tv_por_cable,estacionamiento,lavanderia,rest aurante,estetica,tienda_de_regalos,alberca,jardin, clima,internet,
verifica(con_areas_verdes).
camino_real:-hotel,tv_por_cable,bar,estacionamiento,jacuzzi_en_ alberca,restaurante,tennis,ninera,gimnacio,alberca ,spa,jardin,clima,internet,
verifica(un_hotel_moderno_y_contemporaneo).
city_express:-hotel,tv_por_cable,estacionamiento,gimnacio,alberc a,internet,
verifica(un_hotel_con_tranquilidad).
crowne_plaza:-hotel,tv_por_cable,bar,lavanderia,restaurante,gimn acio,alberca,renta_de_autos,clima,internet,
verifica(un_hotel_para_relajarce).
fiesta_inn:-hotel,tv_por_cable,estacionamiento,lavanderia,rest aurante,alberca,renta_de_autos,clima,internet,
verifica(un_hotel_con_hospitalidad).

/*REGLAS DE CLASIFICACION*/


deporte:-verifica(un_lugar_para_practicar_deporte),!.

cancha_de_futbol_soccer:-verifica(un_lugar_con_canchas_de_futbol_soccer),!.
cancha_de_basquetbol:-verifica(un_lugar_con_canchas_de_basquetbol),!.
pista_de_atletismo:-verifica(un_lugar_con_pista_de_atletismo),!.
cancha_de_futbol_rapido:-verifica(un_lugar_con_cancha_de_futbol_rapido),!.
aerobics:-verifica(un_lugar_para_hacer_aerobics),!.
golfito:-verifica(un_lugar_con_golfito),!.

cultura:-verifica(cultura_chiapaneca),!.

hemeroteca:-verifica(un_lugar_con_hemeroteca),!.
fonoteca:-verifica(un_lugar_con_fonoteca),!.
videoteca:-verifica(un_lugar_con_videoteca),!.
cibersalas:-verifica(un_lugar_con_cibersalas),!.
plantas:-verifica(un_lugar_para_ver_plantas),!.
arboles:-verifica(un_lugar_para_ver_arboles),!.
arbustos:-verifica(un_lugar_para_ver_arbustos),!.
tecnologia:-verifica(un_lugar_para_ver_tecnologia),!.
conferencias:-verifica(un_lugar_para_escuchar_conferencias),!.
prehistoria:-verifica(un_lugar_para_conocer_la_prehistoria_chia paneca),!.
mayas:-verifica(un_lugar_para_conocer_la_historia_maya),! .
obras_de_teatro:-verifica(un_lugar_para_ver_obras_de_teatro),!.

cine:-verifica(cines),!.

peliculas:-verifica(un_lugar_para_ver_peliculas),!.
dulceria:-verifica(un_lugar_para_comer_dulces),!.
palomitas:-verifica(un_lugar_para_comer_palomitas),!.
juegos:-verifica(un_lugar_con_juegos),!.
cafeteria:-verifica(un_lugar_con_cafeteria),!.

aventura:-verifica(un_lugar_con_aventuras),!.

naturaleza:-verifica(un_lugar_con_naturaleza),!.
aves:-verifica(un_lugar_para_ver_aves),!.
leones:-verifica(un_lugar_para_ver_leones),!.
cocodrilos:-verifica(un_lugar_para_ver_cocodrilos),!.
ecoturismo:-verifica(un_lugar_con_ecoturismo),!.
juegos_mecanicos:-verifica(un_lugar_con_juegos_mecanicos),!.
espectaculo_natural_impresionante:-verifica(un_espectaculo_natural_impresionante),!.

hotel:-verifica(un_hotel),!.

tv_por_cable:-verifica(un_lugar_con_tv_por_cable),!.
estacionamiento:-verifica(un_hotel_con_estacionamiento),!.
lavanderia:-verifica(un_hotel_con_lavanderia),!.
restaurante:-verifica(un_hotel_con_restaurante),!.
estetica:-verifica(un_hotel_con_estetica),!.
tienda_de_regalos:-verifica(un_hotel_con_tienda_de_regalos),!.
alberca:-verifica(un_hotel_con_alberca),!.
jardin:-verifica(un_hotel_con_jardin),!.
clima:-verifica(un_hotel_con_clima),!.
internet:-verifica(un_hotel_con_internet),!.
jacuzzi_en_alberca:-verifica(un_hotel_con_jacuzzi_en_alberca),!.
tennis:-verifica(un_hotel_con_cancha_de_tenis),!.
ninera:-verifica(un_hotel_con_ninera),!.
gimnacio:-verifica(un_hotel_con_gimnacio),!.
spa:-verifica(un_hotel_con_spa),!.
bar:-verifica(un_hotel_con_bar),!.
renta_de_autos:-verifica(un_hotel_que_renta_autos),!.

parque:-verifica(los_parques),!.

kiosco:-verifica(un_lugar_con_kiosco),!.
estatua_de_joaquin_miguel_gutierrez:-verifica(la_estatua_de_joaquin_miguel_gutierrez),! .
reuniones_para_familias:-verifica(un_lugar_en_donde_puedas_reunirte_con_la_ familia),!.
bancas_de_tipo_colonial:-verifica(un_lugar_con_bancas_de_tipo_colonial),!.
danzon_con_marimba:-verifica(un_lugar_para_danzar_al_ritmo_de_la_marim ba),!.
tiene_puente_colgante:-verifica(un_lugar_con_puente_colgante),!.
relajacion:-verifica(un_lugar_para_relajarce),!.

arquitectura:-verifica(un_lugar_con_arquitectura),!.

epoca_colonial_chiapaneca:-verifica(arquitectura_de_la_epoca_colonial_chiapan eca),!.
figuras_de_los_apostoles:-verifica(un_lugar_con_las_figuras_de_los_apostoles ),!.
estilo_neoclasico:-verifica(un_lugar_con_estilo_neoclasico),!.
belleza_arquitectonica:-verifica(un_lugar_con_belleza_arquitectonica),!.
tecnologia_vanguardista:-verifica(un_lugar_con_tecnologia_vanguardista),!.
audio_e_iluminacion_computarizado:-verifica(un_lugar_con_audio_e_iluminacion_computar izado),!.

antro:-verifica(un_buen_antro),!.

musica:-verifica(con_musica),!.
ritmo_latino:-verifica(con_un_ritmo_latino),!.
ritmo_moderno:-verifica(con_un_ritmo_moderno),!.





/*PREGUNTAR*/

preguntar(PREGUNTA):-write('En Tuxtla te gustaria conocer '),
write(PREGUNTA),
write('?'),
read(RESPUESTA),nl,
((RESPUESTA==si; RESPUESTA==s)-> assert(si(PREGUNTA));
assert(no(PREGUNTA)),fail).
:-dynamic si/1, no/1.

/*Como verificar algo*/

verifica(S)si(S)->true;
(no(S)->fail;
preguntar(S))).


el codigo va incompleto pero contiene lo basico ya q no se permite enviar mas de 10000 caracteres, porfavor ayuda