Исправить код лабиринта

@STAR WARS · Регистрация: 24.11.2016

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

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DO
K$ = INKEY$
IF K$ = "K" THEN GOSUB LABIRINT
LOOP
LABIRINT:
OPEN "WWW.BAS" FOR APPEND AS #1
PRINT #1, "A = INT(RND(1)*2)"
PRINT #1, "IF A = 1 THEN LINE (10,10)-(50,10),1"
CLOSE #1
PRINT "WOD"
RETURN
 
'WWW.BAS
'SCREEN 13
'RANDOMIZE TIMER

@Pro_grammer · 21.12.2016, 11:41

Примерно так

@m-ch · 21.12.2016, 14:01

Сообщение от Pro_grammer

Но можно ли при помощи этого решения на VBA пройти конкретно нарисованный тут лабиринт?

Для этого лабиринт нужно описать в той системе, под которое сделано решение.
Сложность возникает в переводе из картинки в описание лабиринта (в виде матрицы либо в виде графа)

@Pro_grammer · 21.12.2016, 17:30

Сообщение от m-ch

Для этого лабиринт нужно описать в той системе, под которое сделано решение.

Полагаю, что описание может занять время, гораздо большее, чем само прохождение.
Скажем, станет ли кто реальный кроссворд из журнала проходить вашим способом?
Т.е. практическое использование именно в этом качестве маловероятно.

@m-ch · 21.12.2016, 18:15

Сообщение от Pro_grammer

Скажем, станет ли кто реальный кроссворд из журнала проходить вашим способом?

Данный лабиринт программным способом нет необходимости решать, в уме выход находится за несколько секунд.

Большую ценности имеет реализация волнового алгоритма
Также есть варианты реализация поиска кратчайших путей алгоритмом Дейкстры, Левита, Форда-Беллмана

К примеру поиск кратчайших маршрутов от любой точки к любой делал на графе состоящим из 264346 точек и 733846 ребер. Решение находится за считанные секунды.

данные взял здесь (New York City)
решение (файл 10МБ): https://yadi.sk/d/JxL83oXIAnqsh
Лучше запускать решение алгоритмом Дейкстры для разреженного графа либо алгоритмом Левита, стандартную Дейкстру не нужно запускать иначе комп надолго зависнет.

@Quiet Snow · 21.12.2016, 22:09

Всё очень просто, не надо никаких Дейкстр с Флойдами, обычная волна для лабиринта
работает оптимально. По поводу применимости к скану газет - это уже из области распознавания
образов, ТС в явном виде этого не требовал, до сих пор не воткнуть, что ему надобно.

(Если анимация глючит, кликнуть на картинку, откроется на отдельной вкладке):

@STAR WARS · 22.12.2016, 00:29 **[ТС]**

ПОИСК ВЫХОДА

@Pro_grammer · 22.12.2016, 08:36

Сообщение от Quiet Snow

это уже из области распознавания
образов

Всё гораздо проще, если по правилу правой руки - есть справа пиксель стены, идем вперёд, пропал - повернули направо. Ну примерно так, + - некоторые нюансы.
Мне было интересно, применим ли тот же волновой алгоритм в реальной жизни. В компьютерном мире понятно, что это оптимально. А пусть даже не журнал или газета, а физический лабиринт?

@Quiet Snow · 22.12.2016, 19:02

Сообщение от STAR WARS

ПОИСК ВЫХОДА

Иногда, в силу возраста, лучше ничего не писать на форуме, т.е. лучше использовать
форум как read only. Поверьте - это очень дельный совет и скоро вы поймёте почему.
И не нужно тыкать пальцем в небо, таким методом не попадёте - инфа 100%.
Рандом не построит вам каждый раз корректный лабиринт, а paint не найдёт маршрут, это факт.

@STAR WARS · 23.12.2016, 12:08 **[ТС]**

А ТАК НАЙДЁТ

@dr_Morro · 23.12.2016, 12:26

Сообщение от STAR WARS

А ТАК НАЙДЁТ

Цирк какой-то...

@locm · 23.12.2016, 13:59

Не по теме:

Сообщение от STAR WARS

А ТАК НАЙДЁТ

Зачем нас спрашивать? Возьми и проверь найдет или нет.

@Quiet Snow · 23.12.2016, 15:41

А ТАК НАЙДЁТ

Нет. Тыкая пальцем в небо никогда ничего не случится, чуда не произойдёт.

В большинстве случаев лабиринт, построенный случайными стенами через рандом будет
некорректен, искать в нём выход из произвольной точки - означает не найти. Для его
построения ещё на первой странице этой темы дал вам ссылку с готовым запросом в гугл,
где пройдя по ссылкам вы увидите, что умные дядьки понаписали вам кучу алгоритмов (с
пошаговыми примерами), осталось только выбрать нужный, понять и перебить в программу.

PAINT не ищет марштут и не вернёт вам путь, он хоть и работает по волновому алгоритму,
но его цель закрасить область, а не вернуть путь(набор шагов пути, относительных или абсолютных).
Половина закрашенного лабиринта - это не путь.

Более того графический метод поиска будет означать, что вам потребуется иметь
дополнительную страницу видеопамяти, это нецелесообразно, логика должна быть отделена
от графической части. Делается это для того чтобы:

Вы в любой момент могли отрисовать ваш лабиринт, либо его часть, не дёргая страницы
видеопамяти(которых может и не быть) и не мешая графической части вашей программы,
к тому же POINT\PSET работает медленнее(на EGA), чем работа с массивом(т.к. он вынужден
работать с портами ввода\вывода, а не с памятью), это может сильно замедлить работу вашей
программы.
Сделать предрасчёт (например, найти путь заранее и хранить его в массиве).
Разделить логику - это всегда удобно для дробления программы на части(функции и подпрограммы).

Поэтому дельные советы, которые реально помогут:
1) Ссылка с готовым запросом, читайте алгоритмы
2) Справка QBasic - учите язык, массивы, циклы, операторы и т.д. т.п..
3) Форум - read only, потому что больше пол темы люди гадали, что вам нужно. А вы пропустили
мимо ушей все те полезные вещи, которые были написаны по теме. Если нет усидчивости читать
ответы, то в ответной писанине ещё меньше смысла.

@Quiet Snow · 24.12.2016, 02:20

Генерация и решение лабиринта волной.
Код в самом ламерском QB стиле.
3 режима работы, автоматический(по таймеру 1/18), итеративный (по пробелу)
и полноскоростной. В итеративном режиме можно посмотреть как алгоритмы работают,
автоматический можно использовать как скринсейвер.

@PAnT0P · 29.12.2016, 14:08

Можно я тоже присоединюсь?

Поиск кратчайшего пути

Новые блоги и статьи Все статьи Все блоги /
сукцессия 6. Питон реализация энилоджиковской модели, картинка про Центральную часть будущей модели anaschu 26.06.2026 Етить. ИИ мне на основе моего старого файла R создал вот эту вот хмерь на пайтоне. Это уже новая модель, модель сукцессии грибной. потоки фосфора, азота. Углерода. 5 видов организмов. Я даже. . .	Как замкнутый ядерный цикл решит проблему недостатки фосфора? Био миграция фосфора со дна океана anaschu 26.06.2026 Биологический лифт: Концепция подъема фосфора со дна океана с помощью ЗЯТЦ Предлагаю на обсуждение альтернативу тяжелому промышленному бурению океанического дна. Вместо сложной инженерии мы можем. . .	сукцессия 5 anaschu 26.06.2026 ПЛАН РАЗРАБОТКИ математической модели сукцессии микоризных систем Переход AM → EcM (Endo + ErM) · Шумилов А. С. · ИФХиБПП РАН · Пущино · 2026 . . .	сукцессия 4 anaschu 25.06.2026 Более детализированный план разработки План доработки модели динамики микоризных симбиозов (EcM с гистерезисом) Цель: Реализовать логику переключения между эрикоидным (ErM) и эктомикоризным. . .
сукцессия 3 anaschu 25.06.2026 Примерный план работ по модели	сукцессия 2 anaschu 25.06.2026 параметризировочная калибровочная таблица будущей модели	Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал (мат мет мод 29) anaschu 23.06.2026 Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал Материалы для обсуждения с МГСУ · 2026 Рисунки внутри приложенного ворд файла. Что за. . .	28. Конкретное развертывание плана номер 1 из поста номер 27 anaschu 22.06.2026 Можно ли из модели получить конкретные строительные требования? Честно — напрямую из текущей модели такие ответы не получить. Но цепочка логики есть, и она не такая длинная. Где разрыв . . .

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	21.12.2016, 11:41
	Примерно так 1

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	21.12.2016, 22:09
	Всё очень просто, не надо никаких Дейкстр с Флойдами, обычная волна для лабиринта работает оптимально. По поводу применимости к скану газет - это уже из области распознавания образов, ТС в явном виде этого не требовал, до сих пор не воткнуть, что ему надобно. (Если анимация глючит, кликнуть на картинку, откроется на отдельной вкладке): 0

@PAnT0P 1492 / 587 / 107 Регистрация: 26.03.2012 Сообщений: 1,039
	29.12.2016, 14:08
	Можно я тоже присоединюсь? Поиск кратчайшего пути 2