движение на дороге

@studentka_iz_zp · Регистрация: 08.11.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
predicates 
ts_v_rukave1(string) ts_v_rukave2(string) 
napravo(string) 
nalevo(string) 
proedet_pered(string, string) 
proedet_pervym(string) 
proedet_vtorym(string) 
poryadok_proezda(string, string) 
razyezd_na_perekrestke(string, string, string, string, string, string) 
clauses 
ts_v_rukave1(X1) :- razyezd_na_perekrestke(X1,_,_,_,_,_) . 
ts_v_rukave2(X2) :- razyezd_na_perekrestke(_,_,X2,_,_,_) . 
napravo(X1) :- razyezd_na_perekrestke(X1,"napravo",_,_,_,_) . 
napravo(X2) :- razyezd_na_perekrestke(_,_,X2,"napravo",_,_). 
nalevo(X1) :- razyezd_na_perekrestke(X1,"nalevo",_,_,_,_) . 
nalevo(X2) :- razyezd_na_perekrestke(_,_,X2,"nalevo",_,_) . 
proedet_pered(X1,X2) :- ts_v_rukave1(X1), ts_v_rukave2(X2), napravo(X1), 
nalevo(X2) . 
proedet_pervym(X1) :- ts_v_rukave1(X1), ts_v_rukave2(X2), napravo(X1), 
nalevo(X2) . 
proedet_vtorym(X2) :- ts_v_rukave1(X1), ts_v_rukave2(X2), napravo(X1), 
nalevo(X2) . 
poryadok_proezda(X1,X2) :- write("Pervy "), write ("| Vtoroy "), nl, 
proedet_pervym(X1), proedet_vtorym(X2) . 
razyezd_na_perekrestke ("auto_1", "napravo", "auto_2", "nalevo", "", "") . 
goal 
proedet_pered("auto_1","auto_2") , 
proedet_pervym(X) , 
proedet_vtorym(Y) , 
poryadok_proezda(X1,X2) .

это движение транспорта на т-образном перекрёстке
мне нужно изменить код для своего задания
задание-- на картинке

@studentka_iz_zp · 08.11.2012, 20:53 **[ТС]**

вот теория к этой программе
Минимальное количество рукавов в перекрестке – 3 – такой перекресток на-
зывается Т-образным:
-------------------
1 2
------ ------
| 3 |
Нам нужно будет пронумеровать рукава перекрестков, как например на ри-
сунке выше – по часовой стрелке. В данном случае, неважно, по или против ча-
совой стрелки, но для определенности – по часовой стрелке.
Теперь переформулируем правило «помеха справа» в привязке к Т-
образному перекрёстку:
«Если в рукаве 1 находится автомобиль, который поворачивает направо (в
рукав 3), и в рукаве 2 находится автомобиль, который поворачивает налево
(тоже в рукав 3), то автомобиль из рукава уступает дорогу автомобилю из рука-
ва 1, т.к. иначе этот автомобиль подвергнется риску удара в правый бок»
Приступим к созданию экспертной системы. Заведём предикат
ПерекрёстокНерегулируемый (_1, _2, _3), где _1, _2, _3 – места для указания
фактов наличия или отсутствие в рукавах 1, 2, 3 автомобилей.
Тогда
ПерекрёстокНерегулируемый (да, да, да), ПерекрёстокНерегулируемый/3
(нет, да, да) и другие подобные – будут утверждениями, описывающими раз-
мещение транспортных средств на конкретном перекрёстке.
Однако, кроме факта наличия ТС в рукаве перекрестка важно знать направ-
ление дальнейшего движения ТС.
Для этого надо договориться о том, как помечать направление движения.
Например, завести 6-местный предикат
разъезд_на_перекрёстке (_1, _направление1, _2, _направление2, _3,
_направление3)
Тогда утверждение
разъезд_на_перекрёстке (да, прямо, да, налево, да, направо)
опишет ситуацию на Т-образном перекрестке, при которой автомобиль 1
едет прямо, автомобиль 2 поворачивает налево, автомобиль 3 поворачивает на-
право.
Сразу возникают ситуации, при которых повороты направо/налево или дви-
жение прямо невозможны.
Например, на Т-образном перекрёстке автомобиль 2 не может повернуть на-
право, а автомобиль 3 не может поехать прямо.
Кроме того, на перекрестке, если нет запрещающего дорожного знака «Раз-
ворот запрещён» возможен разворот, но поскольку отдельного вида ука-
зателя для автомобиля, которому нужно развернуться, нет (водитель простовключает указатель «поворот налево» и разворачивается), различать ситуации
поворота налево и разворота в данной задаче мы не будем.
Таким образом, для полного описания ситуации на перекрестке достаточно
6-местного предиката
разъезд_на_перекрёстке (_1, _направление1, _2, _направление2, _3,
_направление3),
вспомогательных предикатов для обозначения направлений
направо (_тс),
налево (_тс),
прямо (_тс)
и обозначения присутствия транспортных средств в рукавах перекрестка
тс_в_рукаве1 (_тс),
тс_в_рукаве2 (_тс),
тс_в_рукаве3 (_тс),
Предикаты, которые будут показывать результаты разъезда, назовём
проедет_первым(_тс), проедет_вторым(_тс), проедет_третьим(_тс),
проедет_перед(_тс1, _тс2,_тс3), порядок_проезда(_тс1, _тс2, _тс3).

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

@studentka_iz_zp 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 9
	08.11.2012, 20:53 [ТС]
	вот теория к этой программе Минимальное количество рукавов в перекрестке – 3 – такой перекресток на- зывается Т-образным: ------------------- 1 2 ------ ------ \| 3 \| Нам нужно будет пронумеровать рукава перекрестков, как например на ри- сунке выше – по часовой стрелке. В данном случае, неважно, по или против ча- совой стрелки, но для определенности – по часовой стрелке. Теперь переформулируем правило «помеха справа» в привязке к Т- образному перекрёстку: «Если в рукаве 1 находится автомобиль, который поворачивает направо (в рукав 3), и в рукаве 2 находится автомобиль, который поворачивает налево (тоже в рукав 3), то автомобиль из рукава уступает дорогу автомобилю из рука- ва 1, т.к. иначе этот автомобиль подвергнется риску удара в правый бок» Приступим к созданию экспертной системы. Заведём предикат ПерекрёстокНерегулируемый (_1, _2, _3), где _1, _2, _3 – места для указания фактов наличия или отсутствие в рукавах 1, 2, 3 автомобилей. Тогда ПерекрёстокНерегулируемый (да, да, да), ПерекрёстокНерегулируемый/3 (нет, да, да) и другие подобные – будут утверждениями, описывающими раз- мещение транспортных средств на конкретном перекрёстке. Однако, кроме факта наличия ТС в рукаве перекрестка важно знать направ- ление дальнейшего движения ТС. Для этого надо договориться о том, как помечать направление движения. Например, завести 6-местный предикат разъезд_на_перекрёстке (_1, _направление1, _2, _направление2, _3, _направление3) Тогда утверждение разъезд_на_перекрёстке (да, прямо, да, налево, да, направо) опишет ситуацию на Т-образном перекрестке, при которой автомобиль 1 едет прямо, автомобиль 2 поворачивает налево, автомобиль 3 поворачивает на- право. Сразу возникают ситуации, при которых повороты направо/налево или дви- жение прямо невозможны. Например, на Т-образном перекрёстке автомобиль 2 не может повернуть на- право, а автомобиль 3 не может поехать прямо. Кроме того, на перекрестке, если нет запрещающего дорожного знака «Раз- ворот запрещён» возможен разворот, но поскольку отдельного вида ука- зателя для автомобиля, которому нужно развернуться, нет (водитель простовключает указатель «поворот налево» и разворачивается), различать ситуации поворота налево и разворота в данной задаче мы не будем. Таким образом, для полного описания ситуации на перекрестке достаточно 6-местного предиката разъезд_на_перекрёстке (_1, _направление1, _2, _направление2, _3, _направление3), вспомогательных предикатов для обозначения направлений направо (_тс), налево (_тс), прямо (_тс) и обозначения присутствия транспортных средств в рукавах перекрестка тс_в_рукаве1 (_тс), тс_в_рукаве2 (_тс), тс_в_рукаве3 (_тс), Предикаты, которые будут показывать результаты разъезда, назовём проедет_первым(_тс), проедет_вторым(_тс), проедет_третьим(_тс), проедет_перед(_тс1, _тс2,_тс3), порядок_проезда(_тс1, _тс2, _тс3). 0