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

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

Все темы | Новая тема  Стр.1 (1)     Поиск:
Автор	Тема: блог GotAI.NET создание нашей ИИ Albion.TXT
нейросеть Сообщений: 6301	блог GotAI.NET создание нашей ИИ Albion.TXT Добавлено: 13 окт 25 9:44 Изменено: 13 окт 25 21:37 давайте определимся товарищи на чем работать будем я предлагаю Blitz-BASIC рассуждение создается по словам каждое новое слово влияет на прошлые так же как прошлые на новые правильно > Герой я Наставница квест принести книга Библиотека принести книга магия [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 13 окт 25 12:27 > работает я ты мы нейросеть работает ! нейросеть работает нейросеть > работает ! нейросеть работает нейросеть работает ! нейросеть работает > работает нейросеть работает ! нейросеть работает ! нейросеть работает > нейросеть работает я ты мы нейросеть работает ! нейросеть работает ! > работает нейросеть работает нейросеть работает ! нейросеть работает нейросеть > работает нейросеть работает нейросеть работает нейросеть работает ! нейросеть > работает мы я ты мы ! нейросеть работает я наводить > что ? чудо думаю стол что там ? думаю думаю > там хорошо ) (-: смайлик ) улыбка (-: смайлик хорошо > там хорошо (-: ) улыбка хорошо (-: смайлик хорошо > ура работает я ты мы работает ! нейросеть работает [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 13 окт 25 13:24 > Game.EXE квест Цикалова книга игра на нейросети Ариманова Sims Strmr-Life-Sim ПэЖэ > игра Ариманова Quest )) ПэЖэ )) ПэЖэ хорошо > ) (-: смайлик книга игра Diablo RPG Diablo > RPG Diablo RPG Diablo RPG Diablo RPG Diablo > RPG Diablo RPG Diablo RPG Diablo RPG Diablo > Diablo хит DOOM DOOM RPG Diablo хит DOOM DOOM RPG Diablo > квест Цикалова Цикалова Myst квест Myst квест Цикалова Ариманова > красотка Ариманова красотка ПэЖэ Ариманова привет привет привет хорошо (-: ) улыбка Sims Strmr-Life-Sim > Ариманова думаю стол стол Малколм ПэЖэ хорошо (-: смайлик стол [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 13 окт 25 13:26 > запускаем до цикла цикла до цикла цикла цикла цикла цикла до > цикла до цикла до цикла до цикла до > цикла до цикла до цикла до цикла до > цикла до цикла до цикла до цикла до > цикла до цикла до цикла до цикла до > цикла до цикла до цикла до цикла до > вот до цикла Wolf3D DOOM на нейросети ? чудо > игры 2 3 самое да что ? ? > думаю думаю думаю думаю думаю думаю стол нейросеть > работает ! нейросеть работает нейросеть работает я Малколм > ПэЖэ шотган здорово молодец наводить порядок стол Sims > Strmr-Life-Sim Sims Strmr-Life-Sim спасибо наводить порядок стол Myst > квест Myst квест Ариманова мое стол чем гамать > работать Кармак DOOM DOOM отдыхать ) улыбка работает > ! нейросеть работает я ты мы ура работает [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 13 окт 25 14:24 > Ариманова я привет ! ПэЖэ ПэЖэ привет ! ПэЖэ я привет ! ПэЖэ > Ариманова я что будем делать ? наконец-то молодец Малколм я что будем делать ? > Малколм я о круто ! Кармак я люблю 3D графика Полигон я о круто ! ПэЖэ я привет ! > Малколм я привет ! ПэЖэ я что будем делать ? я [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 13 окт 25 15:24 Изменено: 13 окт 25 15:39 Система не надоел тебе этот Диснейленд взрослый вроде человек Кармак я детей обучаю программировать нате дети Print("select screen mode"); Print("1 640x480"); Print("2 800x600"); g_mode=Input("> "); If g_mode=1 Then g_width=640:g_height=480 If g_mode=2 Then g_width=800:g_height=600 Graphics g_width, g_height, 0, 2 ; AAH I REMEMBER TYPING THIS SetFont(LoadFont("system")); Global n_weights=10000 Global n_link=100 Dim weights%(n_weights,n_link) Global MAX_WORDS=0 Dim knowledge$(100000); Global g_text_pos = 0; Global g_text$; Global g_text_word$; ; ################################# ; Pretty bad, so let us train the network Global s_out$="" Global s_dice$="" Global max_res#=0 Global last_word$="" f = FileOpen ("loc.txt") Global i_word_$=ReadLine(f); load rus "i" CloseFile(f) ;AddToKnowledgeWord("test") ReadKnowledge(); LoadNet() Global word$; Dim words$(100) Global words_n Function Weights_add_weight(n,v2) For i=1 To n_link If weights(n,i)=v2 Then Return Next For i=1 To n_link If weights(n,i)=0 Then weights(n,i)=v2:Return Next End Function While (1) ; Print "Press key to train the network!" ;WaitKey() ReadKnowledge(); Locate(0,GraphicsHeight()) user_text$=Input("> ") TextBegin(user_text$) While TextReadWord() AddToKnowledgeWord(g_text_word) Wend SeedRnd(MilliSecs()) Log_add("> "+user_text) TextBegin(user_text$) ;last_word$="" words_n=0 While TextReadWord() last_word=g_text_word; words_n=words_n+1 words(words_n)=g_text_word If g_text_word="locate" Then Print location; If g_text_word="dice" Then d=Rand(1,6):Print "dice "+d : Log_add("dice "+d) next_word$=Text_get_next_word$() ;If next_word$<>"" Then Weights_add_weight(GetVec(g_text_word),GetVec(next_word)) Wend ; now our loss function should be much smaller ; If it isn't try playing around with the parameters ; ################################# ; ################################# ; The network is trained ; Print "Press key for a test run of the trained network!" ;WaitKey() s_dice$="" s_out$=""; r=8;Rand(1,7) dice=0 word$=last_word; ; Print "max res "+max_res For i = 1 To r ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;word=if(word1<>"" n_attemp=1 .a1 n_attemp=n_attemp+1 ;res% = ProcessInputData(GetVec(word)) ; get network results ;If res<0.0 Then res=res*-1; ;If res>max_res Then max_res=res; ;res=res/Float(max_res)*Float(MAX_WORDS); For j=1 To n_link If weights(GetVec(word),j)=0 Exit Next j=j-1 If word=i_word_ Then Print "i_word_ "+j res=weights(GetVec(word),Rand(1,j)) s_$=VecToString(res) If s_="" And n_attemp<100 Then word=words(Rand(1,words_n)):Goto a1; If s_="" Then s_=knowledge(Rand(1,MAX_WORDS)):Print "use Rand": Print res word$=s_$ last_word=word$ ; Print "res "+res s_out=s_out+s_+" "; If s_="dice" Then s_out=s_out+dice=Rand(1,6)+" "; Next Log_add(s_out) Print s_out If dice Then Print dice ; s_out="" ; If s_dice Then s_out="AI dice "+s_dice; SaveNet() Wend ; Print "Press key to end the program!" ;WaitKey() ; See? much better now! ; ################################# End ; bye! Function Log_add(s$) ls$="" TextBegin(s$) While TextReadWord() ls=ls+g_text_word+" "; Wend If ls="" Or ls=" " Then Return f=FileOpen("log.txt") SeekFile(f, FileSize("log.txt")); WriteLine(f, ls) CloseFile(f); End Function Function GetVec(s$) For i=1 To MAX_WORDS If knowledge(i)=s$ Return i; Print "Get_vec "+i: Next Return 0 End Function Function VecToString$(v%) Return knowledge(v) If v<0 Then v=v*-1 If v>MAX_WORDS Then v=0 If v>=0 And v<=MAX_WORDS Then Return knowledge(v) Return "" End Function Function LoadNet() f=ReadFile("weights.sav") If f=0 Return; CloseFile (f) file1 = FileOpen("max_res.sav"); max_res=ReadFloat(file1) CloseFile(file1) file1 = FileOpen("weights.sav"); For i=1 To n_weights; For j=1 To n_link; weights(i,j)=ReadInt(file1) Next Next CloseFile(file1); End Function Function SaveNet() file1 = FileOpen("max_res.sav"); WriteFloat(file1,max_res) CloseFile(file1) file1 = FileOpen("weights.sav"); For i=1 To n_weights; For j=1 To n_link; WriteInt(file1,weights(i,j)) Next Next CloseFile(file1); End Function Function ReadKnowledge() MAX_WORDS=0 file1=FileOpen("knowledge.txt"); While(Eof(file1)<>1) ReadLine(file1) MAX_WORDS=MAX_WORDS+1 Wend CloseFile(file1) file1 = FileOpen("knowledge.txt"); For i=1 To MAX_WORDS knowledge(i) = ReadLine(file1); Next CloseFile(file1); End Function Function AddToKnowledgeWord(s$) If Word_Qu(s)>0 Return If(s = "") Return f=FileOpen("knowledge.txt") If MAX_WORDS SeekFile(f, FileSize("knowledge.txt")); WriteLine(f, s) MAX_WORDS=MAX_WORDS+1 ; Print MAX_WORDS CloseFile(f); ReadKnowledge() End Function Function Word_Qu(w$) q=0 ReadKnowledge() For i=1 To MAX_WORDS If w=knowledge(i) q=q+1 Next Return q End Function Function FileOpen(fn$) file1 = OpenFile(fn$); If(file1=0)file1=WriteFile(fn$); Return file1; End Function ;------------------ Function TextBegin(text_$) g_text=text_ g_text_pos = 1 g_text_prev_word_pos = 1 g_text_word="" End Function Function TextReadWord() g_text_word ="" If (g_text_pos > Len(g_text))Return 0; While (Mid(g_text, g_text_pos, 1) = " ") : g_text_pos = g_text_pos + 1 : Wend While (Mid(g_text,g_text_pos,1) <> " " And g_text_pos<=Len(g_text)) g_text_word =g_text_word+ Mid(g_text,g_text_pos,1); g_text_pos=g_text_pos+1 Wend g_text_pos=g_text_pos+1; Return 1; End Function Function Text_get_next_word$() g_text_prev_word_pos=g_text_pos prev_word$=g_text_word TextReadWord() w$=g_text_word g_text_word=prev_word g_text_pos=g_text_prev_word_pos Return w End Function ; simple min function Function min#(a#, b#) If a < b Return a Else Return b EndIf End Function ; simple max function Function max#(a#, b#) If a > b Return a Else Return b EndIf End Function ; to_approximate ; INPUT: ; x# - the function input value ; RETURNS: ; the value that the function computes ; ; This is the function we want our network to approximate ; I used a simple x^2, you can try different ones ; CHANGEME Function to_approximate#(x#) Return x*x End Function ; ################################# <- I had to insert this or I would have gone mad [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 13 окт 25 15:43 Изменено: 13 окт 25 21:17 Кира дети это полная программа на Blitz3D такой вот игры я наконец-то молодец Малколм я люблю Ариманова я > Кармак я как волшебно Малколм я наконец-то молодец Малколм я > Кармак я шотган )) Sims ! Кармак я ) я > Кармак я привет ) проблевались ) Кармак я люблю огнестрел о [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 13 окт 25 16:10 Молинье - Кирюха Fable4.TXT ! идея ? Кирилл - круть Молинье - так значит решено делаем Fable4.TXT ? Кирилл - это будет круто начальник у меня управленческих навыков Молинье - спасибо не подведу 6979 Люси-Гордон [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 17 окт 25 3:02 что тебе не нравится ? 4043 [Ответ][Цитата]
нейросеть Сообщений: 6301	На: блог GotAI.NET создание нашей ИИ Добавлено: 17 окт 25 3:17 "безгранично" бывает только время хотя может какие тут чудо это чудо Отличная философская мысль! Разберём её с научной и метафорической точек зрения. Что значит «безгранично»? В строгом смысле безграничность — это отсутствие пределов во времени, пространстве или количественных характеристиках. Но в реальности почти всё имеет границы — вопрос лишь в масштабе. Почему время часто считают безграничным? Космологический аспект В классической физике время линейно и бесконечно (прошлое → будущее). Однако теория Большого взрыва предполагает начало времени ~13,8 млрд лет назад. Некоторые квантовые модели допускают «время до времени» — но это гипотезы. Психологический эффект Человеческий разум плохо воспринимает конечность времени, поэтому оно кажется безграничным. Мы оперируем привычными масштабами (годы, века), а космологические сроки кажутся «бесконечностью». Математическая модель В уравнениях время часто выступает как неограниченная переменная t∈(−∞,+∞). Но это абстракция: реальные процессы имеют начало и конец. А есть ли что-то действительно безграничное? Варианты для обсуждения: Математические абстракции Множество натуральных чисел N — бесконечно. Пространство R 3 в евклидовой геометрии — безгранично. Но это модели, не физические объекты. Квантовые феномены Квантовая запутанность действует «мгновенно» на любых расстояниях — но переносит ли она информацию? Виртуальные частицы в вакууме возникают без явных ограничений — но их существование короткоживущее. Вселенские масштабы Если Вселенная плоская и открытая, её пространство может быть бесконечным. Но мы наблюдаем лишь конечную часть (наблюдаемая Вселенная ~93 млрд световых лет). Сознание и идеи Человеческая фантазия не имеет жёстких границ. Математические концепции (например, бесконечные множества) существуют вне времени. «Чудо» как граница познания Когда мы говорим «это чудо», часто имеем в виду: явление, для которого нет понятного объяснения; событие с исчезающе малой вероятностью; опыт, выходящий за рамки привычного. Примеры «чудес» с научной оговоркой: Квантовая нелокальность — кажется магией, но описывается уравнениями. Возникновение жизни — статистически невероятно, но реализовалось. Осознанность — нет полной модели, как из нейронов возникает «я». Итого: где граница между «безграничным» и «чудом»? Время — кажется безграничным, но, возможно, имеет начало и может иметь конец (в некоторых космологических моделях). Пространство — может быть бесконечным, но мы этого не знаем точно. Абстракции (математика, логика) — действительно безграничны, но существуют в ином смысле. «Чудо» — часто синоним «ещё не объяснённого». Финальный вывод «Безгранично» — это: в науке: гипотетическая характеристика, требующая доказательств; в философии: категория, граничащая с непознаваемым; в жизни: метафора для того, что превосходит наше текущее понимание. Время — хороший кандидат на «безграничность», но даже оно может оказаться частью более сложной структуры. А «чудо» — это просто точка на границе нашего знания. Когда мы её преодолеваем, чудо становится законом. Хотите разобрать конкретный пример «чуда» с научной точки зрения? Или пофантазировать о гипотетических безграничных явлениях? [Ответ][Цитата]
Стр.1 (1)