ISUII AmigaVirtual-皆のためのユニバーサルAI

人工知能の愛好家や研究者の皆さん、こんにちは！ この記事では、興味深いプロジェクトについてお話ししたいと思います。AmigaVirtual（AV、Virtual Girlfriend）ユニバーサル人工知能（ISUII）のモジュラーシステムです。 その作業の基本原則について説明し、実装の詳細を説明します。最も好奇心が強いものは、すべてのソースコードを調べることができます。 Delphiでは開発が進行中ですが、理論的にはモジュールはどの言語でも作成できます。 このシステムは、チャットボットのエンドユーザーと関連システムの両方、およびAI開発者の関心を引くでしょう。結局のところ、ほぼすべての種類のAIをそのベースで開発できます。



まず、少し歴史。 プロジェクトは、チャットボットの開発を開始することにした2012年に開始されました。 そして、仮想女の子と話すことについての簡単なフラッシュゲームであるSayme 2に出会った後、残念ながら、このゲームの野心的な継続バージョン3は芽で死んだようです。RIP、Sayme 3。 その後、AVはモノリスであり、アバターの一部を含む1つのDLLで写真が撮影されました-アバターが不要な場合に余分なメガバイトをダウンロードしないようにするためです。















これが、Amiga Virtualの最初のバージョンの外観です。



それ以来、コンセプトが変わりました-現在、AV自体はモジュールの操作を整理するためのプラットフォームにすぎません。 すべてのAI「器官」はモジュールに配置されます。



プログラミング言語についてのいくつかの言葉。 2012年に、Delphiを選択しました。彼以外はほとんど何も知らなかったからです（Turbo Pascalを除く）。 後で多くの言語を試してみました...とりわけAdaが好きでしたが、トレーニング資料が十分ではなく、プログラムが遅いことがわかりました。 Oxygen（Delphi Prism）も試してみましたが、材料はさらに少なくなっています。 私はC ++や他のCライクな言語がまったく好きではありません。 そのため、最終的に私はDelphiに戻りました。Delphiはよく知っていて、単にインターネット上にたくさんのトレーニング資料があり、既成のソリューションも数多くあります。



次にプロジェクト自体について。 Amiga Virtualは、多目的マルチエージェントシステムです。 一般的には、次のように編成されています。特定のリストから特定のインターフェイスを実装したメインプログラム（OP）と一連のモジュール（DLLの形式で提示され、ソフトウェアエージェント）があります。 起動中に、OPはすべてのモジュールをロードして識別し（モジュールの機能を決定し、プログラムへのモジュールの割り当ては報告されません-意味がありません）、ユーザーは作業したいモジュールを選択し、選択したモジュールの入力/出力インターフェイスのマルチスレッド処理を開始します。 これはモジュールがどのようにロードされ、識別されるかです：

procedure LoadModules; var i: Integer; begin for i := 0 to Length(Module) - 1 do begin if Module[i].Handle > 0 then FreeModule(Module[i]); if LoadModule(Module[i]) then DetermineModuleType(Module[i]); end; end; function LoadModule(var M: TModule): boolean; var B: String; C: Integer; begin with M do begin Handle := LoadLibrary(PWideChar(FileName)); if Handle > 0 then begin @SetLanguage := GetProcAddress(Handle, 'SetLanguage'); IncAndUpdateProgress; //  - @SendLanguageData := GetProcAddress(Handle, 'SendLanguageData'); IncAndUpdateProgress; @GetName := GetProcAddress(Handle, 'GetName'); IncAndUpdateProgress; //   ,   //      if @GetName <> nil then begin B := GetName; C := Pos(ControlCodeMarker, B); if C > 0 then begin Name := Copy(B, C + 1, Length(B)); ControlCode := Copy(B, 1, C - 1); ControlCodeFormated := FormatControlCode(ControlCode); end else begin Name := B; ControlCode := MainForm.LanguageData[133]; end; end else begin Name := MainForm.LanguageData[114]; ControlCode := MainForm.LanguageData[133]; end; if (@OpenWindow <> nil) and (@CloseWindow <> nil) then WindowState := closed else WindowState := window_does_not_exist; if (@Sleep <> nil) and (@WakeUp <> nil) then ModuleState := working else ModuleState := module_cant_sleep; LoadStatistics; //     Result := true; end else Result := false; end; end; function DetermineModuleType(var M: TModule): TModuleType; begin with M do begin MType := undetermined; if (@SetLanguage = nil) and ... (*     nil *) then MType := erroneous_or_empty else begin if (@SetSource <> nil) or (@NextData <> nil) or (@Progress <> nil) or (@RestartParsing <> nil) then MType := parser else begin if (@GetData <> nil) and (@SendData <> nil) then MType := input_and_output else if (@GetData <> nil) and (@SendData = nil) then MType := only_input else if (@GetData = nil) and (@SendData <> nil) then MType := only_output else if (@GetData = nil) and (@SendData = nil) then MType := no_input_and_no_output; end; end; Result := MType; end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

OPは、ユーザーがモジュールと対話するためのテキストベースのインターフェイス、またはより簡単にチャットウィンドウのみを実装します。 すべてのモジュールはこのチャットを通じて通信しますが、通常、モジュールの技術的なメッセージはユーザーに表示されません。 彼には関係ありません（デバッグの目的で、これらのメッセージを表示できます）。 技術メッセージは、行の先頭にいくつかの印刷できない文字としてマークされます。 このコード（「制御コード」）は、モジュールの開発者によって設定されます。 1つの制御コードで2つのモジュールをダウンロードすると、システムループが発生する可能性があります。これら2つのモジュールは、2つのミラーが相互に設定されているように、メッセージを無限に交換します。 要するに、モジュールがそれらに宛てられていないメッセージを無視するために、制御コードが必要です。 ただし、インテリジェンスカーネルモジュールなど、一部のモジュールはすべてのメッセージを処理できます。



入力、出力、または入出力インターフェースを持つ各モジュールは、個別のOPストリームで処理されます。 これにより、一部のモジュールがフリーズするか、単に「考え直す」場合に、OPの操作性を維持できます。 残りのモジュールは、ユーザーが独自のウィンドウを使用して手動モードで使用します。 次のクラスは、入力/出力ストリームを実装します。

  TIOThread = class(TThread) public const SleepTime = 1000; var Module: TModule; SelfID: Integer; constructor Create(M: TModule; ID: Integer); protected procedure Execute; override; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

そして、I / O処理がどのように行われるかを次に示します。

 procedure TIOThread.Execute; procedure GetData; var M: String; begin M := String(Module.GetData); if M <> SCM_No_Message then Synchronize( procedure begin Pool.AddRecord(M, SelfID); end); end; procedure SendData; var i: Integer; begin with Pool do if not Empty then begin for i := 0 to Length(Records) - 1 do with Records[i] do if not ModuleGot[SelfID] and (AuthorID <> SelfID) then begin Module.SendData(PChar(Text)); ModuleGot[SelfID] := true; end; Synchronize( procedure begin CheckAndDeleteOddRecords; end); end; end; begin inherited; while not Terminated do begin case Module.MType of only_input: GetData; only_output: SendData; input_and_output: begin SendData; GetData; end; end; Sleep(SleepTime); end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

メッセージングの場合、OPはメッセージプールを実装します。 チャットウィンドウとモジュールから送信されたすべてのメッセージはそのウィンドウに保存され、すべてのモジュールがこれらのメッセージを受信するまで保存され、その後削除されます。 次のクラスは、メッセージプールを実装します。

  TPoolRecord = record Text: String; AuthorID: Integer; ModuleGot: array of Boolean; end; TPool = class Records: array of TPoolRecord; Empty: Boolean; procedure AddRecord(RecordText: String; RecordAuthor: Integer); procedure CheckAndDeleteOddRecords; constructor Create; procedure Show; end; procedure TPool.AddRecord(RecordText: String; RecordAuthor: Integer); var i, RL: Integer; begin RL := Length(Records); SetLength(Records, RL + 1); with Records[RL] do begin Text := RecordText; AuthorID := RecordAuthor; SetLength(ModuleGot, OutputModulesCount); for i := 0 to OutputModulesCount - 1 do if i = AuthorID then ModuleGot[i] := true else ModuleGot[i] := false; end; with MainForm, MainForm.ChatBox.Lines do case RecordAuthor of - 1: Add(User.Name + ': ' + RecordText); else if RecordText = SCM_Dont_Know_Answer then begin if DontKnowCheckBtn.Checked then Add(LanguageData[156]); end else Add(AVirtual.Name + ': ' + RecordText); end; Empty := false; end; procedure TPool.CheckAndDeleteOddRecords; function ItsOdd(ID: Integer): Boolean; var i: Integer; begin ItsOdd := true; with Records[ID] do for i := 0 to Length(ModuleGot) - 1 do if not ModuleGot[i] then begin ItsOdd := false; exit; end; end; procedure DeleteRecord(ID: Integer); var i: Integer; begin for i := ID to Length(Records) - 2 do Records[i] := Records[i + 1]; SetLength(Records, Length(Records) - 1); end; var i: Integer; begin if not Empty then begin for i := Length(Records) - 1 downto 0 do if ItsOdd(i) then DeleteRecord(i); if Length(Records) = 0 then Empty := true; end; if MainForm.PoolShowBtn.Checked then Show; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

次に、可能なモジュールのクラスとその機能について説明しましょう。



ガールフレンドが考案され実装された最も重要な主要クラスのモジュールは、「知的カーネル」（IJ、または単にカーネル）です。 カーネルは、チャットに設定されたアルゴリズムに従ってチャットに入るすべてのメッセージを処理します。 つまり、彼は主な知的作業を実行します。 特定のアルゴリズムとその実装は、カーネル開発者に依存します。 優れたカーネルを作成する方法は興味深い質問であり、一連のコアを例として使用して別の記事で説明します。 別の興味深い質問は、カーネルを個別のモジュールに分割する方法です。 現在作業中のカーネルを細分化することはできません。 ただし、原則として、複合コアの作成を妨げるものはありません。



他のすべてのモジュールはいくつかのカテゴリに分類されます：受容体（チャットでメッセージを生成-ビジョンモジュール、聴覚モジュールなど）、エフェクター（チャットからのメッセージに応じてアクションを実行）、ツール（AIに直接適用せず、ユーザーが手動で使用します） ）、パーサー（トレーニングモジュール「Dream Fusion」で使用）、およびいくつかの特別なモジュールで使用できるその他のモジュール。



一部の受容体とエフェクターは、それぞれ「制御コード+コマンド」のスタイルで記録されたメッセージをエンコードおよびデコードします。 通常、このようなメッセージはユーザーには表示されません。 これらのメッセージの本質は次のとおりです。受容体は、ユーザーによって実行された特定のアクションを認識し、メッセージにエンコードし、保存のためにカーネルに送信します。 カーネルがこのメッセージを発行すると、対応するエフェクタがメッセージをデコードし、ユーザーのアクションに対応するコマンドを受信し、このアクションを実行します。 メッセージを記憶して発行するカーネルに違いはなく、任意の受容体とエフェクターをシステムに接続できるため、知性は普遍的であることがわかります。つまり、何でも教えられます。 いいですね



便宜上、関連する受容体とエフェクターを1つのモジュールに実装できることに置き換えてください。 例は、一般的な名前「エモーショナルアバター」（私はそれを「エモター」と呼びます）の下のモジュールのクラスです。ユーザーは特定の感情を表現する顔をパーツか​​ら収集し、モジュールは選択された感情をエンコードするメッセージを作成します。 受容体として機能します。 カーネルがこのメッセージをチャットに発行すると、emotarはそれをデコードし、対応する感情を持つ顔画像を作成します。 エフェクターとして機能します。 エモターを2つの別々のモジュールに分けるために、私はその点を見ていません。



以下は、Delphiでモジュールを作成するためのテンプレートの例です。

 library ; uses System.SysUtils, System.Classes, SystemControlMessagesUnit in '..\..\AmigaVirtual\SystemControlMessagesUnit.pas', MainFormUnit in 'MainFormUnit.pas', const ControlCode = ++; Name = ControlCode + '> '; Help = '' + #13 + ''; var FormState: (closed, opened); Buffer, VirtualName: String; NewMessageGot: Boolean; function GetName: PChar; stdcall; begin Result := PChar(Name); end; function GetHelp: PChar; stdcall; begin Result := PChar(Help); end; procedure OpenWindow; stdcall; begin if MainForm = nil then MainForm := TMainForm.Create(nil); MainForm.Show; FormState := opened; end; procedure CloseWindow; stdcall; begin if FormState = opened then begin MainForm.Close; FormState := closed; MainForm.Release; MainForm := nil; end; end; procedure SendData(Data: PChar); stdcall; begin Buffer := Data; end; function GetData: PChar; stdcall; begin if NewMessageGot then begin Result := PChar(Buffer); NewMessageGot := false; end else Result := PChar(SCM_No_Message); end; procedure Start; stdcall; begin NewMessageGot := false; if MainForm = nil then MainForm := TMainForm.Create(nil); end; procedure SetVirtual(Name: PChar); stdcall; begin VirtualName := Name; end; procedure LoadData; stdcall; begin //    end; procedure SaveData; stdcall; begin //    end; exports GetName, GetHelp, OpenWindow, CloseWindow, SendData, GetData, Start, SetVirtual, LoadData, SaveData; begin end.
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

現在21のインターフェイスがあります。

  SetLanguage: function(Language: PChar): boolean; stdcall; SendLanguageData: function(Data: array of PChar): boolean; stdcall; GetName: function: PChar; stdcall; GetHelp: function: PChar; stdcall; Start: procedure; stdcall; Sleep: function: boolean; stdcall; WakeUp: procedure; stdcall; OpenWindow: procedure; stdcall; CloseWindow: procedure; stdcall; SetVirtual: procedure(Name: PChar); stdcall; SaveData: procedure; stdcall; LoadData: procedure; stdcall; Reset: procedure; stdcall; SetNewMainWindow: procedure(Position, Size: TPoint); stdcall; GetTimerInterval: function: Integer; stdcall; SendData: procedure(Data: PChar); stdcall; GetData: function: PChar; stdcall; SetSource: procedure(SourcePath: PChar); stdcall; NextData: function: PChar; stdcall; Progress: function: Real; stdcall; RestartParsing: procedure; stdcall;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

モジュールは、上記のインターフェースの任意のセットを実装できます。



典型的なモジュールはインテリジェントエージェントですか？ 実装に依存します。 実装には2つのオプションがあります。 ビジョンモジュールの例でそれらを考えてみましょう。 最初のオプションは単純なソフトウェアエージェントです。画像をそのままエンコードします。つまり、ビットマップをテキスト文字列に変換します。 2番目のオプションは、複雑な知的エージェントです。たとえば、画像内のオブジェクトを認識し、メッセージ内の単語で説明する人工ニューラルネットワークです。 2番目のタイプのモジュールがいくつか使用されている場合、ユニバーサルAIは弱いAIのセットから構築されていると言えます。 それが強力な知性であるかどうかは、カーネルの実装に依存します。



そして今、メインプログラムの詳細について。 それらの3つがあります：AIデータベースを名前で整理する、統計でユーザーを登録する、コンテンツを共有するための「Exchange Center」。



チャットボットプラットフォームiiiを知っていますか？ 本質的に、Amiga Virtualはiiiの何倍も高度なバージョンです。 AIインスタンス（名前付きデータベース）を「Infami」ではなく「Virtuals」と呼びます。 各Virtualは、ユーザーによってゼロからトレーニングされ、別のコンピューターに簡単に転送できます。 また、アバターモジュール（またはエモター）の助けを借りて、仮想のユニークな視覚イメージを作成できます。 Virtuals Managerタブは次のようになります。









使用されるモジュールの選択は、制御コードによって衝突についてチェックされます。

 type CResult = (no_collision, collision); function CheckModulesCollision: CResult; var i, j: Integer; CC: String; begin Result := no_collision; with ModulesList do for i := 0 to Items.Count - 1 do if Checked[i] then begin CC := FindModuleByFileName(ExtractDLLName(Items[i])).ControlCode; for j := 0 to Items.Count - 1 do if Checked[j] and (i <> j) and (CC = FindModuleByFileName(ExtractDLLName(Items[j])).ControlCode) then Result := collision; end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ほとんどのユーザーがAVをどのように使用し、どの方向でプロジェクトを開発するかを知るために、匿名の統計を収集します。

これまでのところ、統計の収集は実装されていません。



Exchange Center（TS）は、メインプログラムから利用できるサービスであり、ユーザー間のモジュール、Virtuals、およびその他のコンテンツの交換を目的としています。









これがコンテンツのダウンロードの実装方法です。

 procedure TMainForm.DownloadFilesButtonClick(Sender: TObject); var Dir, FileName: String; begin SetCurrentDir(ProgramPath); Dir := Category[ContentCategoryBox.ItemIndex]; Dir := UpCase(Dir[1]) + Copy(Dir, 2, Length(Dir)); if not DirectoryExists(Dir) then CreateDir(Dir); SetCurrentDir(Dir); FileName := ContentList.Items[ContentList.ItemIndex]; if FileExists(FileName) then MessageDlg(LanguageData[172], mtInformation, [mbOk], 0) else begin DownloadFile(SiteProtocol + OfficialWebsite + ExchangeCenterPage + '?c=' + Category[ContentCategoryBox.ItemIndex] + '&f=' + FileName + '&l=' + LanguageData[0], FileName); //  LanguageData[0]     if Copy(FileName, Length(FileName) - 2, 3) = 'zip' then UnzipFiles(FileName, GetCurrentDir); case ContentCategoryBox.ItemIndex of 0: UpdateModulesList; 1: UpdateVirtualsList; end; SetStatusMessage(LanguageData[173] + ' ' + ProgramPath + Dir + '\'); end; end; procedure TMainForm.DownloadFile(From, SaveTo: String); var LoadStream: TMemoryStream; begin Downloading := true; LoadStream := TMemoryStream.Create; IdHTTP.Get(TIdURI.URLEncode(From), LoadStream); LoadStream.SaveToFile(SaveTo); LoadStream.Free; Downloading := false; SplashScreen.Close; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

コンテンツをセントラルオフィスにアップロードするために、アカウントシステムが実装されています（まだ機能していません）。









公式フォーラムのアカウントシステムに接続する予定ですが、まだ方法がわかりません。



ゲストアカウントでは基本アクセス（ダウンロードのみ）が提供され、コンテンツをダウンロードするには登録する必要があります（コンテンツロードアルゴリズムが実装されるまで、FTP経由で手動でアップロードします）。



DHに加えて、ユーザーに技術サポートを提供するフォーラムもあります-組み込みブラウザで開きます（Delphiの標準-Tridentカーネルを使用しているようですが、単純なページを描画するだけです;フォーラム自体はphpBBにあります）。









スクリーンショットからわかるように、アドレスを入力してページをブックマークすることができます（ブックマークはまだ実装されていません）-フォーラムでの議論を失わないように。



別のポイント。 LanguageDataの上のコードに注目してください。 これは、選択した言語に一致するGUIコンポーネントのテキスト文字列を格納する配列です。 ロシア語と英語はリソースとして.exeにパッケージ化され、起動時にLanguagesフォルダーに解凍されます。 他の言語のファイルは、Exchange Centerからダウンロードできます。 なぜなら DelphiはUnicodeをサポートしており、言語は好きなように設定できます-例えば、日本語やアラビア語。



これは、言語ファイルが.exeからアンロードされる方法です。

 procedure TMainForm.DeployDefaultLanguages; procedure DeployLanguage(LanguageName: String); var ResHandle, MemHandle: THandle; MemStream: TMemoryStream; ResPtr: PByte; ResSize: Longint; ResName: String; i: Integer; begin ResName := ''; for i := 1 to Length(LanguageName) do ResName := ResName + UpCase(LanguageName[i]); ResName := ResName + '_LP'; ResHandle := FindResource(HInstance, PWideChar(ResName), RT_RCDATA); if ResHandle = 0 then begin ShowMessage('Default language "' + LanguageName + '" not found. (' + ResName + ')'); exit; end; MemHandle := LoadResource(HInstance, ResHandle); ResPtr := LockResource(MemHandle); MemStream := TMemoryStream.Create; ResSize := SizeOfResource(HInstance, ResHandle); MemStream.SetSize(ResSize); MemStream.Write(ResPtr^, ResSize); MemStream.Seek(0, 0); MemStream.SaveToFile(LangFilesDir + '/' + LanguageName + LanguageFileExtension); FreeResource(MemHandle); MemStream.Destroy; end; begin if not DirectoryExists(LangFilesDir) then CreateDir(LangFilesDir); DeployLanguage('Russian'); DeployLanguage('English'); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ご覧のとおり、新しい定義済み言語を埋め込むには、言語ファイルをリソースファイルに挿入し、DeployLanguageタイプ（「言語名」）の行を追加して、プロジェクトを再コンパイルするだけです-便利です。



これが言語のロード方法です。

 procedure TMainForm.ChangeLanguageTo; function LanguageDataLoaded: Boolean; var T: TextFile; B: RawByteString; begin SetCurrentDir(ProgramPath + LangFilesDir); if FileExists(Language + LanguageFileExtension) then begin AssignFile(T, Language + LanguageFileExtension); Reset(T); SetLength(LanguageData, 1); LanguageData[0] := Language; while not eof(T) do begin SetLength(LanguageData, Length(LanguageData) + 1); ReadLn(T, B); LanguageData[Length(LanguageData) - 1] := UTF8ToWideString(B); end; CloseFile(T); if Length(LanguageData) - 1 >= LangFileMinSize then Result := true else Result := false; end else Result := false; end; procedure SetCaptions; begin with HelpForm do begin LoadHelpTexts; if CurrentTopic < HelpLast then OpenTopic(CurrentTopic) else OpenTopic(0); end; AddModulesHelpToMainProgramHelp; ChangeModulesLanguageToProgramLanguage; AuthorizationTab.Caption := LanguageData[18]; // - ... CloudSaveNow.Caption := LanguageData[181]; CloudLoadNow.Caption := LanguageData[182]; end; procedure CheckMenuItem; var Item: TMenuItem; begin for Item in LanguageMenu.Items do if Item.Name = LanguageData[0] + 'Lang' then Item.Checked := true; end; begin if LanguageDataLoaded then begin if not Silent then SetStatusMessage(LanguageData[2] + ' ' + LanguageData[0]) else FormCaption.Caption := LanguageData[1]; SetCaptions; end else begin if Language <> SavedLanguage then ChangeLanguageTo(SavedLanguage) else ChangeLanguageTo(DefaultLanguage); MessageDlg(LanguageData[3] + #13 + LanguageData[2] + ' ' + LanguageData[0] + '.', mtError, [mbOk], 0); end; CheckMenuItem; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ヘルプウィンドウもあります。









それを通じて、メインメニューから、モジュールに関する情報を表示できます：









もう1つの興味深いトリックは、.batスクリプトを使用して作成されるプログラムの自己更新です。

 procedure TMainForm.UpdateProgram; procedure DeployBAT; var bat: TextFile; begin if not FileExists(ProgramPath + 'update.bat') then begin AssignFile(bat, ProgramPath + 'update.bat'); Rewrite(bat); WriteLn(bat, 'taskkill /im av.exe'); WriteLn(bat, 'sleep 1'); // Windows XP WriteLn(bat, 'timeout /t 1 /nobreak'); // Windows 7+ WriteLn(bat, 'del av.exe'); WriteLn(bat, 'move ' + ZipsDir + '\av.exe %1'); WriteLn(bat, 'del /S /Q ' + ZipsDir); WriteLn(bat, 'start av.exe'); // WriteLn(bat, 'pause'); CloseFile(bat); end; end; begin DownloadFile(SiteProtocol + OfficialWebsite + '/av.zip', ProgramPath + 'av.zip'); UnzipFiles(ProgramPath + 'av.zip', ProgramPath + ZipsDir); DeployBAT; SetCurrentDir(ProgramPath); ShellExecute(Handle, nil, 'update.bat', PChar(ProgramPath), nil, SW_SHOW); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

結論として、Amiga VirtualプロジェクトにはWindowsプログラムだけではないことに注意してください。 それに加えて、Android（AVモバイル）、ロボットプラットフォーム（AV OS）、およびスーパーコンピューター（AVスーパー）のシステムオプションが計画されています。 また、インテリジェンスコアアルゴリズムを使用して、インテリジェントな検索エンジンを作成できます（YandexとGoogleの検索結果を再編成します）。 これらの分野のいずれかでアルファ版の準備ができたら、その作業を説明する記事を書きます。



プロジェクトのソースコードと設計ドキュメントは、 github.com / TimKruz / AVからダウンロードできます。



ご清聴ありがとうございました。