Subversion Repositories artificial_neural_network

library IEEE;

use IEEE.STD_LOGIC_1164.all;

use IEEE.numeric_std.all;

use work.layers_pkg.all;

package support_pkg is

    -- generic constants:

  constant NbitIn   : natural := 12;

  constant LSB_In   : natural := 8;

  constant Nbit     : natural := 12;

  constant NbitW    : natural := 24;

  constant LSB_OUT  : natural := 8;

  constant Nlayer   : natural := 3;

  constant NbitOut : integer := 12 ;

  constant NumIn   : integer := 1;

  constant NumN    : int_vector(Nlayer-1 downto 0) := assign_ints("2 3 1",Nlayer);

  constant LSbit   : int_vector(Nlayer-1 downto 0) := assign_ints("8 8 8",Nlayer);

  constant NbitO   : int_vector(Nlayer-1 downto 0) := assign_ints("12 12 12",Nlayer);

  constant l_type  : string  := "SP PS SP";                  -- Layer type of each layer

  constant f_type  : string  := "siglu2 siglu2 siglu2";  -- Activation function type of each layer

  function real2stdlv (bitW : natural; din : real) return std_logic_vector;

end support_pkg;

package body support_pkg is

function real2stdlv (bitW : natural; din : real) return std_logic_vector is

    variable vres : signed(bitW-1 downto 0) := (others => '0');

  begin  -- real2stdlv

    vres:= to_signed(integer(din*(2.0**(LSB_OUT))), bitW);

    return std_logic_vector(vres);

  end real2stdlv;

end support_pkg;