Вверх ↑
Этот топик читают: Гость
Ответов: 632
Рейтинг: 4
#226: 2019-08-25 16:51:32 ЛС | профиль | цитата
flint2, попробовал в примере, который идет с прологом сделать код
код
// Условие задачи: Сократ — человек. Все люди смертны.
// Найти: Смертен ли Сократ?
// Запишем условие в терминах языка пролога
// Сократ - человек
human(sokrat).
// Платон - тоже человек
human(platon).

// Чтобы некто был смертным, он должен быть человеком
mortal(Someone) :- human(Someone).
//теперь спросим пролог систему, смертен ли Сократ:
?- mortal(sokrat).

Yes // да
Правда не чего не получается. Пока не понимаю, как эти компоненты работают.
карма: 0

0
Ответов: 632
Рейтинг: 4
#227: 2019-08-25 23:59:38 ЛС | профиль | цитата
Попробовал все варианты, которые пришли в голову. Один получился. Правда задачу поменял.
"?- mortal(sokrat).", "?-mortal(sokrat).), "?-mortal(sokrat)".
Сработал вариант "mortal(sokrat)." Возможно, я чего-то не понял.

--- Добавлено в 2019-08-26 00:18:09

flint2, не понял только, для чего нужен "clear.xpl"?

Редактировалось 1 раз(а), последний 2019-08-26 00:18:09
карма: 0

0
Ответов: 2059
Рейтинг: 131
#228: 2019-08-26 11:39:56 ЛС | профиль | цитата
Vadimluk1, ?- это синтаксический сахар.
При передаче запросов от кубиков этого сахара совсем не нужно.
Это только лишнее усложнение парсера. Парсер можно переделать со своими предпочтениями в (hiDialogueDB.pas).
Пример:
Пример:
man(pavel)
man(petr)
man(anton)
man(oleg)
man(vasya)
man(denis)

woman(vera)
woman(ira)
woman(anya)
woman(tanya)
woman(katya)
woman(yulya)

married(petr,vera)
married(anton,ira)
married(oleg,anya)
married(vasya,tanya)

husband(HUSBUND,WIFE):-married(HUSBUND,WIFE),man(HUSBUND),woman(WIFE)
wife(WIFE,HUSBUND):-married(HUSBUND,WIFE),man(HUSBUND),woman(WIFE)
suprug(X,Y):-husband(X,Y);wife(X,Y)

Вопросы:
man(sergey) ответ sergey
man(X) ответ pavel
Все варианты: pavel, petr, anton, oleg, vasya, denis, sergey, sergey
married(X,marina) ответ sergey
married(oleg,Y) ответ: anya
Любое слово с заглавной буквы считается переменной.
"_" - неконкретизируемая переменная.
Верхнее поле ввода (точка Assert)служит для добавления фактов и правил к уже прочитанному скрипту.
clear.err - логфайл.
clear.xpl - это предопределённые примитивы в бинарной форме - атомы.

Вот ещё парочка компонентов: © Шариков.
HashTableString - https://yadi.sk/d/B6vlBcGdXLaqCg
commutator - https://yadi.sk/d/WedqgYmk7SRwWw
PEAnalysis - https://yadi.sk/d/AJrOlxahTqQxAA Добавлено изменение точки входа и создание дополнительных секций.
ShellBrowser - https://yadi.sk/d/mJ-WLTZRteGJvQ Добавлен переход на файл из потока.

Редактировалось 2 раз(а), последний 2019-08-26 12:05:49
карма: 6

1
Голосовали:Vadimluk1
Ответов: 632
Рейтинг: 4
#229: 2019-08-26 13:25:24 ЛС | профиль | цитата
flint2, c примером, я разобрался. Пока, только не понял, как сделать все с 0 и как создавать это в ручную "clear.xpl - это предопределённые примитивы в бинарной форме - атомы." или обходить "clear.xpl - это предопределённые примитивы в бинарной форме - атомы."?
карма: 0

0
Ответов: 2059
Рейтинг: 131
#230: 2019-08-26 14:04:21 ЛС | профиль | цитата
Vadimluk1 писал(а):
или обходить "clear.xpl

Зачем тебе обходить clear.xpl???
В нём прописаны буковки и знаки.
Без него пролог не прочтёт ни одной буквы! Без него ничего работать не будет!
Это снимок памяти пустой базы с заводской прошивкой атомов, куда ты и будешь всё добавлять.
как сделать все с 0

Что это значит? Просто пишешь в любом текстовом редакторе правила и факты и если надо чего-то добавить в ходе работы, то добавляешь через точку Assert.
Всё просто, как три копейки.
Сам ты clear.xpl не сделаешь. Для этого нужна отдельная зарегистрированная программа, причём определённой версии.
С того момента, когда была эта версия прошло много времени и такой версии не существует, а может и сайта тоже.
http://amzi.com/
https://forum.hiasm.com/getfile/38724

Редактировалось 5 раз(а), последний 2019-08-26 14:53:42
карма: 6

1
Голосовали:Vadimluk1
Ответов: 632
Рейтинг: 4
#231: 2019-08-26 19:06:34 ЛС | профиль | цитата
flint2 писал(а):
Без него пролог не прочтёт ни одной буквы! Без него ничего работать не будет!
Это снимок памяти пустой базы с заводской прошивкой атомов

Ясно.
Буду пробовать, пока все отлично.

--- Добавлено в 2019-08-26 19:16:49

фрагмент из структур лексико-семантической информации

r:concr — предметные имена (девочка, стол, молоко)
r:abstr — непредметные имена (вождение, яркость, время)
r:propn — имена собственные (Иван, Эйнштейн, Петроград)
Предметные имена
Лексико-семантические пометы
Таксономия:
t:hum — лица (человек, учитель)
t:hum:etn — этнонимы (эфиоп, итальянка)
t:hum:kin — имена родства (брат, бабушка)
t:hum:supernat — сверхъестественные существа (русалка, инопланетянин)
t:animal — животные (корова, жираф, сорока, ящерица, муравей)
t:plant — растения (береза, роза, трава)
t:stuff — вещества и материалы (вода, песок, тесто, жесть, шелк)
t:space — пространство и место (космос, город, тайга, овраг, вход)
t:constr — здания и сооружения (дом, шалаш, мост)
t:tool — инструменты и приспособления (молоток, палка, пуговица, машина)
t:tool:instr — инструменты (молоток, штопор, игла, карандаш)
t:tool:device — механизмы и приборы (телефон, сеялка, градусник)
t:tool:transp — транспортные средства (автобус, поезд, сани)
t:tool:weapon — оружие (сабля, пистолет, гаубица)
Этот список пролог сможет понять? Возможно его научить?

Редактировалось 1 раз(а), последний 2019-08-26 19:16:49
карма: 0

0
Ответов: 2059
Рейтинг: 131
#232: 2019-08-26 21:44:14 ЛС | профиль | цитата
Этот список пролог сможет понять? Возможно его научить?

Да, научить можно.
Только не надо делать списки пролога из слов входящих в ту, или иную категорию в падежах и склонениях.
Получится очень большая и неповоротливая база. Хотя сделать так очень заманчиво. Но если списки будут состоять из слов в простой форме, то это будет не так много. Около полумиллиона.
Пролог должен оперировать с названиями категорий на более высоком уровне абстракций.
Сначала все слова текста переводятся в простую форму.
По простой форме определяется принадлежность к категории.
С помощью категорий делаются запросы к базе пролога, где описаны какие-то правила и формируется ответ.
Сначала ответ состоит из слов в простой форме, а потом делается склонение и спряжение по определённым правилам. Тут есть несколько подходов.
Например для написания рассказов мне удобна вот такая форма:
|25 21 19 1 46 35|26 24 21 19 1 35|4|25 21 19 3 35|и|25 21 19 3 35|,|что|25 22 19 1 35|40 37 35 31 19 2 22 21 23 41|на|28 22 20 1 35|.
Это некий шаблон предложения состоящий из морфатрибутов. В зависимости от развития сюжета сюда подставляются нужные слова и склоняются согласно этим атрибутам. Например может выглядеть так:
Вспышка звезды столь всеохватывающая и молниеносная, что свет отстает на века.

Таких шаблонов сотни и подбираются они по определённым правилам.
Можно сделать по Марковским вероятностным целям.

Редактировалось 5 раз(а), последний 2019-08-26 22:42:06
карма: 6

1
Голосовали:Vadimluk1
Ответов: 632
Рейтинг: 4
#233: 2019-08-27 09:07:47 ЛС | профиль | цитата
Что бы морфология работала, нужно 2 dll файла и папка "Data" или программа может без них работать? Я попытался сделать ввод слова с 2 "Memo"редакторов текста на сравнения их по правилам, но программа все равно не запускается, даже с 2 dll файлами (dwf.dll, arm.dll) и папкой "data".

У меня ещё один вопрос. Как подключить для перебора список "All_Forms.txt"
фрагмент All_Forms.txt
а#а
аба#аба',абы',абы',а'б,абе',аба'м,абу',абы',або'й,або'ю,аба'ми,абе',аба'х
абажур#абажу'р,абажу'ры,абажу'ра,абажу'ров,абажу'ру,абажу'рам,абажу'р,абажу'ры,абажу'ром,абажу'рами,абажу'ре,абажу'рах
абажурный#абажу'рный,абажу'рная,абажу'рное,абажу'рные,абажу'рного,абажу'рной,абажу'рного,абажу'рных,абажу'рному,абажу'рной,абажу'рному,абажу'рным,абажу'рный,абажу'рную,абажу'рное,абажу'рные,абажу'рного,абажу'рную,абажу'рное,абажу'рных,абажу'рным,абажу'рной,абажу'рною,абажу'рным,абажу'рными,абажу'рном,абажу'рной,абажу'рном,абажу'рных,абажу'рен,абажу'рна,абажу'рно,абажу'рны,абажу'рнее,поабажу'рнее,абажу'рней,поабажу'рней
абаз#аба'з,аба'зы,аба'за,аба'зов,аба'зу,аба'зам,аба'з,аба'зы,аба'зом,аба'зами,аба'зе,аба'зах
абазин#абази'н,абази'ны,абази'на,абази'н,абази'ну,абази'нам,абази'на,абази'н,абази'ном,абази'нами,абази'не,абази'нах
абазинец#абази'нец,абази'нцы,абази'нца,абази'нцев,абази'нцу,абази'нцам,абази'нца,абази'нцев,абази'нцем,абази'нцами,абази'нце,абази'нцах
абазинка#абази'нка,абази'нки,абази'нки,абази'нок,абази'нке,абази'нкам,абази'нку,абази'нок,абази'нкой,абази'нкою,абази'нками,абази'нке,абази'нках
абазинский#абази'нский,абази'нская,абази'нское,абази'нские,абази'нского,абази'нской,абази'нского,абази'нских,абази'нскому,абази'нской,абази'нскому,абази'нским,абази'нский,абази'нскую,абази'нское,абази'нские,абази'нского,абази'нскую,абази'нское,абази'нских,абази'нским,абази'нской,абази'нскою,абази'нским,абази'нскими,абази'нском,абази'нской,абази'нском,абази'нских,абази'нск,абази'нска,абази'нско,абази'нски
абак#аба'к,аба'ки,аба'ка,аба'ков,аба'ку,аба'кам,аба'к,аба'ки,аба'ком,аба'ками,аба'ке,аба'ках
абака#аба'ка,аба'ки,аба'ки,аба'к,аба'ке,аба'кам,аба'ку,аба'ки,аба'кой,аба'кою,аба'ками,аба'ке,аба'ках
абака#абака',абаки',абаки',аба'к,абаке',абака'м,абаку',абаки',абако'й,абако'ю,абака'ми,абаке',абака'х
аббат#абба'т,абба'ты,абба'та,абба'тов,абба'ту,абба'там,абба'та,абба'тов,абба'том,абба'тами,абба'те,абба'тах
аббатиса#аббати'са,аббати'сы,аббати'сы,аббати'с,аббати'се,аббати'сам,аббати'су,аббати'с,аббати'сой,аббати'сою,аббати'сами,аббати'се,аббати'сах
аббатский#абба'тский,абба'тская,абба'тское,абба'тские,абба'тского,абба'тской,абба'тского,абба'тских,абба'тскому,абба'тской,абба'тскому,абба'тским,абба'тский,абба'тскую,абба'тское,абба'тские,абба'тского,абба'тскую,абба'тское,абба'тских,абба'тским,абба'тской,абба'тскою,абба'тским,абба'тскими,абба'тском,абба'тской,абба'тском,абба'тских,абба'тск,абба'тска,абба'тско,абба'тски
аббатство#абба'тство,абба'тства,абба'тства,абба'тств,абба'тству,абба'тствам,абба'тство,абба'тства,абба'тством,абба'тствами,абба'тстве,абба'тствах
аббревиатура#аббревиату'ра,аббревиату'ры,аббревиату'ры,аббревиату'р,аббревиату'ре,аббревиату'рам,аббревиату'ру,аббревиату'ры,аббревиату'рой,аббревиату'рою,аббревиату'рами,аббревиату'ре,аббревиату'рах
аббревиатурный#аббревиату'рный,аббревиату'рная,аббревиату'рное,аббревиату'рные,аббревиату'рного,аббревиату'рной,аббревиату'рного,аббревиату'рных,аббревиату'рному,аббревиату'рной,аббревиату'рному,аббревиату'рным,аббревиату'рный,аббревиату'рную,аббревиату'рное,аббревиату'рные,аббревиату'рного,аббревиату'рную,аббревиату'рное,аббревиату'рных,аббревиату'рным,аббревиату'рной,аббревиату'рною,аббревиату'рным,аббревиату'рными,аббревиату'рном,аббревиату'рной,аббревиату'рном,аббревиату'рных,аббревиату'рен,аббревиату'рна,аббревиату'рно,аббревиату'рны,аббревиату'рнее,поаббревиату'рнее,аббревиату'рней,поаббревиату'рней
аббревиация#аббревиа'ция,аббревиа'ции,аббревиа'ции,аббревиа'ций,аббревиа'ции,аббревиа'циям,аббревиа'цию,аббревиа'ции,аббревиа'цией,аббревиа'циею,аббревиа'циями,аббревиа'ции,аббревиа'циях
абдикация#абдика'ция,абдика'ции,абдика'ции,абдика'ций,абдика'ции,абдика'циям,абдика'цию,абдика'ции,абдика'цией,абдика'циею,абдика'циями,абдика'ции,абдика'циях
абдомен#абдо'мен,абдо'мены,абдо'мена,абдо'менов,абдо'мену,абдо'менам,абдо'мен,абдо'мены,абдо'меном,абдо'менами,абдо'мене,абдо'менах
абдоминальный#абдомина'льный,абдомина'льная,абдомина'льное,абдомина'льные,абдомина'льного,абдомина'льной,абдомина'льного,абдомина'льных,абдомина'льному,абдомина'льной,абдомина'льному,абдомина'льным,абдомина'льный,абдомина'льную,абдомина'льное,абдомина'льные,абдомина'льного,абдомина'льную,абдомина'льное,абдомина'льных,абдомина'льным,абдомина'льной,абдомина'льною,абдомина'льным,абдомина'льными,абдомина'льном,абдомина'льной,абдомина'льном,абдомина'льных,абдомина'лен,абдомина'льна,абдомина'льно,абдомина'льны,абдомина'льнее,поабдомина'льнее,абдомина'льней,поабдомина'льней
абдуктор#абду'ктор,абду'кторы,абду'ктора,абду'кторов,абду'ктору,абду'кторам,абду'ктор,абду'кторы,абду'ктором,абду'кторами,абду'кторе,абду'кторах
абдукторный#абду'кторный,абду'кторная,абду'кторное,абду'кторные,абду'кторного,абду'кторной,абду'кторного,абду'кторных,абду'кторному,абду'кторной,абду'кторному,абду'кторным,абду'кторный,абду'кторную,абду'кторное,абду'кторные,абду'кторного,абду'кторную,абду'кторное,абду'кторных,абду'кторным,абду'кторной,абду'кторною,абду'кторным,абду'кторными,абду'кторном,абду'кторной,абду'кторном,абду'кторных,абду'кторен,абду'кторна,абду'кторно,абду'кторны,абду'кторнее,поабду'кторнее,абду'кторней,поабду'кторней
абдукция#абду'кция,абду'кции,абду'кции,абду'кций,абду'кции,абду'кциям,абду'кцию,абду'кции,абду'кцией,абду'кциею,абду'кциями,абду'кции,абду'кциях
абелит#абели'т,абели'ты,абели'та,абели'тов,абели'ту,абели'там,абели'т,абели'ты,абели'том,абели'тами,абели'те,абели'тах
аберрационный#аберрацио'нный,аберрацио'нная,аберрацио'нное,аберрацио'нные,аберрацио'нного,аберрацио'нной,аберрацио'нного,аберрацио'нных,аберрацио'нному,аберрацио'нной,аберрацио'нному,аберрацио'нным,аберрацио'нный,аберрацио'нную,аберрацио'нное,аберрацио'нные,аберрацио'нного,аберрацио'нную,аберрацио'нное,аберрацио'нных,аберрацио'нным,аберрацио'нной,аберрацио'нною,аберрацио'нным,аберрацио'нными,аберрацио'нном,аберрацио'нной,аберрацио'нном,аберрацио'нных,аберрацио'нен,аберрацио'нна,аберрацио'нно,аберрацио'нны,аберрацио'ннее,поаберрацио'ннее,аберрацио'нней,поаберрацио'нней
аберрация#аберра'ция,аберра'ции,аберра'ции,аберра'ций,аберра'ции,аберра'циям,аберра'цию,аберра'ции,аберра'цией,аберра'циею,аберра'циями,аберра'ции,аберра'циях
абзац#абза'ц,абза'цы,абза'ца,абза'цев,абза'цу,абза'цам,абза'ц,абза'цы,абза'цем,абза'цами,абза'це,абза'цах
абзацный#абза'цный,абза'цная,абза'цное,абза'цные,абза'цного,абза'цной,абза'цного,абза'цных,абза'цному,абза'цной,абза'цному,абза'цным,абза'цный,абза'цную,абза'цное,абза'цные,абза'цного,абза'цную,абза'цное,абза'цных,абза'цным,абза'цной,абза'цною,абза'цным,абза'цными,абза'цном,абза'цной,абза'цном,абза'цных,абза'цен,абза'цна,абза'цно,абза'цны,абза'цнее,поабза'цнее,абза'цней,поабза'цней
абиетин#абиети'н,абиети'ны,абиети'на,абиети'нов,абиети'ну,абиети'нам,абиети'н,абиети'ны,абиети'ном,абиети'нами,абиети'не,абиети'нах
абиетиновый#абиети'новый,абиети'новая,абиети'новое,абиети'новые,абиети'нового,абиети'новой,абиети'нового,абиети'новых,абиети'новому,абиети'новой,абиети'новому,абиети'новым,абиети'новый,абиети'новую,абиети'новое,абиети'новые,абиети'нового,абиети'новую,абиети'новое,абиети'новых,абиети'новым,абиети'новой,абиети'новою,абиети'новым,абиети'новыми,абиети'новом,абиети'новой,абиети'новом,абиети'новых,абиети'нов,абиети'нова,абиети'ново,абиети'новы,абиети'новее,поабиети'новее,абиети'новей,поабиети'новей
абиссальный#абисса'льный,абисса'льная,абисса'льное,абисса'льные,абисса'льного,абисса'льной,абисса'льного,абисса'льных,абисса'льному,абисса'льной,абисса'льному,абисса'льным,абисса'льный,абисса'льную,абисса'льное,абисса'льные,абисса'льного,абисса'льную,абисса'льное,абисса'льных,абисса'льным,абисса'льной,абисса'льною,абисса'льным,абисса'льными,абисса'льном,абисса'льной,абисса'льном,абисса'льных,абисса'лен,абисса'льна,абисса'льно,абисса'льны,абисса'льнее,поабисса'льнее,абисса'льней,поабисса'льней
абиссинец#абисси'нец,абисси'нцы,абисси'нца,абисси'нцев,абисси'нцу,абисси'нцам,абисси'нца,абисси'нцев,абисси'нцем,абисси'нцами,абисси'нце,абисси'нцах
абиссинский#абисси'нский,абисси'нская,абисси'нское,абисси'нские,абисси'нского,абисси'нской,абисси'нского,абисси'нских,абисси'нскому,абисси'нской,абисси'нскому,абисси'нским,абисси'нский,абисси'нскую,абисси'нское,абисси'нские,абисси'нского,абисси'нскую,абисси'нское,абисси'нских,абисси'нским,абисси'нской,абисси'нскою,абисси'нским,абисси'нскими,абисси'нском,абисси'нской,абисси'нском,абисси'нских,абисси'нск,абисси'нска,абисси'нско,абисси'нски
абитуриент#абитурие'нт,абитурие'нты,абитурие'нта,абитурие'нтов,абитурие'нту,абитурие'нтам,абитурие'нта,абитурие'нтов,абитурие'нтом,абитурие'нтами,абитурие'нте,абитурие'нтах
абитуриентка#абитурие'нтка,абитурие'нтки,абитурие'нтки,абитурие'нток,абитурие'нтке,абитурие'нткам,абитурие'нтку,абитурие'нток,абитурие'нткой,абитурие'нткою,абитурие'нтками,абитурие'нтке,абитурие'нтках
абитуриентский#абитурие'нтский,абитурие'нтская,абитурие'нтское,абитурие'нтские,абитурие'нтского,абитурие'нтской,абитурие'нтского,абитурие'нтских,абитурие'нтскому,абитурие'нтской,абитурие'нтскому,абитурие'нтским,абитурие'нтский,абитурие'нтскую,абитурие'нтское,абитурие'нтские,абитурие'нтского,абитурие'нтскую,абитурие'нтское,абитурие'нтских,абитурие'нтским,абитурие'нтской,абитурие'нтскою,абитурие'нтским,абитурие'нтскими,абитурие'нтском,абитурие'нтской,абитурие'нтском,абитурие'нтских,абитурие'нтск,абитурие'нтска,абитурие'нтско,абитурие'нтски
аблактировка#аблактиро'вка,аблактиро'вки,аблактиро'вки,аблактиро'вок,аблактиро'вке,аблактиро'вкам,аблактиро'вку,аблактиро'вки,аблактиро'вкой,аблактиро'вкою,аблактиро'вками,аблактиро'вке,аблактиро'вках
В этом списки слова с определенным окончанием, если слова найдено, то дальше он должен смотреть слова с разделителем "'". Правда разделитель, не понятно тоже по какому правилу стоит и как его убирать, нужно его убрать?
карма: 0

0
Ответов: 2059
Рейтинг: 131
#234: 2019-08-27 10:38:26 ЛС | профиль | цитата
Vadimluk1 писал(а):
Что бы морфология работала, нужно 2 dll файла и папка "Data"

Конечно нужно всё.
Причём dll должны лежать рядом с exe.
Vadimluk1, Нарисуй схему-то, чего у тебя там не выходит?

Как подключить для перебора список "All_Forms.txt"

Надо распаковать архив "All_Forms.txt" рядом с этой схемой:
Add(MainForm,2953706,21,105)
{
link(onCreate,5663974:doEvent1,[])
}
Add(HashTableString,3717231,350,182)
{
Char="#"
FileName="All_Forms.txt"
link(onString,12001889:doWork2,[(412,195)(412,188)])
}
Add(Edit,15729039,252,168)
{
Left=10
Top=15
Width=365
Text="скакать"
link(onEnter,2806354:doEvent1,[])
}
Add(Memo,3908912,525,189)
{
Top=65
Width=380
Height=200
ScrollBars=2
}
Add(KeyboardLayout,4453736,294,84)
{
}
Add(Hub,5663974,133,119)
{
link(onEvent1,4453736:doRussianKbd,[(193,125)(193,97)])
link(onEvent2,3717231:doLoad,[(208,132)(208,216)])
}
Add(Hub,2806354,322,175)
{
link(onEvent1,3908912:doClear,[(396,181)(396,202)])
link(onEvent2,3717231:doKey,[])
}
Add(StrPart,8580401,441,182)
{
Char=","
link(onSplit,12001889:doWork1,[(485,188)(485,179)(417,179)])
link(onPart,3908912:doAdd,[])
}
Add(HubEx,12001889,413,182)
{
link(onEvent,8580401:doSplit,[])
}


Склонение\спряжение делаешь выбором соответствующей строки.
Если ударения не нужны, то можно их убрать из All_Forms.txt.
P.S.
Посмотри статью "бежать" по моему там есть ошибка. слог "жа - гу".
Схему чуть поправил, а то все формы не были видны без скрола.

Редактировалось 3 раз(а), последний 2019-08-27 11:42:16
карма: 6

1
Голосовали:Vadimluk1
Ответов: 632
Рейтинг: 4
#235: 2019-08-27 12:08:30 ЛС | профиль | цитата
flint2, схему я не сохранил, так как она мне совсем не понравилась.
Твою схему распаковал рядом All_Forms.txt, но все равно программа не запустилась.


--- Добавлено в 2019-08-27 12:11:08

Строка с ошибками в hiasm пустая, но отладка есть.
Отладка
Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: dcc32.exe "C:\HiAsm\Elements\delphi\code\Project16.dpr" "-UC:\Users\УРАН\Desktop\Новая папка\." -Q
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

C:\HiAsm\Elements\delphi\code\hiHashTableString.pas(223) Hint: Variable 'ind' is declared but never used in 'ThiHashTableString._work_doDelete'

C:\HiAsm\Elements\delphi\code\hiHashTableString.pas(234) Hint: Value assigned to 'ind' never used

C:\HiAsm\Elements\delphi\code\hiHashTableString.pas(13) Hint: Private symbol '_Add' declared but never used
6842 lines, 0.12 seconds, 54356 bytes code, 2361 bytes data.
Сжатие кода...
Сборка завершена.
Программа запускается, но как нажимаю Enter, появляется диалоговое окно с ошибкой.

Редактировалось 1 раз(а), последний 2019-08-27 12:11:08
карма: 0

0
Ответов: 2059
Рейтинг: 131
#236: 2019-08-27 13:03:40 ЛС | профиль | цитата
Сейчас попробую переустановить то что выкладывал.
Пока попробуй это https://yadi.sk/d/NExCXZxEu5x4wg
карма: 6

1
Голосовали:Vadimluk1
Ответов: 632
Рейтинг: 4
#237: 2019-08-27 13:11:40 ЛС | профиль | цитата
Все заработала! Я похоже перепутал текстовые файлы. Сейчас все исправил и заработала!

Разделитель должен быть? "'"

--- Добавлено в 2019-08-27 13:27:16

Сейчас добавил морфологический анализ, все работает. Осталось только придумать, как перебирать "All_Forms.txt", что бы найти по морфологическому анализу такое же слова.

Add(MainForm,6641460,56,133)
{
link(onCreate,5663974:doEvent1,[])
}
Add(HashTableString,3717231,385,210)
{
Char="#"
FileName="All_Forms.txt"
link(onString,12001889:doWork2,[(433,223)(433,216)])
}
Add(Edit,15729039,224,196)
{
Left=10
Top=15
Width=365
Text="скакать"
link(onEnter,6348243:doModify,[])
}
Add(Memo,3908912,658,182)
{
Top=65
Width=380
Height=200
ScrollBars=2
}
Add(KeyboardLayout,4453736,329,112)
{
}
Add(Hub,5663974,168,147)
{
OutCount=3
link(onEvent1,4453736:doRussianKbd,[(228,153)(228,125)])
link(onEvent2,12556189:doSetLanguage,[(385,160)(385,300)])
link(onEvent3,3717231:doLoad,[(284,167)(284,244)])
}
Add(Hub,2806354,357,203)
{
link(onEvent1,3908912:doClear,[(431,209)(431,195)])
link(onEvent2,3717231:doKey,[])
}
Add(StrPart,8580401,476,210)
{
Char=","
link(onSplit,12001889:doWork1,[(520,216)(520,207)(452,207)])
link(onPart,13738678:doReplace,[])
}
Add(HubEx,12001889,448,210)
{
link(onEvent,8580401:doSplit,[])
}
Add(Replace,13738678,532,217)
{
SubStr="'"
link(onReplace,10712754:doValue,[(580,223)(580,160)])
}
Add(Morphology,12556189,588,294)
{
link(onNumWord,7372922:doStrCat,[(652,314)(652,349)(569,349)(569,384)])
link(StrT,10515923:Var2,[])
link(Mode,4746043:Value,[(622,282)(643,282)])
}
Add(Memory,10712754,595,154)
{
link(onData,6678231:doEvent1,[(639,160)(639,237)(513,237)(513,314)])
}
Add(StrCat,7372922,581,378)
{
link(onStrCat,3908912:doAdd,[(618,384)(618,188)])
link(Str1,10515923:Var1,[(587,250)])
}
Add(GetDataEx,10515923,588,245)
{
link(Data,10712754:Value,[(594,240)(601,240)])
}
Add(Hub,6678231,525,308)
{
OutCount=3
link(onEvent1,12556189:doSetText,[(563,314)(563,307)])
link(onEvent2,12556189:doNumOffer,[])
link(onEvent3,12556189:doNumWord,[])
}
Add(Memory,4746043,637,238)
{
Default=Integer(2)
}
Add(StrCase,6348243,301,203)
{
link(onModify,2806354:doEvent1,[])
}



--- Добавлено в 2019-08-27 13:52:36

Сделал перебор. Осталось сделать работу по шаблонам
как здесь
|25 21 19 1 46 35|26 24 21 19 1 35|4|25 21 19 3 35|и|25 21 19 3 35|,|что|25 22 19 1 35|40 37 35 31 19 2 22 21 23 41|на|28 22 20 1 35|.

Схема

Add(Hub,15729404,651,189)
{
link(onEvent1,3362960:doClear,[])
link(onEvent2,14580701:doClear,[(913,202)(913,286)])
}
Add(MainForm,6641460,56,133)
{
Width=420
link(onCreate,5663974:doEvent1,[])
}
Add(HashTableString,3717231,392,217)
{
Char="#"
FileName="All_Forms.txt"
link(onString,12001889:doWork2,[(433,230)(433,216)])
}
Add(Edit,15729039,224,196)
{
Left=10
Top=15
Width=365
Text="скакать"
link(onEnter,6348243:doModify,[])
}
Add(KeyboardLayout,4453736,329,112)
{
}
Add(Hub,5663974,168,147)
{
OutCount=5
link(onEvent1,4453736:doRussianKbd,[(228,153)(228,125)])
link(onEvent2,12556189:doSetLanguage,[(385,160)(385,300)])
link(onEvent3,3717231:doLoad,[(284,167)(284,251)])
link(onEvent4,11776740:doLoad,[(332,174)(332,405)])
link(onEvent5,16665857:In,[])
}
Add(Hub,2806354,357,203)
{
OutCount=3
link(onEvent1,15729404:doEvent1,[(511,209)(511,195)])
link(onEvent2,14537348:In,[(381,216)(381,188)])
link(onEvent3,3717231:doKey,[])
}
Add(StrPart,8580401,476,210)
{
Char=","
link(onSplit,12001889:doWork1,[(520,216)(520,207)(452,207)])
link(onPart,13738678:doReplace,[])
}
Add(HubEx,12001889,448,210)
{
link(onEvent,8580401:doSplit,[])
}
Add(Replace,13738678,532,217)
{
SubStr="'"
link(onReplace,10712754:doValue,[(580,223)(580,160)])
}
Add(Morphology,12556189,588,294)
{
link(onNumWord,5815481:doEvent1,[])
link(StrT,10515923:Var2,[])
link(Mode,1074976:Var2,[(622,282)(643,282)])
}
Add(Memory,10712754,595,154)
{
link(onData,6678231:doEvent1,[(639,160)(639,237)(513,237)(513,314)])
}
Add(GetDataEx,10515923,588,245)
{
link(Data,10712754:Value,[(594,240)(601,240)])
}
Add(Hub,6678231,525,308)
{
OutCount=3
link(onEvent1,12556189:doSetText,[(563,314)(563,307)])
link(onEvent2,12556189:doNumOffer,[])
link(onEvent3,12556189:doNumWord,[])
}
Add(Memory,4746043,637,238)
{
Default=Integer(2)
}
Add(StrCase,6348243,301,203)
{
link(onModify,2806354:doEvent1,[])
}
Add(StrList,11776740,483,371)
{
FileName="All_Forms.txt"
}
Add(StrList,5258094,707,259)
{
Point(doGetString)
Point(onGetString)
link(onGetString,6830505:doValue,[(755,272)(755,300)])
}
Add(LineBreak,2094053,665,266)
{
link(Out,5258094:doClear,[])
Primary=[14537348,-273,-84]
}
Add(ListBox,3362960,686,182)
{
Left=10
Top=40
Width=190
Height=195
link(onClick,7231859:doEvent1,[(730,195)])
}
Add(Hub,5815481,651,308)
{
link(onEvent1,12231190:doStrCat,[(675,314)])
link(onEvent2,5258094:doAdd,[(686,321)(686,265)])
}
Add(Memory,6830505,770,294)
{
link(onData,12748182:doEnum,[(814,300)(836,321)(836,359)(632,359)(632,398)])
}
Add(ArrayEnum,12748182,644,392)
{
link(onItem,12173983:doSplit,[])
link(Array,11776740:Array,[(650,380)(576,380)(576,428)(503,428)])
}
Add(StrPart,12173983,714,392)
{
Char="#"
link(onSplit,3113500:doWork2,[(752,398)(752,405)])
}
Add(StrPart,13716556,784,399)
{
Char=","
link(onSplit,3113500:doWork1,[(828,405)(828,396)(760,396)])
link(onPart,3527154:doReplace,[])
}
Add(Replace,3527154,840,406)
{
SubStr="'"
link(onReplace,10323115:doValue,[(884,412)(884,293)])
}
Add(Morphology,15575172,1001,350)
{
link(onNumWord,7471720:doCompare,[])
link(StrT,3194297:Var2,[(1007,342)(916,342)])
link(Mode,235684:Var,[(1035,332)(1007,332)])
}
Add(LineBreak,7427493,959,350)
{
link(Out,15575172:doSetLanguage,[])
Primary=[16665857,-763,-175]
}
Add(Hub,5401568,945,364)
{
OutCount=3
link(onEvent1,15575172:doSetText,[(980,370)(980,363)])
link(onEvent2,15575172:doNumOffer,[])
link(onEvent3,15575172:doNumWord,[])
}
Add(HubEx,3113500,756,399)
{
link(onEvent,13716556:doSplit,[])
}
Add(Memory,10323115,896,287)
{
link(onData,5401568:doEvent1,[(936,293)(936,370)])
}
Add(If_else,7471720,1092,364)
{
link(onTrue,407871:doValue,[(1132,384)])
link(Op2,6830505:Value,[(1105,345)(776,345)])
}
Add(ListBox,14580701,1162,273)
{
Left=205
Top=40
Width=190
Height=195
}
Add(GetDataEx,3194297,910,326)
{
Angle=3
link(Data,10323115:Value,[(902,331)])
}
Add(GetDataEx,1074976,637,273)
{
link(Data,4746043:Value,[])
}
Add(LineBreak,9964751,644,294)
{
Type=1
link(Data,1074976:Var3,[(650,278)])
Primary=[235684,357,7]
}
Add(CounterEx,8458376,1141,329)
{
Max=10
Point(onThroughMax)
link(onNext,4178127:doStrCat,[(1185,335)(1185,307)(1150,307)])
link(onThroughMax,12748182:doStop,[(1185,342)(1185,374)(632,374)(632,405)])
}
Add(StrCat,12231190,672,231)
{
link(onStrCat,3362960:doAdd,[(716,237)(716,213)(674,213)(674,188)])
link(Str1,10515923:Var1,[(678,219)(585,219)(585,250)])
}
Add(Memory,407871,1148,378)
{
link(onData,8458376:doNext,[(1132,335)])
}
Add(StrCat,4178127,1120,287)
{
link(onStrCat,14580701:doAdd,[(1150,279)])
link(Str1,3194297:Var3,[(1126,275)(1022,275)(1022,331)])
link(Str2,407871:Value,[(1133,275)(1143,275)(1143,422)(1154,422)])
}
Add(Hub,7231859,728,203)
{
link(onEvent2,5258094:doGetString,[(754,216)(754,262)(695,262)(695,307)])
}


Редактировалось 4 раз(а), последний 2019-08-27 13:52:36
карма: 0

0
Ответов: 2059
Рейтинг: 131
#238: 2019-08-27 14:16:29 ЛС | профиль | цитата
Разделитель должен быть? "'"

Не совсем понимаю.
Если строка:
абзац#абза'ц,абза'цы,абза'ца,абза'цев,абза'цу,...

то разделитель запятая.
"'" - это ударение.
Если хочешь убрать его, то в любом текстовом редакторе заменить "'" на пустую строку.
Осталось только придумать, как перебирать "All_Forms.txt", что бы найти по морфологическому анализу такое же слова.

Тоже не понимаю.
Надо перевести слова исходного текста в простую форму.
Add(MorphOn,1291859,364,322)
{
Mode=1
Point(Mode)
}
А уже по ней найти все формы по схеме, что была выше.
На самом деле мы обсуждаем отдельные куски.
Надо сначала представить себе общую конструкцию и принцип действия.
Я думаю, что должно быть так:
Исходный текст приводится к виду Лексико-семантическая информация + простая форма, или морфологическеские атрибуты. (Разделяй и властвуй!)
По ним каким-то образом обрабатывается логика вопроса, строится скелет ответа, а потом он обрастает мясом вплоть до склонений.
Если ты хчешь искать по таким словам "бежавшего", "Егорыча" - т.е. в склонении и спряжении, то придётся делать такой словарь:
яркость=r:abstr
яркости=r:abstr
яркости=r:abstr
яркостей=r:abstr
яркости=r:abstr
яркостям=r:abstr
яркость=r:abstr
яркости=r:abstr
яркостью=r:abstr
яркостями=r:abstr
яркости=r:abstr
Это хрен чего получится, даже если делать базу.
Не легче-ли так? яркость#r:abstr,яркость,яркости,яркости,яркостей,яркости,яркостям,...
В общем нужна продуманная концепция, а это всё мелочёвка.

--- Добавлено в 2019-08-27 14:46:39

что бы найти по морфологическому анализу такое же слова.

Понял. Вот справка:
1 существительное
2 глагол
3 прилагательное
4 наречие
5 числительное
6 местоимение
9 междометие
10 частица
11 союз
12 предлог
13 вводное слово (по счастью, конечно, впрочем)
14 неизменяемое слово
15 предикатив (можно, пора)
16 слово из другого языка
18 слово, состоящее из цифр
17 знак пунктуации
7 причастие (блестящее, читающий)
8 деепричастие (бегая, сидя)
19 единственное число
20 множественное число
21 женский род
22 мужской род
23 средний род
24 одушевленное
25 именительный падеж (кто, что)
26 родительный падеж (кого, чего)
27 дательный падеж (кому, чему)
28 винительный падеж (винительный падеж склонен обозначать меру или количество: кого, чего или с предлогом в)
29 творительный падеж (кем, чем)
30 предложный падеж (о ком, о чём)
31 финитная форма (казаться, слыть, стать, становиться)
32 инфинитив (бежать, смотреть)
36 прошедшее время
37 настоящее время
33 первое лицо
34 второе лицо
35 третье лицо
45 сравнительная степень (светлее, слабее)
38 повелительное наклонение (Принеси мне )
40 изъявительное наклонение (поеду, я работал)
41 активный залог (обозначающий, что подлежащее совершает действие)
42 пассивный залог (что подлежащее испытывает действие)
44 краткая форма (пойман, красив)
46 слово написано с большой буквы
47 неизвестное слово - нормализовано эвристически
Получаем:
яркость 25 19
яркости 25 20
яркости 26 19
яркостей 26 20
яркости 27 19
яркостям 27 20
яркость 28 19
яркости 28 20
яркостью 29 19
яркостями 29 20
яркости 30 19
Аналогично с другими частями речи.
Каждая строка соответствует падежу\спряжению, числу, роду и времени.

Не надо пихать несколько больших кубиков hiMorphology, для этого есть мелкие.
Все они работают по номеру слова в предложении.
Нижние точки дают номер предложения, номер слова в предложении и номера зависимых слов.
Но это уже отдельная история.

Редактировалось 5 раз(а), последний 2019-08-27 15:05:26
карма: 6

1
Голосовали:Vadimluk1
Ответов: 632
Рейтинг: 4
#239: 2019-08-27 15:24:09 ЛС | профиль | цитата
Попробовал сделать подбор по правилам эту "|25 21 19 1 46 35|26 24 21 19 1 35|4|25 21 19 3 35|и|25 21 19 3 35|,|что|25 22 19 1 35|40 37 35 31 19 2 22 21 23 41|на|28 22 20 1 35|."

Add(MainForm,6641460,56,133)
{
Width=420
link(onCreate,5663974:doEvent1,[])
}
Add(HashTableString,3717231,392,217)
{
Char="#"
FileName="All_Forms.txt"
link(onString,12001889:doWork2,[(433,230)(433,216)])
}
Add(Edit,15729039,224,196)
{
Left=10
Top=15
Width=365
Text="скакать"
link(onEnter,6348243:doModify,[])
}
Add(KeyboardLayout,4453736,329,112)
{
}
Add(Hub,5663974,168,147)
{
OutCount=6
link(onEvent1,4453736:doRussianKbd,[(228,153)(228,125)])
link(onEvent2,12556189:doSetLanguage,[(385,160)(385,300)])
link(onEvent3,3717231:doLoad,[(284,167)(284,251)])
link(onEvent4,11776740:doLoad,[(332,174)(332,405)])
link(onEvent5,16665857:In,[])
link(onEvent6,12957357:In,[])
}
Add(Hub,2806354,357,203)
{
OutCount=3
link(onEvent1,15729404:doEvent1,[(511,209)(511,195)])
link(onEvent2,14537348:In,[(381,216)(381,188)])
link(onEvent3,3717231:doKey,[])
}
Add(StrPart,8580401,476,210)
{
Char=","
link(onSplit,12001889:doWork1,[(520,216)(520,207)(452,207)])
link(onPart,13738678:doReplace,[])
}
Add(HubEx,12001889,448,210)
{
link(onEvent,8580401:doSplit,[])
}
Add(Replace,13738678,532,217)
{
SubStr="'"
link(onReplace,10712754:doValue,[(580,223)(580,160)])
}
Add(Morphology,12556189,588,294)
{
link(onNumWord,5815481:doEvent1,[])
link(StrT,10515923:Var2,[])
link(Mode,1074976:Var2,[(622,282)(643,282)])
}
Add(Memory,10712754,595,154)
{
link(onData,6678231:doEvent1,[(639,160)(639,237)(513,237)(513,314)])
}
Add(GetDataEx,10515923,588,245)
{
link(Data,10712754:Value,[(594,240)(601,240)])
}
Add(Hub,6678231,525,308)
{
OutCount=3
link(onEvent1,12556189:doSetText,[(563,314)(563,307)])
link(onEvent2,12556189:doNumOffer,[])
link(onEvent3,12556189:doNumWord,[])
}
Add(Memory,4746043,637,238)
{
Default=Integer(2)
}
Add(StrCase,6348243,301,203)
{
link(onModify,2806354:doEvent1,[])
}
Add(StrList,11776740,483,371)
{
FileName="All_Forms.txt"
}
Add(StrList,5258094,707,259)
{
Point(doGetString)
Point(onGetString)
link(onGetString,8746596:doString,[(761,272)(761,265)])
}
Add(LineBreak,2094053,665,266)
{
link(Out,5258094:doClear,[])
Primary=[14537348,-273,-84]
}
Add(ListBox,3362960,686,182)
{
Left=10
Top=40
Width=190
Height=195
link(onClick,7231859:doEvent1,[(730,195)])
}
Add(Hub,5815481,651,308)
{
link(onEvent1,12231190:doStrCat,[(675,314)])
link(onEvent2,5258094:doAdd,[(686,321)(686,265)])
}
Add(ArrayEnum,12748182,644,392)
{
link(onItem,12173983:doSplit,[])
link(onEndEnum,14907113:doRandom,[(936,405)(936,433)])
link(Array,11776740:Array,[(650,380)(576,380)(576,428)(503,428)])
}
Add(StrPart,12173983,714,392)
{
Char="#"
link(onSplit,3113500:doWork2,[(752,398)(752,405)])
}
Add(StrPart,13716556,784,399)
{
Char=","
link(onSplit,3113500:doWork1,[(828,405)(828,396)(760,396)])
link(onPart,3527154:doReplace,[])
}
Add(Replace,3527154,840,406)
{
SubStr="'"
link(onReplace,10323115:doValue,[(884,412)(884,370)])
}
Add(Morphology,15575172,1001,350)
{
link(onNumWord,7471720:doCompare,[])
link(StrT,6193714:Var1,[(1007,320)(909,320)])
link(Mode,235684:Var,[(1035,332)(1007,332)])
}
Add(LineBreak,7427493,959,350)
{
link(Out,15575172:doSetLanguage,[])
Primary=[16665857,-763,-175]
}
Add(Hub,5401568,945,364)
{
OutCount=3
link(onEvent1,15575172:doSetText,[(980,370)(980,363)])
link(onEvent2,15575172:doNumOffer,[])
link(onEvent3,15575172:doNumWord,[])
}
Add(HubEx,3113500,756,399)
{
link(onEvent,13716556:doSplit,[])
}
Add(Memory,10323115,889,364)
{
link(onData,5401568:doEvent1,[])
}
Add(If_else,7471720,1092,364)
{
link(onTrue,13451450:doEvent1,[(1136,370)(1136,360)(1108,360)(1108,349)])
link(Op2,1586077:Value,[(1105,348)(825,348)])
}
Add(Hub,15729404,651,189)
{
link(onEvent1,3362960:doClear,[])
link(onEvent2,16712405:doClear,[(931,202)(931,209)])
}
Add(GetDataEx,1074976,637,273)
{
link(Data,4746043:Value,[])
}
Add(LineBreak,9964751,644,294)
{
Type=1
link(Data,1074976:Var3,[(650,278)])
Primary=[235684,357,7]
}
Add(StrCat,12231190,672,231)
{
link(onStrCat,3362960:doAdd,[(716,237)(716,213)(674,213)(674,188)])
link(Str1,10515923:Var1,[(678,219)(585,219)(585,250)])
}
Add(Hub,7231859,728,203)
{
link(onEvent2,5258094:doGetString,[(754,216)(754,262)(695,262)(695,307)])
}
Add(StrList,2174155,1190,357)
{
Point(EndIdx)
Point(doGetString)
Point(onGetString)
link(Str,6193714:Var2,[(1196,342)(909,342)])
link(onGetString,16750971:doStrCat,[(1234,370)(1234,342)])
}
Add(Hub,932149,861,301)
{
OutCount=3
link(onEvent1,5674715:doNext,[(931,307)(931,237)])
link(onEvent2,4973753:In,[(882,314)(882,272)])
link(onEvent3,4111803:doData,[(887,321)(887,377)(562,377)(562,433)])
}
Add(LineBreak,10367381,1148,364)
{
link(Out,2174155:doClear,[])
Primary=[4973753,-259,-98]
}
Add(GetDataEx,6193714,903,326)
{
Angle=3
link(Data,10323115:Value,[(895,422)])
}
Add(Random,14907113,1197,427)
{
Point(Max)
link(onRandom,2174155:doGetString,[(1241,433)(1241,419)(1178,419)(1178,405)])
link(Max,2174155:EndIdx,[(1203,411)(1217,411)])
}
Add(LineBreak,3874437,1141,434)
{
link(Out,14907113:doRandomize,[])
Primary=[12957357,-945,-252]
}
Add(Memo,16712405,1197,196)
{
Left=205
Top=40
Width=190
Height=190
}
Add(Edit,13441477,875,203)
{
Left=10
Top=240
Width=355
Text="|25 21 19 1 46 35||26 24 21 19 1 35||4||25 21 19 3 35|и|25 21 19 3 35|,что|25 22 19 1 35||40 37 35 31 19 2 22 21 23 41|на|28 22 20 1 35|."
}
Add(FormatStr,8746596,784,259)
{
Mask="%2|%1|"
link(onFString,13441477:doText2,[(856,265)(856,216)])
link(Str2,6884328:Var1,[(797,247)])
}
Add(Button,9925406,721,308)
{
Left=370
Top=240
Width=30
link(onClick,4366792:doStart,[(758,314)(758,349)])
}
Add(BlockFind,5941221,777,301)
{
IncludeBlock=1
StartBlock="|"
EndBlock="|"
link(onSearch,1586077:doValue,[])
link(onEndSearch,8499693:doData,[(1038,314)(1038,398)])
link(Text,6884328:Var2,[(783,276)(874,276)])
}
Add(StrCat,16750971,1246,336)
{
Point(doClear)
link(Str1,6233787:Var1,[(1252,324)(1240,324)(1240,380)])
}
Add(DoData,8499693,1260,392)
{
link(onEventData,347046:doEvent1,[(1304,398)])
link(Data,6233787:Var3,[(1266,380)])
}
Add(GetDataEx,6233787,1246,375)
{
link(Data,16750971:Result,[])
}
Add(Hub,347046,1302,371)
{
OutCount=3
link(onEvent1,16712405:doAdd,[(1328,377)(1328,289)(1185,289)(1185,202)])
link(onEvent2,16750971:doClear,[(1328,384)(1328,366)(1234,366)(1234,349)])
link(onEvent3,2355549:doOn,[(1328,391)(1328,437)(1248,437)(1248,482)])
}
Add(GetDataEx,6884328,868,242)
{
Angle=1
link(Data,13441477:Text,[(881,247)])
}
Add(Memory,1586077,819,301)
{
link(onData,932149:doEvent1,[])
}
Add(CounterEx,10077735,1127,294)
{
Max=20
Point(doMax)
Point(onThroughMax)
link(onNext,2174155:doAdd,[(1175,300)(1175,363)])
link(onThroughMax,12748182:doStop,[(1171,307)(1171,356)(632,356)(632,405)])
}
Add(ProgressBarRush,10036639,1036,231)
{
Left=10
Top=205
Width=385
Max=8
}
Add(CounterEx,5674715,987,231)
{
Max=8
link(onNext,10036639:doPosition,[])
}
Add(Thread,4366792,763,343)
{
FastStop=0
link(onExec,5941221:doSearch,[(807,349)(807,328)(765,328)(765,307)])
}
Add(LED,388784,714,455)
{
Left=20
Top=165
}
Add(Hub,835296,616,392)
{
link(onEvent1,12748182:doEnum,[])
link(onEvent2,388784:doOn,[(672,405)(672,475)])
}
Add(LED,7269892,1036,455)
{
Left=50
Top=165
ColorOn=65280
ColorOff=32768
}
Add(Hub,13451450,1120,343)
{
link(onEvent1,10077735:doNext,[(1146,349)(1146,325)(1115,325)(1115,300)])
link(onEvent2,7269892:doOn,[(1146,356)(1146,416)(1024,416)(1024,475)])
}
Add(LED,2355549,1260,462)
{
Left=80
Top=165
ColorOn=16711680
ColorOff=8388608
}
Add(DoData,4111803,574,427)
{
link(onEventData,835296:doEvent1,[(611,433)(611,398)])
}

Мне семья не дает долго делать схемы . Если Вы знаете как сделать это эффективней до помогите, ну или я сам потом .
карма: 0

0
Ответов: 2059
Рейтинг: 131
#240: 2019-08-27 15:36:29 ЛС | профиль | цитата
Влоб это не решается.
Тут нужна определённая логика ИИ.
Разбиение по категориям это ещё не всё, нужны ещё градации.
Давай отдохнём.
Торопится не надо.
карма: 6

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)