with Text_IO;
use  Text_IO;

package DC_Neur is
----------------------------------------------------------------------
----------------------------------------------------------------------
type States_Type is array ( positive range <> ) of float;
----------------------------------------------------------------------
function  Net (
	    Initial_States : in States_Type;
	    File_Str       : in string;
	    Train_File     : in string := "" ) return States_Type;
procedure Neuron (
	    Initial_States : in     States_Type;
	    Weights        : in out States_Type;
	    Output_State   :    out float;
	    Is_Trained     : in     boolean := false );
function  States_Count ( File_Str : in string ) return integer;
procedure States_Read  (
	    File     : in  File_Type;
	    States   : out States_Type;
	    Read_OK  : out boolean );
procedure States_Write (
	    File     : in  File_Type;
	    States   : in  States_Type;
	    Write_OK : out boolean );
function  Sum ( Weighted_Inputs: in States_Type ) return float;
function  Threshhold ( Summed: in float ) return float;
----------------------------------------------------------------------
----------------------------------------------------------------------
end DC_Neur;