INeuralNetwork.ImportSynapses

Синтаксис Fore

ImportSynapses(synapsysData: String): Boolean;

Синтаксис Fore.NET

ImportSynapses(synapsysData: string): boolean;

Параметры

synapsysData. Строковое представление значений весов синапсов.

Описание

Метод ImportSynapses загружает значения весов синапсов из строкового представления.

Значения весов могут быть загружены из строкового представления сети, возвращаемого методом INeuralNetwork.ExportSynapses. В отличие от метода INeuralNetwork.CreateNetwork данный метод загружает только значения весов синапсов. Это значит, что сеть уже должна быть создана.

Пример Fore

Для выполнения примера предполагается наличие в файловой системе файла «C:\NetDefenition.txt», содержащего строковое представление нейронной сети. Также добавьте ссылки на системные сборки «NN» и «IO».

Function m_ImportSynapses(Net: NeuralNetwork): Boolean;
Var
    NetFile: File;
    TextR: ITextReader;
    SynVal: String;
    res: Boolean;
Begin
    NetFile := New File.Create;
    TextR := NetFile.OpenTextReader("C:/NetDefenition.txt");
    Repeat
        SynVal := SynVal + TextR.ReadLine + " ";
    Until TextR.Eof;
    res := Net.ImportSynapses(SynVal);
    If res Then
        WinApplication.ErrorBox("Загрузка значений весов синапсов завершена!");
    Else
        WinApplication.ErrorBox("Ошибка при загрузке значений весов синапсов!");
    End If;
    Return res;
End Function m_ImportSynapses;

Данная функция производит загрузку значений весов синапсов из файла «C:\NetDefenition.txt».

Пример Fore.NET

Для выполнения примера предполагается наличие в файловой системе файла «C:\NetDefenition.txt», содержащего строковое представление нейронной сети.

Imports System.Windows.Forms;
Imports Prognoz.Platform.Interop.NN;
…
Public Shared Function m_ImportSynapses(Net: NeuralNetwork): Boolean;
Var
    NetFile: StreamReader;
    SynVal: String;
    res: Boolean;
Begin
    NetFile := File.OpenText("C:\NetDefenition.txt");
    Repeat
        SynVal := SynVal + NetFile.ReadLine() + " ";
    Until NetFile.EndOfStream;
    res := Net.ImportSynapses(SynVal);
    If res Then
        MessageBox.Show("Загрузка значений весов синапсов завершена!");
    Else
        MessageBox.Show("Ошибка при загрузке значений весов синапсов!");
    End If;
    Return res;
End Function;