Untitled
unknown
plain_text
a year ago
36 kB
8
Indexable
Never
%Base de conocimiento para la tarea de Declarativa %Centros de estudio lugar(colegio_santa_cecilia). lugar(itca_fepade). lugar(fesa). %Centros de salud lugar(hospital_san_rafael). %Centros de gasolineria lugar(gasolineria_uno). %Centros de parques recreativos lugar(parque_daniel_hernandez). lugar(parque_san_martin). lugar(parque_cafetalon). lugar(parque_la_familia). lugar(estadio_nacional_las_delicias). lugar(parque_ecologico_san_jose). %Centros de centro comercial lugar(plaza_merliot). lugar(plaza_la_skina). lugar(plaza_las_ramblas). %Coordenadas %311 417 %529 426 %775 436 %514,398 %536,296 %637,437 % COORDENADAS % Sintaxis de coordenadas, agregadas como predicados: % -> coordenada(lugar, coordenadaX, coordenadaY). % % Centro de estudio coordenada(colegio_santa_cecilia, 546, 296). coordenada(itca_fepade, 714, 407). coordenada(fesa, 563, 207). coordenada(ccpuntoIntercepcionFesa,587,297). coordenada(ccpuntoCallePFamCuatroIntercepcion, 562, 241). coordenada(ccpuntoCallePFamCuatroIntercepcionDos, 536, 241). coordenada(ccCeciliaUno, 587, 299). % Centro de Salud coordenada(hospital_san_rafael, 775, 436). % Centro de Gasolinera coordenada(gasolineria_uno, 300, 418). % Centro de parques recreativos coordenada(parque_daniel_hernandez, 532, 399). coordenada(parque_san_martin, 583, 402). coordenada(parque_cafetalon, 640, 326). coordenada(parque_la_familia, 647, 183). coordenada(estadio_nacional_las_delicias, 273, 416). coordenada(parque_ecologico_san_jose, 456, 61). % Centros de centro comercial coordenada(plaza_merliot, 791, 269). coordenada(plaza_la_skina, 306, 287). coordenada(plaza_las_ramblas, 975, 460). coordenada(carretera_panamericana_central,529,426). % Puntos de interseccion %Gasolineria coordenada(ccpuntoPDaniel,514,398). coordenada(ccpuntoPDGasolineria,293,391). coordenada(ccpuntoGGasolineria,290,416). coordenada(ccpuntoSCLlegada,536,296). coordenada(ccpuntoSCFinal,547,297). coordenada(ccpuntoCftalon,637,437). coordenada(ccpuntoUno,775,415). coordenada(ccpuntoDos,745,410). coordenada(ccpuntoTres,713,408). coordenada(ccpuntoCuatro,713,434). coordenada(ccpuntoCinco,803,436). coordenada(ccpuntoSeis,803,424). % PARQUES % parque daniel hernandez -> Santa Cecilia coordenada(ccpuntoCallePDanielSC,539, 295). % parque daniel hernandez -> ITCA coordenada(ccpuntoCallePDanielITCA, 713, 434). % parque daniel hernandez -> FESA coordenada(ccpuntoCallePDanielFesaUno, 540, 183). coordenada(ccpuntoCallePDanielFesaDos, 563, 185). % parque daniel hernandez -> parque san martin coordenada(ccpuntoIntPDanielUno, 503, 400). coordenada(ccpuntoIntPDanielDos, 503,426). coordenada(ccpuntoIntPSMartinUno, 583, 429). % parque daniel hernandez -> parque cafetalon coordenada(ccpuntoCallPDanielUno, 532, 348). coordenada(ccpuntoCallePCafeUno, 640,352). % parque cafetalon -> parque daniel hernandez/parque san martin coordenada(ccpuntoIntPCafeUno, 506, 321). coordenada(ccpuntoCalleIntPDanielUno, 528, 427). % paque la familia -> colegio santa cecilia coordenada(ccpuntoCallePFamCuatro, 510, 241). coordenada(ccpuntoCallePFamCinco, 507, 295). % parque la familia -> FESA coordenada(ccpuntoCallePFamUno, 642, 245). coordenada(ccpuntoCallePFamDos, 589, 243). coordenada(ccpuntoCallePFamTres, 589, 207). % parque la familia -> ITCA coordenada(ccpuntoCallePFamSeis, 794, 203). coordenada(ccpuntoCallePFamSiete, 775, 415). % parque la familia -> las delicias coordenada(ccpuntoCallePFamOcho, 232, 390). % parque la familia -> parque san jose coordenada(ccpuntoRotondaPFamUno, 661, 119). coordenada(ccpuntoRotondaPFamDos, 664, 99). coordenada(ccpuntoRotondaPFamTres, 676, 93). coordenada(ccpuntoRotondaPFamCuatro, 688, 99). coordenada(ccpuntoRotondaPFamCinco, 688, 109). coordenada(ccpuntoRotondaPFamSeis, 679, 113). coordenada(ccpuntoCallePFamNueve, 539, 97). coordenada(ccpuntoCallePFamDies, 541,66). % parque la familia -> la Skina coordenada(ccpuntoCallePFamOnce, 457, 241). coordenada(ccpuntoCallePFamDoce, 443,233). coordenada(ccpuntoCallePFamTrece, 405, 232). coordenada(ccpuntoCallePFamCatorce, 353, 264). coordenada(ccpuntoCallePFamQuince, 353, 288). % parque la familia -> las Ramblas coordenada(ccpuntoCallePFamDieciseis, 889, 205). coordenada(ccpuntoCallePFamDiecisiete, 943, 203). coordenada(ccpuntoCallePFamDieciocho, 1021, 234). coordenada(ccpuntoCallePFamDiecinueve, 1100, 231). coordenada(ccpuntoCallePFamVeinte, 1102, 275). coordenada(ccpuntoCallePFamVeintiuno, 1098, 281). coordenada(ccpuntoCallePFamVeintidos, 1100, 290). coordenada(ccpuntoCallePFamVeintitres, 1086,414). coordenada(ccpuntoCallePFamVeinticuatro, 1062,427). coordenada(ccpuntoCallePFamVeinticinco, 1047, 460). % Ecologico san Jose -> las delicias coordenada(ccpuntoCalleJoseGasoUno, 456,87). coordenada(ccpuntoCalleJoseGasoDos, 369, 91). coordenada(ccpuntoCalleJoseGasoTres, 322, 122). coordenada(ccpuntoCalleJoseGasoCuatro, 187, 307). coordenada(ccpuntoCalleJoseGasoCinco, 165, 332). coordenada(ccpuntoCalleJoseGasoSeis, 180, 355). % PLAZAS % La Skina - Gasolinera Texaco coordenada(ccpuntoIntSkinaUno,311,289). coordenada(ccpuntoCSkinaDos,342,361). coordenada(ccpuntoCSkinaTres,346,377). coordenada(ccpuntosIntSkinaPanamericanaCuatro,344,394). coordenada(ccpuntoIntSkinaPanamericanaCinco,292,391). coordenada(ccpuntoIntSkinaPanamericanaSeis,290,418). % La Skina - Colegio Santa Cecilia coordenada(ccpuntoCSkinaSiete,321,314). coordenada(ccpuntoCSkinaOcho,325.313). coordenada(ccpuntoCSkinaNueve,315,287). % La Skina - ITCA coordenada(ccpuntoIntSkinaDiez,343,420). coordenada(ccpuntoCSkinaOnce,712,435). % La Skina - FESA coordenada(ccpuntoSkinaDoce,560,296). % La Skina - Daniel Hernandez coordenada(ccpuntoCSkinaTrece,528,427). % La Skina - San Martin coordenada(ccpuntoCSkinaCatorce,581,429). % La Skina - Cafetalon coordenada(ccpuntoCSkinaQuince,633,431). % La Skina - Parque La Familia coordenada(ccpuntoCSkinaDieseis,288,280). coordenada(ccpuntoCSkinaDiesiete,284,275). coordenada(ccpuntoCSkinaDiesiocho,284,275). coordenada(ccpuntoCSkinaDiesinueve,279,275). coordenada(ccpuntoCSkinaVeinte,274,278). coordenada(ccpuntoCSkinaVeintiuno,270,284). coordenada(ccpuntoCSkinaVeintidos,221,299). coordenada(ccpuntoCSkinaVeintitres,212,300). coordenada(ccpuntoCSkinaVeinticuatro,209,288). coordenada(ccpuntoCSkinaVeinticinco,329,117). coordenada(ccpuntoCSkinaVeintiseis,351,99). coordenada(ccpuntoCSkinaVeintisiete,374,91). coordenada(ccpuntoCSkinaVeintiocho,474,89). coordenada(ccpuntoCSkinaVeintinueve,540,98). coordenada(ccpuntoCSkinaTreinta,644,109). coordenada(ccpuntoCSkinaTreintauno,651,113). % La Skina - Estadio Las Delicias coordenada(ccpuntoCSkinaTreintados,247,389). coordenada(ccpuntoCSkinaTreintatres,241,391). coordenada(ccpuntoCSkinaTreintacuatro,242,395). coordenada(ccpuntoCSkinaTreintacinco,248,401). coordenada(ccpuntoCSkinaTreintaseis,249,415). % La Skina - Parque ecologico San Jose coordenada(ccpuntoCSkinaTreintasiete,377,288). coordenada(ccpuntoCSkinaTreintanueve,381,169). coordenada(ccpuntoCSkinaCuarenta,407,153). coordenada(ccpuntoCSkinaCuarentauno,431,141). coordenada(ccpuntoCSkinaCuarentados,453,134). % La Skina - Plaza Merliot coordenada(ccpuntoCSkinaCuarentatres,639,299). coordenada(ccpuntoCSkinaCuarentacuatro,642,246). % La Skina - Las Ramblas coordenada(ccpuntoCSkinaCuarentacinco,889,244). coordenada(ccpuntoCSkinaCuarentaseis,926,246). coordenada(ccpuntoCSkinaCuarentasiete,1005,284). coordenada(ccpuntoCSkinaCuarentaocho,1097,282). coordenada(ccpuntoMerliotRuno,1110,288). coordenada(ccpuntoMerliotRdos,1114,281). coordenada(ccpuntoMerliotRtres,1107,274). coordenada(ccpuntoCSkinaCuarentanueve,1101,289). coordenada(ccpuntoCSkinaCincuenta,1088,375). coordenada(ccpuntoCSkinaCincuentauno,1086,414). coordenada(ccpuntoCSkinaCincuentados,1069,424). coordenada(ccpuntoCSkinaCincuentatres,1057,433). coordenada(ccpuntoCSkinaCincuentacuatro,1052,450). coordenada(ccpuntoCSkinaCincuentacinco,1048,463). % Plaza Las Ramblas - ITCA coordenada(ccpuntoRamblasUno,896,451). coordenada(ccpuntoRamblasDos,840,437). coordenada(ccpuntoRamblasTres,794,421). coordenada(ccpuntoRamblasCuatro,755,411). % Las Ramblas - FESA coordenada(ccpuntoRamblasCinco,591,206). % Las Ramblas - Cafetalon coordenada(ccpuntoRamblasSeis,634,404). % Las Ramblas - Parque La Familia coordenada(ccpuntoRamblasSiete,774,415). coordenada(ccpuntoRamblasOcho,793,205). coordenada(ccpuntoRamblasNueve,748,197). coordenada(ccpuntoRamblasDiez,647,190). % Las Ramblas - Parque Ecologico San Jose coordenada(ccpuntoRamblasOnce,641,272). coordenada(ccpuntoRamblasDoce,588,271). coordenada(ccpuntoRamblasTrece,591,185). coordenada(ccpuntoRamblasCatorce,540,183). coordenada(ccpuntoRamblasQuince,533,175). coordenada(ccpuntoRamblasDiesiseis,540,67). % Las Ramblas - La Skina coordenada(ccpuntoRamblasDiesiete,790,251). coordenada(ccpuntoRamblasDiesiocho,458,239). coordenada(ccpuntoRamblasDiesinueve,443,233). coordenada(ccpuntoRamblasVeinte,405,232). coordenada(ccpuntoRamblasVeintiuno,354,263). coordenada(ccpuntoRamblasVeintidos,354,288). % Las Ramblas - Santa Cecilia coordenada(ccpuntoRamblasVeintitres,533,322). % Plaza Merliot - Colegio Santa Cecilia coordenada(ccpuntoMerliotUno,790,251). coordenada(ccpuntoMeliotDos,507,241). coordenada(ccpuntoMeliotTres,507,295). coordenada(ccpuntoMeliotCuatro,588,245). coordenada(ccpuntoMeliotCinco,589,209). coordenada(ccpuntoMeliotSeis,712,434). coordenada(ccpuntoMerliotSiete,344,359). %Funcion que retorna la calle y coordenada obtener_coordenada(Lugar, Coor) :- coordenada(Lugar, X, Y), Coor = coordenada(Lugar, X, Y). %Conexiones de las coordenadas %Direccional conecta_con(carretera_panamericana_central,hospital_san_rafael). %conecta_con(plaza_merliot,hospital_san_rafael). %pruebas conecta_con(plaza_merliot, ccpuntoUno). conecta_con(ccpuntoUno,plaza_merliot). conecta_con(ccpuntoUno, ccpuntoDos). conecta_con(ccpuntoDos, itca_fepade). conecta_con(itca_fepade, ccpuntoCuatro). conecta_con(ccpuntoCuatro, hospital_san_rafael). conecta_con(hospital_san_rafael, ccpuntoCinco). conecta_con(ccpuntoCinco, ccpuntoSeis). conecta_con(ccpuntoSeis, ccpuntoUno). %FesaPrueba conecta_con(fesa, ccpuntoCallePFamCuatroIntercepcion). conecta_con(ccpuntoCallePFamCuatroIntercepcion,ccpuntoCallePFamCuatroIntercepcionDos). conecta_con(ccpuntoCallePFamCuatroIntercepcionDos, ccpuntoCallePFamCuatro). conecta_con(ccpuntoCallePFamCuatroIntercepcionDos, ccpuntoCallPDanielUno). conecta_con(ccpuntoCallPDanielUno, parque_daniel_hernandez). conecta_con(colegio_santa_cecilia, ccpuntoCSkinaCuarentatres). conecta_con(colegio_santa_cecilia, ccCeciliaUno). conecta_con(ccCeciliaUno, parque_san_martin). %Conexiones de Gasolineria % Gasolineria - Parque Daniel Hernandez conecta_con(gasolineria_uno,carretera_panamericana_central). conecta_con(carretera_panamericana_central, parque_daniel_hernandez). conecta_con(parque_daniel_hernandez,ccpuntoPDaniel). % Gasolina -> Las delicias conecta_con(ccpuntoPDaniel, ccpuntoCallePFamOcho). % Gasolineria - Parque Daniel Hernandez conecta_con(parque_daniel_hernandez,ccpuntoPDGasolineria). conecta_con(ccpuntoPDGasolineria,ccpuntoGGasolineria). conecta_con(ccpuntoGGasolineria,gasolineria_uno). conecta_con(gasolineria_uno,carretera_panamericana_central). conecta_con(carretera_panamericana_central,ccpuntoSCLlegada). conecta_con(ccpuntoSCLlegada,ccpuntoSCFinal). conecta_con(gasolineria_uno,carretera_panamericana_central). conecta_con(carretera_panamericana_central,ccpuntoCftalon). conecta_con(ccpuntoCftalon,ccpuntoCallePCafeUno). % Conexiones de Parques % parque daniel hernandez -> Santa Cecilia conecta_con(parque_daniel_hernandez, ccpuntoCallePDanielSC). conecta_con(ccpuntoCallePDanielSC, colegio_santa_cecilia). % parque daniel hernandez -> ITCA conecta_con(ccpuntoIntPDanielDos, ccpuntoCallePDanielITCA). conecta_con(ccpuntoCallePDanielITCA, itca_fepade). % parque daniel hernandez -> fesa conecta_con(parque_daniel_hernandez, ccpuntoCallePDanielFesaUno). conecta_con(ccpuntoCallePDanielFesaUno, ccpuntoCallePDanielFesaDos). conecta_con(ccpuntoCallePDanielFesaDos, fesa). % parque daniel hernandez -> parque san martin conecta_con(parque_daniel_hernandez, ccpuntoIntPDanielUno). conecta_con(ccpuntoIntPDanielUno, ccpuntoIntPDanielDos). conecta_con(ccpuntoIntPDanielDos, ccpuntoIntPSMartinUno). conecta_con(ccpuntoIntPSMartinUno, parque_san_martin). % Parque san martin -> parque daniel hernandez conecta_con(parque_san_martin, parque_daniel_hernandez). % parque daniel hernandez -> parque cafetalon conecta_con(parque_daniel_hernandez, ccpuntoCallPDanielUno). conecta_con(ccpuntoCallPDanielUno, ccpuntoCallePCafeUno). conecta_con(ccpuntoCallePCafeUno, parque_cafetalon). % parque cafetalon -> parque la familia conecta_con(parque_cafetalon, parque_la_familia). % parque cafetalon -> parque daniel hernandez/parque san martin conecta_con(parque_cafetalon, ccpuntoIntPCafeUno). conecta_con(ccpuntoIntPCafeUno, ccpuntoIntPDanielDos). conecta_con(ccpuntoIntPDanielDos, ccpuntoCalleIntPDanielUno). conecta_con(ccpuntoCalleIntPDanielUno, parque_daniel_hernandez). % parque la familia -> parque san jose conecta_con(parque_la_familia, ccpuntoRotondaPFamUno). conecta_con(ccpuntoRotondaPFamUno, ccpuntoRotondaPFamDos). conecta_con(ccpuntoRotondaPFamDos, ccpuntoRotondaPFamTres). conecta_con(ccpuntoRotondaPFamTres, ccpuntoRotondaPFamCuatro). conecta_con(ccpuntoRotondaPFamCuatro, ccpuntoRotondaPFamCinco). conecta_con(ccpuntoRotondaPFamCinco, ccpuntoRotondaPFamSeis). conecta_con(ccpuntoRotondaPFamSeis, ccpuntoCallePFamNueve). conecta_con(ccpuntoCallePFamNueve, ccpuntoCallePFamDies). conecta_con(ccpuntoCallePFamDies, parque_ecologico_san_jose). % parque la familia -> FESA conecta_con(parque_la_familia, ccpuntoCallePFamUno). conecta_con(ccpuntoCallePFamUno, ccpuntoCallePFamDos). conecta_con(ccpuntoCallePFamDos, ccpuntoCallePFamTres). conecta_con(ccpuntoCallePFamTres, fesa). % paque la familia -> colegio santa cecilia conecta_con(parque_la_familia, ccpuntoCallePFamUno). conecta_con(ccpuntoCallePFamUno, ccpuntoCallePFamCuatro). conecta_con(ccpuntoCallePFamCuatro, ccpuntoCallePFamCinco). conecta_con(ccpuntoCallePFamCinco, colegio_santa_cecilia). % parque la familia -> ITCA conecta_con(parque_la_familia, ccpuntoCallePFamSeis). conecta_con(ccpuntoCallePFamSeis, ccpuntoCallePFamSiete). conecta_con(ccpuntoCallePFamSiete, itca_fepade). % parque la familia -> Hospital San Rafael conecta_con(ccpuntoCallePFamSiete, hospital_san_rafael). % parque la familia -> Gasolinera Uno conecta_con(itca_fepade, ccpuntoPDGasolineria). % parque la familia -> parque daniel hernandez conecta_con(itca_fepade, parque_daniel_hernandez). % parque la familia -> parque san Martin conecta_con(itca_fepade, parque_san_martin). % parque la familia -> Las delicias conecta_con(ccpuntoPDGasolineria, ccpuntoCallePFamOcho). conecta_con(ccpuntoCallePFamOcho, estadio_nacional_las_delicias). % parque la familia -> plaza merliot conecta_con(ccpuntoCallePFamSeis, plaza_merliot). % parque la familia -> plaza la skina conecta_con(ccpuntoCallePFamCuatro ,ccpuntoCallePFamOnce). conecta_con(ccpuntoCallePFamOnce, ccpuntoCallePFamDoce). conecta_con(ccpuntoCallePFamDoce, ccpuntoCallePFamTrece). conecta_con(ccpuntoCallePFamTrece, ccpuntoCallePFamCatorce). conecta_con(ccpuntoCallePFamCatorce, ccpuntoCallePFamQuince). conecta_con(ccpuntoCallePFamQuince, plaza_la_skina). % parque la familia -> las Ramblas conecta_con(ccpuntoCallePFamSeis, ccpuntoCallePFamDieciseis). conecta_con(ccpuntoCallePFamDieciseis, ccpuntoCallePFamDiecisiete). conecta_con(ccpuntoCallePFamDiecisiete, ccpuntoCallePFamDieciocho). conecta_con(ccpuntoCallePFamDieciocho, ccpuntoCallePFamDiecinueve). conecta_con(ccpuntoCallePFamDiecinueve, ccpuntoCallePFamVeinte). conecta_con(ccpuntoCallePFamVeinte, ccpuntoCallePFamVeintiuno). conecta_con(ccpuntoCallePFamVeintiuno, ccpuntoCallePFamVeintidos). conecta_con(ccpuntoCallePFamVeintidos, ccpuntoCallePFamVeintitres). conecta_con(ccpuntoCallePFamVeintitres, ccpuntoCallePFamVeinticuatro). conecta_con(ccpuntoCallePFamVeinticuatro, ccpuntoCallePFamVeinticinco). conecta_con(ccpuntoCallePFamVeinticinco, plaza_las_ramblas). % las delicias -> gasolinera uno conecta_con(estadio_nacional_las_delicias, gasolineria_uno). % Ecologico san Jose -> Las delicias conecta_con(parque_ecologico_san_jose, ccpuntoCalleJoseGasoUno). conecta_con(ccpuntoCalleJoseGasoUno, ccpuntoCalleJoseGasoDos). conecta_con(ccpuntoCalleJoseGasoDos, ccpuntoCalleJoseGasoTres). conecta_con(ccpuntoCalleJoseGasoTres, ccpuntoCalleJoseGasoCuatro). conecta_con(ccpuntoCalleJoseGasoCuatro, ccpuntoCalleJoseGasoCinco). conecta_con(ccpuntoCalleJoseGasoCinco, ccpuntoCalleJoseGasoSeis). conecta_con(ccpuntoCalleJoseGasoSeis, estadio_nacional_las_delicias). % CONEXIONES PLAZAS % La Skina - Gasolinera Texaco conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaDos). conecta_con(ccpuntoCSkinaDos,ccpuntoCSkinaTres). conecta_con(ccpuntoCSkinaTres,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoIntSkinaPanamericanaCinco). conecta_con(ccpuntoIntSkinaPanamericanaCinco,ccpuntoIntSkinaPanamericanaSeis). conecta_con(ccpuntoIntSkinaPanamericanaSeis,gasolineria_uno). % La Skina - Colegio Santa Cecilia conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaSiete). conecta_con(ccpuntoCSkinaSiete,ccpuntoCSkinaOcho). conecta_con(ccpuntoCSkinaOcho,ccpuntoCSkinaNueve). conecta_con(ccpuntoCSkinaNueve,colegio_santa_cecilia). % La Skina - ITCA conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaDos). conecta_con(ccpuntoCSkinaDos,ccpuntoCSkinaTres). conecta_con(ccpuntoCSkinaTres,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoIntSkinaDiez). conecta_con(ccpuntoIntSkinaDiez,ccpuntoCSkinaOnce). conecta_con(ccpuntoCSkinaOnce,itca_fepade). % La Skina - FESA conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaSiete). conecta_con(ccpuntoCSkinaSiete,ccpuntoCSkinaOcho). conecta_con(ccpuntoCSkinaOcho,ccpuntoCSkinaNueve). conecta_con(ccpuntoCSkinaNueve,ccpuntoSkinaDoce). conecta_con(ccpuntoSkinaDoce,fesa). % La Skina - Hospital San Rafael conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaDos). conecta_con(ccpuntoCSkinaDos,ccpuntoCSkinaTres). conecta_con(ccpuntoCSkinaTres,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoIntSkinaDiez). conecta_con(ccpuntoIntSkinaDiez,hospital_san_rafael). % La Skina - Parque Daniel Hernandez conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaDos). conecta_con(ccpuntoCSkinaDos,ccpuntoCSkinaTres). conecta_con(ccpuntoCSkinaTres,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoIntSkinaDiez). conecta_con(ccpuntoIntSkinaDiez,ccpuntoCSkinaTrece). conecta_con(ccpuntoCSkinaTrece,parque_daniel_hernandez). % La Skina - San Martin conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaDos). conecta_con(ccpuntoCSkinaDos,ccpuntoCSkinaTres). conecta_con(ccpuntoCSkinaTres,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoIntSkinaDiez). conecta_con(ccpuntoIntSkinaDiez,ccpuntoCSkinaCatorce). conecta_con(ccpuntoCSkinaCatorce,parque_san_martin). % La Skina - Cafetalon conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaDos). conecta_con(ccpuntoCSkinaDos,ccpuntoCSkinaTres). conecta_con(ccpuntoCSkinaTres,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoIntSkinaDiez). conecta_con(ccpuntoIntSkinaDiez,ccpuntoCSkinaQuince). conecta_con(ccpuntoCSkinaQuince,parque_cafetalon). % La Skina - Parque La Familia conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaSiete). conecta_con(ccpuntoCSkinaSiete,ccpuntoCSkinaOcho). conecta_con(ccpuntoCSkinaOcho,ccpuntoCSkinaNueve). conecta_con(ccpuntoCSkinaNueve,ccpuntoCSkinaDieseis). conecta_con(ccpuntoCSkinaDieseis,ccpuntoCSkinaDiesiete). conecta_con(ccpuntoCSkinaDiesiete,ccpuntoCSkinaDiesiocho). conecta_con(ccpuntoCSkinaDiesiocho,ccpuntoCSkinaDiesinueve). conecta_con(ccpuntoCSkinaDiesinueve,ccpuntoCSkinaVeinte). conecta_con(ccpuntoCSkinaVeinte,ccpuntoCSkinaVeintiuno). conecta_con(ccpuntoCSkinaVeintiuno,ccpuntoCSkinaVeintidos). conecta_con(ccpuntoCSkinaVeintidos,ccpuntoCSkinaVeintitres). conecta_con(ccpuntoCSkinaVeintitres,ccpuntoCSkinaVeinticuatro). conecta_con(ccpuntoCSkinaVeinticuatro,ccpuntoCSkinaVeinticinco). conecta_con(ccpuntoCSkinaVeinticinco,ccpuntoCSkinaVeintiseis). conecta_con(ccpuntoCSkinaVeintiseis,ccpuntoCSkinaVeintisiete). conecta_con(ccpuntoCSkinaVeintisiete,ccpuntoCSkinaVeintiocho). conecta_con(ccpuntoCSkinaVeintiocho,ccpuntoCSkinaVeintinueve). conecta_con(ccpuntoCSkinaVeintinueve,ccpuntoCSkinaTreinta). conecta_con(ccpuntoCSkinaTreinta,ccpuntoCSkinaTreintauno). conecta_con(ccpuntoCSkinaTreintauno,parque_la_familia). % La Skina - Estadio Las Delicias conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaDos). conecta_con(ccpuntoCSkinaDos,ccpuntoCSkinaTres). conecta_con(ccpuntoCSkinaTres,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoCSkinaTreintados). conecta_con(ccpuntoCSkinaTreintados,ccpuntoCSkinaTreintatres). conecta_con(ccpuntoCSkinaTreintatres,ccpuntoCSkinaTreintacuatro). conecta_con(ccpuntoCSkinaTreintacuatro,ccpuntoCSkinaTreintacinco). conecta_con(ccpuntoCSkinaTreintacinco,ccpuntoCSkinaTreintaseis). conecta_con(ccpuntoCSkinaTreintaseis,estadio_nacional_las_delicias). % La Skina - Parque ecologico San Jose conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaSiete). conecta_con(ccpuntoCSkinaSiete,ccpuntoCSkinaOcho). conecta_con(ccpuntoCSkinaOcho,ccpuntoCSkinaNueve). conecta_con(ccpuntoCSkinaNueve,ccpuntoCSkinaTreintasiete). conecta_con(ccpuntoCSkinaTreintasiete,ccpuntoCSkinaTreintanueve). conecta_con(ccpuntoCSkinaTreintanueve,ccpuntoCSkinaCuarenta). conecta_con(ccpuntoCSkinaCuarenta,ccpuntoCSkinaCuarentauno). conecta_con(ccpuntoCSkinaCuarentauno,ccpuntoCSkinaCuarentados). conecta_con(ccpuntoCSkinaCuarentados,parque_ecologico_san_jose). % La Skina - Plaza Merliot conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaSiete). conecta_con(ccpuntoCSkinaSiete,ccpuntoCSkinaOcho). conecta_con(ccpuntoCSkinaOcho,ccpuntoCSkinaNueve). conecta_con(ccpuntoCSkinaNueve,ccpuntoCSkinaCuarentatres). conecta_con(ccpuntoCSkinaCuarentatres,ccpuntoCSkinaCuarentacuatro). conecta_con(ccpuntoCSkinaCuarentacuatro,plaza_merliot). % La Skina - Las Ramblas conecta_con(plaza_la_skina,ccpuntoIntSkinaUno). conecta_con(ccpuntoIntSkinaUno,ccpuntoCSkinaSiete). conecta_con(ccpuntoCSkinaSiete,ccpuntoCSkinaOcho). conecta_con(ccpuntoCSkinaOcho,ccpuntoCSkinaNueve). %conecta_con(ccpuntoCSkinaNueve,ccpuntoCSkinaCuarentatres). conecta_con(ccpuntoCSkinaCuarentatres,ccpuntoCSkinaCuarentacuatro). conecta_con(ccpuntoCSkinaCuarentacuatro,plaza_merliot). conecta_con(plaza_merliot,ccpuntoCSkinaCuarentacinco). conecta_con(ccpuntoCSkinaCuarentacinco,ccpuntoCSkinaCuarentaseis). conecta_con(ccpuntoCSkinaCuarentaseis,ccpuntoCSkinaCuarentasiete). conecta_con(ccpuntoCSkinaCuarentasiete,ccpuntoCSkinaCuarentaocho). conecta_con(ccpuntoCSkinaCuarentaocho,ccpuntoCSkinaCuarentanueve). conecta_con(ccpuntoCSkinaCuarentanueve,ccpuntoCSkinaCincuenta). conecta_con(ccpuntoCSkinaCincuenta,ccpuntoCSkinaCincuentauno). conecta_con(ccpuntoCSkinaCincuentauno,ccpuntoCSkinaCincuentados). conecta_con(ccpuntoCSkinaCincuentados,ccpuntoCSkinaCincuentatres). conecta_con(ccpuntoCSkinaCincuentatres,ccpuntoCSkinaCincuentacuatro). conecta_con(ccpuntoCSkinaCincuentacuatro,ccpuntoCSkinaCincuentacinco). conecta_con(ccpuntoCSkinaCincuentacinco,plaza_las_ramblas). % Las Ramblas % Las Ramblas - ITCA conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). % Las Ramblas - FESA conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,parque_san_martin). %FesaPrueba conecta_con(parque_san_martin,ccpuntoIntercepcionFesa). conecta_con(ccpuntoIntercepcionFesa,ccpuntoRamblasCinco). conecta_con(ccpuntoRamblasCinco,fesa). % Las Ramblas - hospital San Rafael conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoCSkinaOnce). conecta_con(ccpuntoCSkinaOnce,hospital_san_rafael). % Las Ramblas - Parque San Martin conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,parque_san_martin). % Las Ramblas - Parque Daniel Hernandez conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,parque_daniel_hernandez). % Las Ramblas - Gasolinera conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoIntSkinaPanamericanaCinco). conecta_con(ccpuntoIntSkinaPanamericanaCinco,ccpuntoIntSkinaPanamericanaSeis). conecta_con(ccpuntoIntSkinaPanamericanaSeis,gasolineria_uno). % Las Ramblas - Estadio Las Delicias conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoCSkinaTreintados,ccpuntoCSkinaTreintatres). conecta_con(ccpuntoCSkinaTreintatres,ccpuntoCSkinaTreintacuatro). conecta_con(ccpuntoCSkinaTreintacuatro,ccpuntoCSkinaTreintacinco). conecta_con(ccpuntoCSkinaTreintacinco,ccpuntoCSkinaTreintaseis). conecta_con(ccpuntoCSkinaTreintaseis,estadio_nacional_las_delicias). % Las Ramblas - Cafetalon conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoRamblasSeis). conecta_con(ccpuntoRamblasSeis,parque_cafetalon). % Las Ramblas - Parque La Familia conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,ccpuntoRamblasOcho). conecta_con(ccpuntoRamblasOcho,ccpuntoRamblasNueve). conecta_con(ccpuntoRamblasNueve,ccpuntoRamblasDiez). conecta_con(ccpuntoRamblasDiez,parque_la_familia). % Las Ramblas - Parque Ecologico San Jose conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoRamblasSeis). conecta_con(ccpuntoRamblasSeis,ccpuntoRamblasOnce). conecta_con(ccpuntoRamblasOnce,ccpuntoRamblasDoce). conecta_con(ccpuntoRamblasDoce,ccpuntoRamblasTrece). conecta_con(ccpuntoRamblasTrece,ccpuntoRamblasCatorce). conecta_con(ccpuntoRamblasCatorce,ccpuntoRamblasQuince). conecta_con(ccpuntoRamblasQuince,ccpuntoRamblasDiesiseis). conecta_con(ccpuntoRamblasDiesiseis,parque_ecologico_san_jose). % Las Ramblas - Plaza Merliot conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,plaza_merliot). % Las Ramblas - La Skina conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,ccpuntoRamblasDiesiete). conecta_con(ccpuntoRamblasDiesiete,ccpuntoRamblasDiesiocho). conecta_con(ccpuntoRamblasDiesiocho,ccpuntoRamblasDiesinueve). conecta_con(ccpuntoRamblasDiesinueve,ccpuntoRamblasVeinte). conecta_con(ccpuntoRamblasVeinte,ccpuntoRamblasVeintiuno). conecta_con(ccpuntoRamblasVeintiuno,ccpuntoRamblasVeintidos). conecta_con(ccpuntoRamblasVeintidos,plaza_la_skina). % Las Ramblas - Santa Cecilia conecta_con(plaza_las_ramblas,ccpuntoRamblasUno). conecta_con(ccpuntoRamblasUno,ccpuntoRamblasDos). conecta_con(ccpuntoRamblasDos,ccpuntoRamblasTres). conecta_con(ccpuntoRamblasTres,ccpuntoRamblasCuatro). conecta_con(ccpuntoRamblasCuatro,itca_fepade). conecta_con(itca_fepade,ccpuntoRamblasSeis). conecta_con(ccpuntoRamblasSeis,parque_cafetalon). conecta_con(parque_cafetalon,ccpuntoRamblasVeintitres). conecta_con(ccpuntoRamblasVeintitres,colegio_santa_cecilia). % PLAZA MERLIOT % Plaza Merliot - Colegio Santa Cecilia conecta_con(plaza_merliot,ccpuntoMerliotUno). conecta_con(ccpuntoMerliotUno,ccpuntoMerliotDos). conecta_con(ccpuntoMerliotDos,ccpuntoMerliotTres). %conecta_con(ccpuntoMerliotTres,colegio_santa_cecilia). % Plaza Merliot - ITCA conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). % Plaza Merliot -FESA conecta_con(plaza_merliot,ccpuntoRamblasDiesiete). conecta_con(ccpuntoRamblasDiesiete,ccpuntoMeliotCuatro). conecta_con(ccpuntoMeliotCuatro,ccpuntoMeliotCinco). conecta_con(ccpuntoMeliotCinco,fesa). % Plaza Merliot - Hospital San Rafael conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,ccpuntoMeliotSeis). conecta_con(ccpuntoMeliotSeis,hospital_san_rafael). % Plaza Merliot - Gasolinera conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,ccpuntoIntSkinaPanamericanaCinco). conecta_con(ccpuntoIntSkinaPanamericanaCinco,ccpuntoIntSkinaPanamericanaSeis). conecta_con(ccpuntoIntSkinaPanamericanaSeis,gasolineria_uno). % Plaza Merliot - Parque San Martin conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,parque_san_martin). % Plaza Merliot - Parque Daniel Hernandez conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,parque_daniel_hernandez). % Plaza Merliot - Estadio Las Delicias conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,ccpuntoCSkinaTreintados,ccpuntoCSkinaTreintatres). conecta_con(ccpuntoCSkinaTreintatres,ccpuntoCSkinaTreintacuatro). conecta_con(ccpuntoCSkinaTreintacuatro,ccpuntoCSkinaTreintacinco). conecta_con(ccpuntoCSkinaTreintacinco,ccpuntoCSkinaTreintaseis). conecta_con(ccpuntoCSkinaTreintaseis,estadio_nacional_las_delicias). % Plaza Merliot - Cafetalon conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,ccpuntoRamblasSeis). conecta_con(ccpuntoRamblasSeis,parque_cafetalon). % Plaza Merliot - Parque de la familia conecta_con(plaza_merliot,ccpuntoRamblasDiesiete). conecta_con(ccpuntoRamblasDiesiete,ccpuntoCSkinaCuarentacinco). conecta_con(ccpuntoCSkinaCuarentacinco,ccpuntoCSkinaCuarentaseis). conecta_con(ccpuntoCSkinaCuarentaseis,ccpuntoCSkinaCuarentasiete). conecta_con(ccpuntoCSkinaCuarentasiete,ccpuntoCSkinaCuarentaocho). %conecta_con(ccpuntoCSkinaCuarentaocho,ccpuntoCSkinaCuarentanueve). conecta_con(ccpuntoCSkinaCuarentanueve,ccpuntoMerliotRuno). conecta_con(ccpuntoMerliotRuno,ccpuntoMerliotRdos). conecta_con(ccpuntoMerliotRdos,ccpuntoMerliotRtres). %conecta_con(ccpuntoMerliotRtres,parque_la_familia). % Plaza Merliot - Parque Ecologico San Jose conecta_con(plaza_merliot,ccpuntoRamblasDiesiete). conecta_con(ccpuntoRamblasDiesiete,ccpuntoMeliotCuatro). conecta_con(ccpuntoMeliotCuatro,ccpuntoRamblasTrece). conecta_con(ccpuntoRamblasTrece,ccpuntoRamblasCatorce). conecta_con(ccpuntoRamblasCatorce,ccpuntoRamblasQuince). conecta_con(ccpuntoRamblasQuince,ccpuntoRamblasDiesiseis). conecta_con(ccpuntoRamblasDiesiseis,parque_ecologico_san_jose). % Plaza Merliot - La Skina conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoMerliotSiete). %conecta_con(ccpuntoMerliotSiete,ccpuntoIntSkinaUno). %conecta_con(ccpuntoIntSkinaUno,plaza_la_skina). % Plaza Merliot - Parque la familia %conecta_con(plaza_merliot,ccpuntoRamblasDiesiete). %conecta_con(ccpuntoRamblasDiesiete,ccpuntoCSkinaCuarentacinco). %conecta_con(ccpuntoCSkinaCuarentacinco,ccpuntoCSkinaCuarentaseis). %conecta_con(ccpuntoCSkinaCuarentaseis,ccpuntoCSkinaCuarentasiete). %conecta_con(ccpuntoCSkinaCuarentasiete,ccpuntoCSkinaCuarentaocho). %conecta_con(ccpuntoCSkinaCuarentaocho,ccpuntoCSkinaCuarentanueve). %conecta_con(ccpuntoCSkinaCuarentanueve,ccpuntoMerliotRuno). %conecta_con(ccpuntoMerliotRuno,ccpuntoMerliotRdos). %conecta_con(ccpuntoMerliotRdos,ccpuntoMerliotRtres). %conecta_con(ccpuntoMerliotRtres,parque_la_familia). % Plaza Merliot - Las Ramblas conecta_con(plaza_merliot,ccpuntoRamblasSiete). conecta_con(ccpuntoRamblasSiete,itca_fepade). conecta_con(itca_fepade,ccpuntosIntSkinaPanamericanaCuatro). conecta_con(ccpuntosIntSkinaPanamericanaCuatro,ccpuntoMerliotSiete). %conecta_con(ccpuntoMerliotSiete,ccpuntoCSkinaCuarentaseis). conecta_con(ccpuntoCSkinaCuarentaseis,ccpuntoCSkinaCuarentasiete). conecta_con(ccpuntoCSkinaCuarentasiete,ccpuntoCSkinaCuarentaocho). %conecta_con(ccpuntoCSkinaCuarentaocho,ccpuntoCSkinaCuarentanueve). conecta_con(ccpuntoCSkinaCuarentanueve,ccpuntoCSkinaCincuenta). conecta_con(ccpuntoCSkinaCincuenta,ccpuntoCSkinaCincuentauno). conecta_con(ccpuntoCSkinaCincuentauno,ccpuntoCSkinaCincuentados). conecta_con(ccpuntoCSkinaCincuentados,ccpuntoCSkinaCincuentatres). conecta_con(ccpuntoCSkinaCincuentatres,ccpuntoCSkinaCincuentacuatro). conecta_con(ccpuntoCSkinaCincuentacuatro,ccpuntoCSkinaCincuentacinco). conecta_con(ccpuntoCSkinaCincuentacinco,plaza_las_ramblas). % Base de conocimiento y definiciones anteriores % ... % Predicado para encontrar una ruta % X: Inicio, Y: Destino, R: Ruta ir_hacia(X, Y, R) :- abolish(eslabon, 1), assert(eslabon(X)), ir_hacia_rec(X, Y, [X], R), % Inicialmente, la ruta solo contiene el punto de inicio writeln(R). % Caso base: se ha llegado al destino ir_hacia_rec(X, Y, TempR, R) :- conecta_con(X, Y), writeln(Y), assert(eslabon(Y)), reverse([Y | TempR], R). % Invierte la lista para que quede en orden de inicio a destino % Caso recursivo: sigue buscando la ruta ir_hacia_rec(X, Y, TempR, R) :- conecta_con(X, Z), not(eslabon(Z)), assert(eslabon(Z)), ir_hacia_rec(Z, Y, [Z | TempR], R), writeln(Z), !. prueba(X):- lugar(X).