GotAI.NET

Форум: Проблемы искусственного интеллекта

 

Регистрация | Вход

 Все темы | Новая тема Стр.1 (1)   Поиск:  
 Автор Тема: Нейросеть это , скриншоты , исходники на Blitz3D BASIC скачать , простенькая нейросеть
Matrix
Сообщений: 105
Нейросеть это , скриншоты , исходники на Blitz3D BASIC скачать , простенькая нейросеть
Добавлено: 05 янв 21 5:34
Изменено: 07 янв 21 13:09
http://nbai.mybb.ru/
https://www.mediafire.com/file/ovecyr40n2mj2kl/NBAI.ZIP/file

команды
"!" без пробела если понравился ответ программы добавить его в knowledge
если вы что то написали после ! с пробелом также будет добавлено
"+" с пробелом просто добавить строку в knowledge
"exit" выход

нейросеть это что за чем идет

берется последнее слово строки
1. какие слова идут после слова
из этих слов случайно выбирается одно слово и 1.

[Ответ][Цитата]
Matrix
Сообщений: 105
На: Нейросеть это , исходники скачать
Добавлено: 07 янв 21 9:47
Изменено: 07 янв 21 12:43
что еще с такой базы возьмешь

Цитата:
привет как дела
дела нормально
что делаешь
делаешь общаюсь
как хорошо
я обыватель общаюсь
хорошо я обыватель
поговорим о жизни
жизни работа отдых
отдых игра
кино AI
какое у тебя любимое кино
какая у тебя любимая игра
AI маленький ребенок робот хотел стать человеком
люблю общаться
я тебя люблю
всем выложили
я люблю общаться нормально общаться




[Ответ][Цитата]
Matrix
Сообщений: 105
На: Нейросеть это , скриншоты , исходники на Blitz3D BASIC скачать
Добавлено: 07 янв 21 13:00
ядро программы все остальное скачать


While 1
SeedRnd(MilliSecs())
ai_i$=Input("User- ")
AddToLog "User- "+ai_i
If ai_i$="exit" Exit

TextBegin(ai_i)
TextReadWord()
If g_text_word="!" AddToKnowledge prev_ai_i

TextBegin(ai_i)
TextReadWord()
If g_text_word="+" Or g_text_word="!"
learn$=""
While(TextReadWord())
learn=learn+" "+g_text_word
Wend
If ai_i<>"!" AddToKnowledge learn
EndIf
ReadKnowledge()

wn=0

TextBegin(ai_i)
While(TextReadWord())
wn=wn+1
g_last_word=g_text_word
Wend

ai_i=""
For j=1 To 9
i=FindNeuronInNet(g_text_word)
.a1
If(i)
nlink=0
Text1Begin(neural(i))
Text1ReadWord()
While(Text1ReadWord())
nlink=nlink+1
links(nlink)=g_text1_word
Wend
g_text_word=links(Rand(1,nlink))
If g_last_word<>g_text_word ai_i$=ai_i+" "+g_text_word
If g_last_word=g_text_word i=Rand(1, NEURAL_NUM) : Goto a1
g_last_word=g_text_word
EndIf
Next

prev_ai_i=ai_i
Print ai_i
AddToLog ai_i


Wend
[Ответ][Цитата]
Matrix
Сообщений: 105
На: Нейросеть это , скриншоты , исходники на Blitz3D BASIC скачать
Добавлено: 07 янв 21 17:33
[Ответ][Цитата]
Matrix
Сообщений: 105
На: Нейросеть это , скриншоты , исходники на Blitz3D BASIC скачать
Добавлено: 11 янв 21 23:47
Изменено: 12 янв 21 0:14
усовершенствовал программу теперь ядро выглядит так


While 1
SeedRnd(MilliSecs())
ai_i$=Input("User- ")
AddToLog "User- "+ai_i
If ai_i$="exit" Exit

TextBegin(ai_i)
TextReadWord()
If g_text_word="!" AddToKnowledge prev_ai_i

TextBegin(ai_i)
TextReadWord()
If g_text_word="+" Or g_text_word="!"
learn$=""
While(TextReadWord())
learn=learn+" "+g_text_word
Wend
If ai_i<>"!" AddToKnowledge learn
EndIf
ReadKnowledge()

wn=0

TextBegin(ai_i)
While(TextReadWord())
wn=wn+1
g_last_word=g_text_word
Wend

ai_i=""
For j=1 To 9
.a1
g_text_word=FindNeuronInNet(g_last_word)
If g_text_word="not_found" Or g_last_word=g_text_word g_text_word=FindRandNeuronInNet$()
If g_last_word<>g_text_word ai_i$=ai_i+" "+g_text_word
;If g_last_word=g_text_word Goto a1
g_last_word=g_text_word
Next

prev_ai_i=ai_i
Print ai_i
AddToLog ai_i


Wend


Function FindRandNeuronInNet$()
MAX_FINDED=0
For i=1 To 64000
Text1Begin(neural(i))
Text1ReadWord()
If g_text1_word<>"" MAX_FINDED=MAX_FINDED+1 : FindedNeurals(MAX_FINDED)= g_text1_word
Next
If MAX_FINDED<>0 Return FindedNeurals(Rand(1,MAX_FINDED))
Return "not_found"
End Function

Function FindNeuronInNet$(w$)
MAX_FINDED=0
For i=1 To 64000
Text1Begin(neural(i))
While Text1ReadWord()
If g_text1_word=w
Text1ReadWord()
MAX_FINDED=MAX_FINDED+1
FindedNeurals(MAX_FINDED)= g_text1_word
EndIf
Wend
Next
If MAX_FINDED<>0 Return FindedNeurals(Rand(1,MAX_FINDED))
Return "not_found"
End Function


[Ответ][Цитата]
гость
178.176.213.*
На: Нейросеть это , скриншоты , исходники на Blitz3D BASIC скачать
Добавлено: 12 янв 21 3:12
по ссылкам не ходил. Что-то маловато кода даже для ядра любой более-менее интересной системы. Комментариев я бы добавил. Впрочем, насколько я помню, у вас справка об инвалидности имеется, по шизофрении, так что, то, что вы пишете хоть какой код - уже хорошо. Но берегитесь - если код увидит лечащий врач - инвалидность могут снять.
[Ответ][Цитата]
 Стр.1 (1)