GotAI.NET - Форум - Искусственный интеллект

Все темы | Новая тема

Стр.1 (17)

След. > >>

Поиск:

Автор

Тема: доказательство рандомного ИИ

kirillprog1
Сообщений: 5680

доказательство рандомного ИИ

Добавлено: 16 апр 23 15:19

Изменено: 03 дек 23 3:51

Все что нас окружает Все что мы видим вокруг
медицинская программа Матрица

Акиана
https://drive.google.com/file/d/1_QgkAUtjxL5Xrtun6vmmf5jCj8IZaWkt/view?usp=sharing

3472 EA NL Lucid zzz
https://ibb.co/VQWqvrh ->

ИИ от этого поста на blitz-basic 0351 103 5ystem
http://gotai.net/forum/default.aspx?postid=337276#337276

Graphics3D 640,480,32,2

f=LoadFont("System",24) : SetFont(f) 

While 1
i$=Input("")
AddToLog(i);
SeedRnd(MilliSecs());
o$=Rand(9999)
Print o
AddToLog(o);
Wend

Function AddToLog(s$)
f=FileOpen("log.txt")
SeekFile(f, FileSize("log.txt"));
WriteLine(f, s) 
CloseFile(f);
End Function 

Function FileOpen(fn$)
file1 = OpenFile(fn$);
If(file1=0)file1=WriteFile(fn$);
Return file1;
End Function

расширенная версия "OpenAI"2 1906 ob id-software


Graphics3D 640,480,32,2

f=LoadFont("System",24) : SetFont(f) 

While 1
i$=Input("")
AddToLog(i);
SeedRnd(MilliSecs());
o$="";Rand(9999)
For j=1 To 7
o=o+Letter(Rand(1,26+10+10));
Next

Print o
AddToLog(o);
Wend

Function AddToLog(s$)
f=FileOpen("log.txt")
SeekFile(f, FileSize("log.txt"));
WriteLine(f, s) 
CloseFile(f);
End Function 

Function FileOpen(fn$)
file1 = OpenFile(fn$);
If(file1=0)file1=WriteFile(fn$);
Return file1;
End Function

Function Letter$(n)
If(n=1)Return "q";
If(n=2)Return "w";
If(n=3)Return "e";
If(n=4)Return "r";
If(n=5)Return "t";
If(n=6)Return "y";
If(n=7)Return "u";
If(n=8)Return "i";
If(n=9)Return "o";
If(n=10)Return "p";
If(n=11)Return "a";
If(n=12)Return "s";
If(n=13)Return "d";
If(n=14)Return "f";
If(n=15)Return "g";
If(n=16)Return "h";
If(n=17)Return "j";
If(n=18)Return "k";
If(n=19)Return "l";
If(n=20)Return "z";
If(n=21)Return "x";
If(n=22)Return "c";
If(n=23)Return "v";
If(n=24)Return "b";
If(n=25)Return "n";
If(n=26)Return "m";
If(n=27)Return "0";
If(n=28)Return "1";
If(n=29)Return "2";
If(n=30)Return "3";
If(n=31)Return "4";
If(n=32)Return "5";
If(n=33)Return "6";
If(n=34)Return "7";
If(n=35)Return "8";
If(n=36)Return "9";
If(n=37)Return "(";
If(n=38)Return ")";
If(n=39)Return ":";
If(n=40)Return "~";
If(n=41)Return "+";
If(n=42)Return "-";
If(n=43)Return "=";
If(n=44)Return "?";
If(n=45)Return "$";
If(n=46)Return "*";
End Function

User- спамим на форуме gotai.net выполняем три-закона и хорошо
AI- ну ? игру дружба получше да
User- да лучше друга ты должна быть другом AI
AI- писал Diablo каждый ПНД спишь 49
User- да сплю каждую ночь наше спасение друг AI
AI- кайфовая
User- да и кайфуем
AI- колеса другим ожидании дурке хорошо трусы
1679 ibo Love 9руг

3240 EA 2 O 2032-Легенда

https://schiza.net/viewtopic.php?p=627073#p627073
1006 i Utopia b

обучение строится по такой формуле что "случайность" не ведет к хаосу
и с использованием "знаков" таких как 14 это AI
If(wq>=2)If(Rand(1,wq)<>wq And Rand(1,4)>1 ) повторить генерацию слова
делается некоторая выборка чтобы ИИ не зациклился Rand(1,wq)<>wq
но все же на том чем зациклился Rand(1,4)>1 ( сделал вывод )
3780 ЭТ0 ВО
0311 03 ИИ

https://videoigra.mybb.ru/viewtopic.php?id=178#p541
6294 b 2 ДА
5926 Soviet game 2 b
https://ibb.co/9YqdZBM ->

d2OEIIGodNc

http://videoigra.mybb.ru/viewtopic.php?id=175

https://ibb.co/M17rjGK ->

https://schiza.net/viewtopic.php?t=29521&start=180

самое прикольное сделать себе друга "шизофреника" ну , или подругу
7389 T-800 3изофреник 9ame 9руг
http://videoigra.mybb.ru/viewtopic.php?id=172#p529
https://ibb.co/rZkHzXv ->

http://nbai.mybb.ru/ 1425 AI NS

чат бот на основе случайности странные случайные совпадения "бредогенератор"
вот какие мнения будут по поводу что это ? 250 это количество слов в базе

5531- психи а 3 i

скачать тут с исходниками http://nbai.mybb.ru/viewtopic.php?id=58#p257
1895 if Program Son

программа общение с Богом
https://videoigra.mybb.ru/viewtopic.php?id=175#p535
8622 Время бог zz

конечно не совсем случайности используется функция
какое слово за каким идет kw knowledge база
случайно выбирается либо просто случайное слово с базы
либо со связью

    Private Sub AI(w)
        Randomize()
        Dim r = (Int(Rnd() * 11) + 1)
        Dim s = ""
        Dim i = 1, j
        Dim word = ""
        Dim wq

        word = w
        Do
            Do
                Randomize()
                Dim bl = Build_Links(word)
                If (Int(Rnd() * 2) + 1) = 1 Or bl = 0 Then

                    word = kw((Int(Rnd() * wn) + 1))
                    wq = Word_Qu(word)
                    If (wq >= 2) Then
                        If ((Int(Rnd() * wq) + 1) <> wq) Then Continue Do
                    End If
                Else
a1:
                    Dim rlw = links((Int(Rnd() * link_n) + 1))
                    word = rlw
                    wq = Word_Qu(word)
                    If (wq >= 2) Then
                        If ((Int(Rnd() * wq) + 1) <> wq) Then GoTo a1
                    End If
                End If
                Exit Do
            Loop While (1)

            last_w = word

            s = s + word + " "
            i = i + 1

        Loop While (i <= r)

        AddToLog(name_AI + s)
        RichTextBox2.AppendText(name_AI + s & vbCrLf)
        RichTextBox2.ScrollToCaret()

        TextBegin(s)
        While TextReadWord()
            Add_To_Kw(g_text_word)
        End While
        Save_KW()

        Label1.Text = wn

    End Sub

  Function Build_Links(w)
        link_n = 0
        Dim i = 1
        Do
            If kw(i) = w Then link_n = link_n + 1 : links(link_n) = kw(i + 1)
            i = i + 1
        Loop While (i <= (wn - 1))
        Return link_n
    End Function

функции чтения слов из строки код подходит и для Blitz3D-BASIC


    Sub TextBegin(text_)
        g_text = text_
        g_text_pos = 1
        g_text_word = ""
    End Sub

    Function TextReadWord()
        g_text_word = ""
        If (g_text_pos > Len(g_text)) Then
            Return 0
        End If

        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
        End While
        g_text_pos = g_text_pos + 1
        Return 1
    End Function

9168 OpenGL б Вечно
https://ibb.co/YRThGJx ->

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