CreateNetwork(networkDefinition: String);
networkDefinition. Параметры создаваемой сети, представленные в строковом виде.
Метод CreateNetwork создает нейронную сеть по заданному строковому представлению.
Новая сеть не будет создана, если в networkDefinition указаны неверные параметры.
Метод INeuralNetwork.ExportSynapses возвращает параметры сети в строковом представлении.
Для выполнения примера добавьте ссылку на системную сборку «NN».
Sub UserProc;
Var
network: NeuralNetwork;
networkDefinition: String;
Begin
network := New NeuralNetwork.Create;
networkDefinition := "layers: 1 6 3 ";
networkDefinition := networkDefinition + "funcs: 3 ";
networkDefinition := networkDefinition + "layer 0: 6 3 ";
networkDefinition := networkDefinition + "neuron 0: 7 ";
networkDefinition := networkDefinition + "syn 0: 0.408248 ";
networkDefinition := networkDefinition + "syn 1: 0.408248 ";
networkDefinition := networkDefinition + "syn 2: 0.408248 ";
networkDefinition := networkDefinition + "syn 3: 0.408248 ";
networkDefinition := networkDefinition + "syn 4: 0.408248 ";
networkDefinition := networkDefinition + "syn 5: 0.408248 ";
networkDefinition := networkDefinition + "syn 6: -0.074854 ";
networkDefinition := networkDefinition + "neuron 1: 7";
networkDefinition := networkDefinition + "syn 0: 0.408248 ";
networkDefinition := networkDefinition + "syn 1: 0.408248 ";
networkDefinition := networkDefinition + "syn 2: 0.408248 ";
networkDefinition := networkDefinition + "syn 3: 0.408248 ";
networkDefinition := networkDefinition + "syn 4: 0.408248 ";
networkDefinition := networkDefinition + "syn 5: 0.408248 ";
networkDefinition := networkDefinition + "syn 6: 0.006767 ";
networkDefinition := networkDefinition + "neuron 2: 7 ";
networkDefinition := networkDefinition + "syn 0: 0.408248 ";
networkDefinition := networkDefinition + "syn 1: 0.408248 ";
networkDefinition := networkDefinition + "syn 2: 0.408248 ";
networkDefinition := networkDefinition + "syn 3: 0.408248 ";
networkDefinition := networkDefinition + "syn 4: 0.408248 ";
networkDefinition := networkDefinition + "syn 5: 0.408248 ";
networkDefinition := networkDefinition + "syn 6: 0.244263";
network.CreateNetwork(networkDefinition);
End Sub UserProc;
После выполнения примера по указанным параметрам будет создана нейронная сеть.
См. также: