with
  DC_Type;

use
  DC_Type;

package ANN6S is
---------------------------------------------------------------------------
---------------------------------------------------------------------------
Threshhold : constant := 1.0;
subtype States_Type is Array_Boolean;
subtype Weights_Type is Array_Float_2;
subtype Patterns_Type is Array_Boolean_2;
---------------------------------------------------------------------------
procedure Net_Settle (
	    States  : in out States_Type;
	    Weights : in out Weights_Type;
	    Average :    out States_Type;
	    Train   : in     boolean := false );
procedure Net_Update
	    ( States  : in out States_Type;
	      Weights : in out Weights_Type;
	      Train   : in     boolean := false );
function  Patterns_Fetch return Patterns_Type;
procedure Start;
procedure Weight_Add ( Weight : in out float; Neuron_Count: in integer );
procedure Weight_Sub ( Weight : in out float; Neuron_Count: in integer );
procedure Weights_Train
	    ( State_Num  : in     integer;
	      States_Old : in     States_Type;
	      State_New  : in     boolean;
	      Weights    : in out Weights_Type );

---------------------------------------------------------------------------
---------------------------------------------------------------------------
end ANN6S;