Комментарии 32
Если вылезает ошибка, попробуйте зарегистрировать от администратора с помощью regsvr32 файлы comdlg32, которые также есть в архиве.
Забавное дежавю. Помню лет 15 назад (а то и больше) читал книжку про COM и там те же манипуляции были, чтобы зарегистрировать компоненты.
, вредоносным кодом не увлекаюсь
— нет версии под линукс
— нет версии под веб-браузер
— не запускается под современные ОС без шаманстве (возможно, потому, что vb6.0 вышел в 1998 году, 20 лет назад).
— нет исходников (не каждый захочет запускать чужой exe-файл на своей машине).
Если бы вы использовали, например, python, то ваша программа была бы кросс-платформенной, потенциально запускалась бы в браузере (с помощью jupyter notebook), её можно было бы прочитать перед запуском и выполнить на любой современной ос, кроме того, из-за более популярного языка её вероятнее могли бы покритиковать или улучшить. А так большинство читателей посмотрят картинки, возможно запустят программу на ваших тестовых данных, и закроют навсегда.
Заодно насчёт тестовых данных – одному вам известно, как составлять обучающие выборки и прочие текстовые файлы для программы.
l(i) — кол-во неиронов в слое i
kolvo — кол-во обучающих примеров
f(i,y) — значение y неирона в i слое
d — ошибка неирона
w — связь
b — смещение
osh — суммарная ошибка
so — cкорость обучения
вот основа:
For i = 0 To kl
For y = 0 To l(i) — 1
If i = 0 Then
f(0, y) = inp(shag Mod kolvo, y)
Else
f(i, y) = b(i, y)
End If
d(i, y) = 0
Next
Next
For i = 0 To kl — 1
For y = 0 To l(i) — 1
For u = 0 To l(i + 1) — 1
f(i + 1, u) = f(i + 1, u) + f(i, y) * w(i, y, u)
Next
Next
For u = 0 To l(i + 1) — 1
If f(i + 1, u) > 30 Then
f(i + 1, u) = 30
ElseIf f(i + 1, u) < -30 Then
f(i + 1, u) = -30
End If
f(i + 1, u) = 1 / (1 + Exp(-f(i + 1, u)))
Next
Next
For i = 0 To l(kl) — 1
d(kl, i) = out(shag Mod kolvo, i) — f(kl, i)
osh = osh + Abs(d(kl, i))
Next
For i = kl — 1 To 1 Step -1
For y = 0 To l(i) — 1
For u = 0 To l(i + 1) — 1
d(i, y) = d(i, y) + d(i + 1, u) * w(i, y, u)
Next
Next
Next
For i = 0 To kl — 1
For y = 0 To l(i) — 1
For u = 0 To l(i + 1) — 1
w(i, y, u) = w(i, y, u) + d(i + 1, u) * f(i + 1, u) * (1 — f(i + 1, u)) * f(i, y) * so
Next
Next
Next
For i = 1 To kl
For y = 0 To l(i) — 1
b(i, y) = b(i, y) + d(i, y) * f(i, y) * (1 — f(i, y)) * so
Next
Next
Я иначе подошел. Через аллокатор взял кусок памяти, заполнил его данными и написал обработчик инструкции памяти. К сожалению операционные системы не дают прямой доступ к памяти, уверен, многопоточный бегунок обработки ОЗУ и адресов в стандартизированном железе породил бы некое начало новой операционной системы для искусственного интеллекта.
По сути дела искусственному интеллекту не нужны почти все технологии операционных систем. Единственным фактором бытовой технологической сингулярности в быту является математика процессора и объём памяти, а так-же необходимая кроссплатформенность. Реально если в РФ выпустят нужный бытовой ПК под свою бегунковую ОС ))) будет отличная тема! Видео графики хватит простой (входные и выходные данный с желательно двойной буферизацией), аудио вообще простейший АЦП и ЦАП с привязкой времени (можно без буферной организации), шина данных - тут уже на бюджет РФ, хватило бы некого стандарта с технологиями DSR.
Можно ли открыть текстбокс для вставки обучающей выборки из буфера обмена и добавить загрузку из тестового файла?
Кстати, это отличный гуманный вариант для тех, кто хочет сделать революцию во власти!!!
Если этот проект подхватить, то всех чиновников можно превратить в проверщиков связей всех решений нейронного правительства, то-есть создать в стране мощную вычислительную систему на специализированных процессорах военной разработки, всех чиновников послать на переквалификацию и мы избавимся сразу от античеловечности в законе и каждое решение можно будет отследить до самой мелочи, то-есть если повышение пенсии будет нужда, но этому мешает дефицит средств из-за закупки миллиона лампочек для освещения 1 туалета мэрии Москвы, то это будет ясно каждому и тот, кто это внедрил в нейронную сеть (параметр, условие), того накажут и понизят в доступе для модерации этой сети.
Даешь нейронное правительство в XXI веке!!! )))) — сразу решаем несколько проблем:
— передача знаний от одних к другим (достаточно 1 раз обучить и следить за процессами мышления);
— избавляемся от постоянных социальных экспериментов при смене задниц на стульях;
— причину любого отказа или одобрения можно отследить полностью (как в этой теме);
— власть не только для народа, который сейчас не иначе как цифры в статистике, а сбор потребностей индивидуально от и для каждого;
— главная цель нейронной сети: благополучие граждан федерации и бобров и синиц тоже!
— полное отсутствие коррупции;
Ну и тем, кто не сможет перейти из чиновников в нейропрограммистов, те будут заниматься внешней политикой, не давать ей лезть в нашу ))).
Товарищи!!! Да здравствует нейронный социализм!!! Ура!!!
P:S: Автор статьи, догоняй тему!!! Если чего, на PureBasice подсобим )))))
С пустя 4 года прогресса шизофрении нет.
Этот курс правительство уже давно держит, правда программисты не смогу всё довести до ума и скорей навредят людям.
Всё дело в институтах и курсах по искусственному интеллекту. Там не преподают нужных алгоритмов и вообще технологии исключительно "Сбер" и в целом знания на получения задачи "выгоды", что приведёт всю страну в полный развал.
Программисты ИИ от курсов центра занятости и в целом не пригодны в социальной сфере, в бытовой - там выгода может быть просто убийственная для многих граждан.
Для искусственного интеллекта нужен поток информации и рычаги управления между цифровым и реальным миром. Все технологии имеющие реальное воздействие с цифрового мира на реальный уже давно есть: платёжные системы, электронное правительство, банки, провайдеры, кредиты, платёжки, чеки и т.п.
Программист искусственного интеллекта при поддержке обучения от "Сбер" работая над правительственным искусственным интеллектом просто уничтожит страну. Не те ценности применит, мышление уже испорчено логикой мышления обучения + деградация многих моральных и духовных основ.
У меня есть несколько идей в "Росконгрессе", но скорей всего там тормозят, могли бы давно в новую эпоху "Фотоники" перейти во всех информационных технологиях.
С Visual не хотел сталкиваться, ограничился Qbasic, Bascom AVR, PureBasic и машинный код. Мне нравится практичность применения знаний программирования на уровне устройств, схем, микроконтроллеров. Visual Basic вполне годный был, но слишком API функции и прочее в простых исполнительных устройствах не нужно.
Вообще я бы с удовольствием сделал бы дипломную работу по созданию дискретной операционной системы искусственного интеллекта, но кроссплатформенность непреодолимая сингулярность, да и через пару лет вообще ожидаю полную деградацию цифровых технологий в быту РФ.
Я даже делал для своих коллег пошаговую инструкцию, как распознавать пиктограммы 10х10.
goo.gl/dRkzfL
Новая ссылка - https://disk.yandex.ru/d/Nva_pfRodAt76g
Пощупать нейросети или конструктор нейронных сетей