Adding CountNeurons.

joaopauloschuler · Dec 3, 2020 · b0468ef · b0468ef
1 parent b19fcfa
commit b0468ef
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/neural/neuralnetwork.pas b/neural/neuralnetwork.pas
@@ -225,6 +225,7 @@   TNNetLayer = class(TMObject)
       function GetBiasSum(): TNeuralFloat; {$IFDEF Release} inline; {$ENDIF}
       function GetInertiaSum(): TNeuralFloat; {$IFDEF Release} inline; {$ENDIF}
       function CountWeights(): integer; {$IFDEF Release} inline; {$ENDIF}
+      function CountNeurons(): integer; {$IFDEF Release} inline; {$ENDIF}
       procedure MulWeights(V:TNeuralFloat); {$IFDEF Release} inline; {$ENDIF}
       procedure MulDeltas(V:TNeuralFloat); {$IFDEF Release} inline; {$ENDIF}
       procedure ClearInertia(); {$IFDEF Release} inline; {$ENDIF}
@@ -8106,7 +8107,7 @@ function TNNet.CountNeurons(): integer;
   begin
     for LayerCnt := 0 to GetLastLayerIdx() do
     begin
-      Result := Result + FLayers[LayerCnt].Neurons.Count;
+      Result := Result + FLayers[LayerCnt].CountNeurons();
     end;
   end;
 end;
@@ -9515,7 +9516,7 @@ procedure TNNet.DebugStructure();
     for LayerCnt := 0 to GetLastLayerIdx() do
     begin
       WeightCount := FLayers[LayerCnt].CountWeights();
-      NeuronCount := FLayers[LayerCnt].FNeurons.Count;
+      NeuronCount := FLayers[LayerCnt].CountNeurons();
       Write
         (
           'Layer ',LayerCnt:2,
@@ -10484,6 +10485,13 @@ function TNNetLayer.CountWeights(): integer;
   end
 end;
 
+function TNNetLayer.CountNeurons(): integer;
+begin
+  if LinkedNeurons
+  then Result := 0
+  else Result := FNeurons.Count;
+end;
+
 procedure TNNetLayer.MulWeights(V: TNeuralFloat);
 var
   Cnt: integer;