Оптимальный маршрут авиаперелета с учетом расписания и времени

@Tata20 · Регистрация: 06.12.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте. Помогите, пожалуйста, с программой выбора оптимального маршрута авиаперелета с учетом расписания и времени.
Вот есть такой код:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
domains
город, номер_рейса, день=string
тип_время=время(integer, integer)
тип_рейс=рейс(номер_рейса, тип_время, тип_время, список_дней)
список_рейсов=тип_рейс*
список_дней=день*
тип_перелет=перелет(номер_рейса, город, город, тип_время)
перелеты=тип_перелет*
database
расписание(город, город, список_рейсов)
predicates
nondeterm рейс(город, город, номер_рейса, тип_время, тип_время, день)
nondeterm принадлежит(тип_рейс, список_рейсов)
nondeterm принадлежит(день, список_дней)
nondeterm маршрут(город, город, день, перелеты)
nondeterm время_вылета(перелеты, тип_время)
nondeterm пересадка(тип_время, тип_время)
clauses
расписание("Нижний Новгород", "Москва", [рейс("СУ 1223", время(6, 5), время(7, 20), [ежедневно])]).
расписание("Москва", "Санкт-Петербург", [рейс("СУ 1224", время(7, 5), время(9, 20), [ежедневно])]).
принадлежит(X, [X|_]).
принадлежит(X, [_|L]):- принадлежит(X,L).
рейс(Город1, Город2, Номер_рейса, Время_вылета, Время_прибытия, День):- 
расписание(Город1, Город2, Список_рейсов), принадлежит(рейс(Номер_рейса, Время_вылета, Время_прибытия, Список_дней), Список_рейсов),
принадлежит(День, Список_дней).
маршрут(Город1, Город2, День, [перелет(Номер_рейса, Город1, Город2, Время_вылета)]):-рейс(Город1, Город2, Номер_рейса, Время_вылета, _, День). 
маршрут(Город1, Город2, День, [перелет(Номер_рейса, Город1, Город3, Время_вылета1)|Маршрут]):-маршрут(Город3, Город2, День, Маршрут), рейс(Город1, Город3, Номер_рейса, Время_вылета1, Время_прибытия1, День), 
время_вылета(Маршрут, Время_вылета2), пересадка(Время_прибытия1, Время_вылета2).
время_вылета([перелет(Номер_рейса, Город1, Город3, Время_вылета)|_], Время_вылета).
пересадка(время(Часы1, Минуты1), время(Часы2, Минуты2)):-(60*(Часы2-Часы1)+(Минуты2-Минуты1))>=40.

Но пишет ошибку на предикате время_вылета в строчках 28-29.
Подскажите, что не так, и как организовать счетчик, чтобы выводил оптимальный путь за минимальное время перелета, и как сделать переход на другие сутки.

@Tata20 · 08.12.2012, 18:15 **[ТС]**

Помогите, пожалуйста!!! который день бьюсь, не могу никак разобраться

@Грымзик · 08.12.2012, 20:37

Сейчас нет возможности проверить, но могу предположить, что компилятор жалуется на большое количество неиспользуемых переменных. Замените Номер_рейса, Город1, Город3 на безымянные переменные. Переход на другие сутки сейчас не сделаешь, для этого надо как минимум число сегодняшнее добавить. А про счетчик можно тут посмотреть Поиск в пространстве состояний (поиск по графам тоже сюда!)

@Tata20 · 08.12.2012, 20:43 **[ТС]**

переход на другие сутки предполагает, что самолет вылетел к примеру в вс вечером а прилетел на следующее утро и надо эту информацию вывести

@Грымзик · 08.12.2012, 22:20

Для рейса можно, а вот для перерыва между рейсами нельзя. А для рейса переход

Prolog
1
2
3
4
время_в_пути(время(Часы1, Минуты1), время(Часы2, Минуты2), Время):- Часы1 <= Часы2,!,
     Время = 60*(Часы2-Часы1)+(Минуты2-Минуты1).
время_в_пути(время(Часы1, Минуты1), время(Часы2, Минуты2), Время):-
     Время = 60*(24 + Часы2-Часы1)+(Минуты2-Минуты1).

@Tata20 · 09.12.2012, 14:03 **[ТС]**

попыталась разобраться с поиском в весовом графе, но не понимаю нужен ли в моей программе предикат move и где в таком поиске можно использовать мой предикат маршрут?

@Грымзик · 09.12.2012, 14:26

Предикат move нужен. Состояние определяется параметра ТекущийГород, и Текущее время
move(s(ГородА,ВремяА), s(ГородБ,ВремяБ), ВремяНаПеремещение):-есть рейс из ГородА в ГородБ,
при этом вылет из ГородаА не раньше, чем ВремяА, и тогда ВремяБ будет временем прилета в ГородБ,
а ВремяНаПеремещение = ВремяБ-ВремяА
И теперь предикат "маршрут" становится бесполезен. Это поиск в глубину, с помощью него никакой оптимальности нельзя добиться.

@Tata20 · 09.12.2012, 15:52 **[ТС]**

объясните, пожалуйста, еще вот этот предикат
prolong(w(Length,[Temp|Tail]),w(NewLength,[New,Temp|Tail])):-
move(Temp,New,C),not(member(New,[Temp|Tail])),NewLength=Length+C.
и как его можно переделать для моего случая?

@Грымзик · 09.12.2012, 16:40

Я объясняла в теме, если все-таки не понятно, то гляньте в упомянутой там книге. Предикат prolong переделывать для Вашего случае вообще не надо. Надо просто определить move.

@Tata20 · 09.12.2012, 18:13 **[ТС]**

Спасибо за помощь, но вот еще такой вопрос как в таком случае в конце вывести информацию о перелетах, т.е. ГородА, ГородБ, время вылета, время прибытия, ГородБ, ГородВ...?
и где вставить пересадку? и проблема с днями недели где то нужен счетчик, чтобы считал день вылета и день прилета, к примеру, вылетел в понедельник, а прилетел в среду.

@Грымзик · 10.12.2012, 11:56

Не дни недели лучше, а число. Для этого время надо в таком виде хранить
время(31, 6, 5)
Пока измените просто move, и тогда уже будет выводиться в таком виде
s(Москва,время(20,21,15))
s(Питер,время(20,23,30))
s(Калининград,время(21,3,40))
...
А потом скажу как дальше делать. Надо будет еще один список использовать, где действия описываются.

@Tata20 · 10.12.2012, 12:21 **[ТС]**

Помогите, пожалуйста, с поиском move я изменила, но не работает, пыталась другие предикаты изменять все равно не получается(

@Tata20 · 19.12.2012, 00:52 **[ТС]**

Помогите, пожалуйста, времени осталось мало, скоро сдавать((

Добавлено через 12 часов 30 минут
объясните, пожалуйста, еще раз как изменить предикат move, а то у меня поиск работает только если время прибытия первого рейса совпадает с временем вылета второго рейса

@Грымзик · 19.12.2012, 21:45

Да куда уж понятнее

move(s(ГородА,ВремяА), s(ГородБ,ВремяБ), ВремяНаПеремещение):-есть рейс из ГородА в ГородБ,
при этом вылет из ГородаА не раньше, чем ВремяА, и тогда ВремяБ будет временем прилета в ГородБ,
а ВремяНаПеремещение = ВремяБ-ВремяА

Prolog
1
2
3
раньше(врeмя(D1,_,_),врeмя(D2,_,_)):-D1<D2,!.
раньше(врeмя(D,H1,_),врeмя(D,H2,_)):-H1<H2,!.
раньше(врeмя(D,H,M1),врeмя(D,H,M2)):-M1<M2.

@Tata20 · 19.12.2012, 22:21 **[ТС]**

SOS!!! умоляю, не сочти за труд, подскажи еще: куда вставить предикаты "раньше"?

@Грымзик · 19.12.2012, 22:44

Эх... как-то так

Prolog
1
2
3
4
5
move(s(ГородА,ВремяА,ПредыдущийРейс), s(ГородБ,ВремяБ,НомерРейса), ВремяНаПеремещение):-
     расписание(ГородА, ГородБ, Рейсы),
     member(рейс(НомерРейса, ВремяОтправления, ВремяБ),Рейсы),%уж без списка дней давайте
     раньше(ВремяА,ВремяОтправления),
     время_в_пути(ВремяБ,ВремяА,ВремяНаПеремещение).%с учетом ожидания рейса

@Tata20 · 19.12.2012, 23:22 **[ТС]**

спасибо!!! еще репу почешу, но замолчать не обещаю уже две недели не сплю!

Добавлено через 34 минуты

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
domains
город, номер_рейса=string
день, времяПути=integer
список_дней=день*
тип_время=время(integer, integer)
тип_пункт=пункт(город, тип_время, номер_рейса)
пункты=тип_пункт*
тип_путь=путь(времяПути, пункты)
пути=тип_путь*
predicates
nondeterm рейс(город, город, номер_рейса, тип_время, тип_время)
nondeterm принадлежит(тип_пункт, пункты)
nondeterm принадлежит(день, список_дней)
nondeterm время_в_пути(тип_время, тип_время, времяПути)
nondeterm перемещение(тип_пункт, тип_пункт, времяПути)
nondeterm продлить(тип_путь, тип_путь)
nondeterm место(пути, пути, пути)
nondeterm поместить_на_место(тип_путь, пути, пути)
nondeterm запрос(город, город)
nondeterm поиск(пути, тип_пункт, тип_путь)
nondeterm ответ(пункты)
nondeterm вывод(времяПути, тип_время, времяПути, времяПути)
nondeterm раньше(тип_время, тип_время)
clauses
% база данных
рейс("Нижний Новгород", "Москва", "СУ 1223", время(6, 00), время(7, 35)).
рейс("Москва", "Санкт-Петербург", "СУ 122", время(9, 35), время(12, 55)).
 
принадлежит(X, [X|_]).
принадлежит(X, [_|L]):- принадлежит(X,L).
 
% определяем время  и день перелета         
время_в_пути(время(Часы1, Минуты1), время(Часы2, Минуты2), ВремяПути):- Часы1 <= Часы2, !, 
     ВремяПути = 60*(Часы2-Часы1)+(Минуты2-Минуты1).
время_в_пути(время(Часы1, Минуты1), время(Часы2, Минуты2), ВремяПути):-
     ВремяПути = 60*(24 + Часы2-Часы1)+(Минуты2-Минуты1).
     
перемещение(пункт(ГородА, ВремяА, ПредыдущийРейс), пункт(ГородБ, ВремяБ, НомерРейса), ВремяНаПеремещение):- 
    рейс(ГородА, ГородБ, НомерРейса, ВремяВылета, ВремяБ), раньше(ВремяА, ВремяВылета),  
    время_в_пути(ВремяБ, ВремяА, ВремяНаПеремещение).
    
раньше(время(Часы1, _), время(Часы2, _)):- Часы1 < Часы2, !.
раньше(время(Часы, Минуты1), время(Часы, Минуты2)):- Mинуты1 < Mинуты2.
 
% делаем шаг и проверяем, чтобы он не привел к состоянию в котором мы уже побывали
продлить(путь(ВремяПути1, [Город1|Хвост]), путь(ВремяПути2, [Город2, Город1|Хвост])):-
    перемещение(Город1, Город2, ВремяПути),
    not(принадлежит(Город2, [Город1|Хвост])),
    ВремяПути2 = ВремяПути1 + ВремяПути.
    
% расставляем пути из списка по нужным местам
место([], L, L).
%вставляем  на нужное место первый путь и продолжаем расставлять остальные
место([X|T], R, L) :-
    поместить_на_место(X, R, R1),
    место(T, R1, L).
    
% добавляем новый путь в список уже найденных путей на нужное место  
поместить_на_место(путь(C, P), [путь(C1, P1)|R], [путь(C, P), путь(C1, P1)|R]) :- C<=C1, !.
поместить_на_место(C, [X|T], [X|R]) :- поместить_на_место(C, T, R).
поместить_на_место(C, [], [C]).
 
%если в текущем пути первая вершина совпадает с конечной, то данный путь является ответом.    
поиск([путь(ВремяПути, [пункт(ГородБ, время(Ч2, М2), Нр2)|T])|_], пункт(ГородБ, время(Ч2, М2), Нр2), 
    путь(ВремяПути, [пункт(ГородБ, время(Ч2, М2), Нр2)|T])).    
%ищем все способы, которыми можно сделать шаг из текущего состояния первого пути    
поиск([Ч|Ч1], пункт(ГородБ, время(Ч2, М2), Нр2), R):-
    findall(Z, продлить(Ч, Z), Новая_часть),
    %добавляем все эти способы в конец нашего списка путей
    место(Новая_часть, Ч1, Новый_путь),
    %и продолжаем поиск
    поиск(Новый_путь, пункт(ГородБ, время(Ч3, М2), Нр2), R).
    
вывод(ВремяПути, время(Ч, М), Т, Ч1) :- Ч1=(ВремяПути/60), Т=Ч1*60, Т>ВремяПути, Ч=Ч1-1, М=ВремяПути-Ч*60.    
вывод(ВремяПути, время(Ч, М), Т, Ч1) :- Ч1=(ВремяПути/60), Т=Ч1*60, Т<=ВремяПути, Ч=Ч1, М=ВремяПути-Ч*60.
    
запрос(ГородА, ГородБ) :-
    поиск([путь(0, [пункт(ГородА, время(Ч1, М1), Нр1)])], пункт(ГородБ, время(Ч2, М2), Нр2), путь(ВремяПути, Результат)), 
    ответ(Результат), write(" Время в пути "), вывод(ВремяПути, время(Ч, М), Т, Ч3), write(Ч), write(" ч. "), write(М), write(" мин. ").    
    
ответ([_]):-!.
ответ([пункт(ГородА, время(Ч1, М1), Нр1), пункт(ГородБ, время(Ч2, М2), Нр2)|Хвост]) :- 
    ответ([пункт(ГородБ, время(Ч2, М2), Нр2)|Хвост]), nl,
    write(ГородБ), write(" Время вылета "), write(Ч2), write(" : "), write(М2), write(" № рейса "), 
    write(Нр2),
    write(" -> "), write(ГородА), write(" Время прибытия "), write(Ч1), write(" : "), write(М1), write(" № рейса "), 
    write(Нр1).
    
goal
запрос("Нижний Новгород", "Санкт-Петербург").

все сделала как вы сказали. ну, пожалуйста, посмотрите что же ему еще от меня надо??? по вашему совету убрала дни, чтобы без списка. а теперь-то что же делать???!!! список-то нужен ох...

@Грымзик · 20.12.2012, 21:55

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
domains
город, номер_рейса=string
день, времяПути=integer
список_дней=день*
тип_время=время(integer, integer)
тип_пункт=пункт(город, тип_время, номер_рейса)
пункты=тип_пункт*
тип_путь=путь(времяПути, пункты)
пути=тип_путь*
predicates
nondeterm рейс(город, город, номер_рейса, тип_время, тип_время)
nondeterm принадлежит(тип_пункт, пункты)
nondeterm принадлежит(день, список_дней)
nondeterm время_в_пути(тип_время, тип_время, времяПути)
nondeterm перемещение(тип_пункт, тип_пункт, времяПути)
nondeterm продлить(тип_путь, тип_путь)
nondeterm расставить(пути, пути, пути)
nondeterm поместить_на_место(тип_путь, пути, пути)
nondeterm запрос(город, город)
nondeterm поиск(пути, город, тип_путь)
nondeterm ответ(пункты)
%nondeterm вывод(времяПути, тип_время, времяПути, времяПути)
nondeterm раньше(тип_время, тип_время)
nondeterm для_первого_рейса_не_надо_считать_время_ожидания_вылета(тип_время,тип_время,тип_время).
clauses
% база данных
%рейс("Нижний Новгород", "Москва", "СУ 1223", время(6, 00), время(7, 35)).
%рейс("Москва", "Санкт-Петербург", "СУ 122", время(9, 35), время(12, 55)).
 
рейс("NN", "M", "SU 1223", время(6, 00), время(7, 35)).
рейс("M", "SP", "SU 122", время(9, 35), время(12, 55)).
 
принадлежит(X, [X|_]).
принадлежит(X, [_|L]):- принадлежит(X,L).
 
% определяем время  и день перелета         
время_в_пути(время(Часы1, Минуты1), время(Часы2, Минуты2), ВремяПути):- Часы1 <= Часы2, !, 
     ВремяПути = 60*(Часы2-Часы1)+(Минуты2-Минуты1).
время_в_пути(время(Часы1, Минуты1), время(Часы2, Минуты2), ВремяПути):-
     ВремяПути = 60*(24 + Часы2-Часы1)+(Минуты2-Минуты1).
 
для_первого_рейса_не_надо_считать_время_ожидания_вылета(время(-1,-1),ВремяВылета,ВремяВылета):-!.
для_первого_рейса_не_надо_считать_время_ожидания_вылета(Время,_,Время).
    
перемещение(пункт(ГородА, ВремяА, _), пункт(ГородБ, ВремяБ, НомерРейса), ВремяНаПеремещение):- 
    рейс(ГородА, ГородБ, НомерРейса, ВремяВылета, ВремяБ), раньше(ВремяА, ВремяВылета),
    для_первого_рейса_не_надо_считать_время_ожидания_вылета(ВремяА,ВремяВылета,СтартОтсчета),
    время_в_пути(СтартОтсчета,ВремяБ,ВремяНаПеремещение).
    
раньше(время(Часы1, _), время(Часы2, _)):- Часы1 < Часы2, !.
раньше(время(Часы, Минуты1), время(Часы, Минуты2)):- Минуты1 < Минуты2.
 
% делаем шаг и проверяем, чтобы он не привел к состоянию в котором мы уже побывали
продлить(путь(ВремяПути1, [Город1|Хвост]), путь(ВремяПути2, [Город2, Город1|Хвост])):-
    перемещение(Город1, Город2, ВремяПути),
    not(принадлежит(Город2, [Город1|Хвост])),
    ВремяПути2 = ВремяПути1 + ВремяПути.
    
% расставляем пути из списка по нужным местам
расставить([], L, L).
%вставляем  на нужное место первый путь и продолжаем расставлять остальные
расставить([X|T], R, L) :-
    поместить_на_место(X, R, R1),
    расставить(T, R1, L).
    
% добавляем новый путь в список уже найденных путей на нужное место 
поместить_на_место(путь(C, P), [путь(C1, P1)|R], [путь(C, P), путь(C1, P1)|R]) :- C<=C1, !.
поместить_на_место(C, [X|T], [X|R]) :- поместить_на_место(C, T, R).
поместить_на_место(C, [], [C]).
 
%если в текущем пути первая вершина совпадает с конечной, то данный путь является ответом.  
поиск([Путь|_], ГородБ, Путь):- Путь = путь(_,[пункт(ГородБ, _,_)|_]),!.
%ищем все способы, которыми можно сделать шаг из текущего состояния первого пути    
поиск([Ч|ДругиеПути], ГородБ , R):-
    findall(Z, продлить(Ч, Z), ЕщеПути),
    %добавляем все эти способы в конец нашего списка путей
    расставить(ЕщеПути, ДругиеПути, НовыеПути),
    %и продолжаем поиск
    поиск(НовыеПути, ГородБ, R).
    
%вывод(ВремяПути, время(Ч, М), Т, Ч1) :- Ч1=(ВремяПути/60), Т=Ч1*60, Т>ВремяПути, Ч=Ч1-1, М=ВремяПути-Ч*60.    
%вывод(ВремяПути, время(Ч, М), Т, Ч1) :- Ч1=(ВремяПути/60), Т=Ч1*60, Т<=ВремяПути, Ч=Ч1, М=ВремяПути-Ч*60.
    
запрос(ГородА, ГородБ) :-
    поиск([путь(0, [пункт(ГородА, время(-1, -1), "")])], ГородБ, путь(Время, Результат)), 
    ответ(Результат), nl,write(" Время в пути (в мин) ", Время).    
    
ответ([пункт(ГородА, _, _)]):-!,write("Prishli v aeroport goroda ",ГородА).
ответ([пункт(ГородА, _, Нр), ПунктБ|Хвост]) :- 
    ответ([ПунктБ|Хвост]), nl,ПунктБ=пункт(ГородБ,_,_),
    write(ГородБ," -> ", ГородА," | "),
    рейс(_, _, Нр, время(Ч1,М1), время(Ч2, М2)),
    write(" N reisa ",Нр,", ",Ч1,":",М1," - ",Ч2,":",М2).
    
goal
запрос("NN", "SP"),nl.

@Tata20 · 20.12.2012, 22:21 **[ТС]**

ОГРОМНОЕ СПАСИБО!!!
1. как я могу вас отблагодарить? вы меня спасли!
2. мне очень стыдно, но чтобы не испортить ваш драгоценный труд, подскажите куда и как можно вставить ограничение по пересадке не более два часа?

@Грымзик · 20.12.2012, 23:15

Вставьте в предикат "раньше".

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	08.12.2012, 18:15 [ТС]
	Помогите, пожалуйста!!! который день бьюсь, не могу никак разобраться 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	08.12.2012, 20:37
	Сейчас нет возможности проверить, но могу предположить, что компилятор жалуется на большое количество неиспользуемых переменных. Замените Номер_рейса, Город1, Город3 на безымянные переменные. Переход на другие сутки сейчас не сделаешь, для этого надо как минимум число сегодняшнее добавить. А про счетчик можно тут посмотреть Поиск в пространстве состояний (поиск по графам тоже сюда!) 0

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	08.12.2012, 20:43 [ТС]
	переход на другие сутки предполагает, что самолет вылетел к примеру в вс вечером а прилетел на следующее утро и надо эту информацию вывести 0

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	09.12.2012, 14:03 [ТС]
	попыталась разобраться с поиском в весовом графе, но не понимаю нужен ли в моей программе предикат move и где в таком поиске можно использовать мой предикат маршрут? 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	09.12.2012, 14:26
	Предикат move нужен. Состояние определяется параметра ТекущийГород, и Текущее время move(s(ГородА,ВремяА), s(ГородБ,ВремяБ), ВремяНаПеремещение):-есть рейс из ГородА в ГородБ, при этом вылет из ГородаА не раньше, чем ВремяА, и тогда ВремяБ будет временем прилета в ГородБ, а ВремяНаПеремещение = ВремяБ-ВремяА И теперь предикат "маршрут" становится бесполезен. Это поиск в глубину, с помощью него никакой оптимальности нельзя добиться. 1

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	09.12.2012, 15:52 [ТС]
	объясните, пожалуйста, еще вот этот предикат prolong(w(Length,[Temp\|Tail]),w(NewLength,[New,Temp\|Tail])):- move(Temp,New,C),not(member(New,[Temp\|Tail])),NewLength=Length+C. и как его можно переделать для моего случая? 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	09.12.2012, 16:40
	Я объясняла в теме, если все-таки не понятно, то гляньте в упомянутой там книге. Предикат prolong переделывать для Вашего случае вообще не надо. Надо просто определить move. 1

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	09.12.2012, 18:13 [ТС]
	Спасибо за помощь, но вот еще такой вопрос как в таком случае в конце вывести информацию о перелетах, т.е. ГородА, ГородБ, время вылета, время прибытия, ГородБ, ГородВ...? и где вставить пересадку? и проблема с днями недели где то нужен счетчик, чтобы считал день вылета и день прилета, к примеру, вылетел в понедельник, а прилетел в среду. 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	10.12.2012, 11:56
	Не дни недели лучше, а число. Для этого время надо в таком виде хранить время(31, 6, 5) Пока измените просто move, и тогда уже будет выводиться в таком виде s(Москва,время(20,21,15)) s(Питер,время(20,23,30)) s(Калининград,время(21,3,40)) ... А потом скажу как дальше делать. Надо будет еще один список использовать, где действия описываются. 1

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	10.12.2012, 12:21 [ТС]
	Помогите, пожалуйста, с поиском move я изменила, но не работает, пыталась другие предикаты изменять все равно не получается( 0

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	19.12.2012, 00:52 [ТС]
	Помогите, пожалуйста, времени осталось мало, скоро сдавать(( Добавлено через 12 часов 30 минут объясните, пожалуйста, еще раз как изменить предикат move, а то у меня поиск работает только если время прибытия первого рейса совпадает с временем вылета второго рейса 0

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	19.12.2012, 22:21 [ТС]
	SOS!!! умоляю, не сочти за труд, подскажи еще: куда вставить предикаты "раньше"? 0

@Tata20 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 17
	20.12.2012, 22:21 [ТС]
	ОГРОМНОЕ СПАСИБО!!! 1. как я могу вас отблагодарить? вы меня спасли! 2. мне очень стыдно, но чтобы не испортить ваш драгоценный труд, подскажите куда и как можно вставить ограничение по пересадке не более два часа? 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	20.12.2012, 23:15
	Вставьте в предикат "раньше". 0