package and procedure

library ieee;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

package package_Thong_so is

--- Thong so mach luc

  constant one_div_Lf    :    signed(12-1 downto 0) := to_signed(200, 12);    --Lf = 5e-3

  constant one_div_Cf    :    signed(18-1 downto 0) := to_signed(66667, 18);  --Cf = 15e-6

  constant Vdc           :    signed(11-1 downto 0) := to_signed(180, 11);    --Vdc_1cell = 180

  constant N             :    signed(5-1 downto 0)  := to_signed(1, 5);

--constant Ts: signed(22-1 downto 0) := to_signed(21,22);

  subtype unit is signed(22-1 downto 0);

  procedure Tinh_toan(Ts : in unit;

                      Ts_div_Cf, Ts_div_Lf, W_Ts, Vdc_Ts_3Lf : out unit);

end package;

-- tinh toan phan tu ma tran

package body packgage_Thong_so is

  procedure Tinh_toan(Ts : in unit;

                      Ts_div_Cf, Ts_div_Lf, W_Ts, Vdc_Ts_3Lf : out unit) is

    variable temp_Ts_div_Cf  : signed(40-1 downto 0);

    variable temp_Ts_div_Lf  : signed(34-1 downto 0);

    variable temp_Vdc_Ts_3Lf : signed(61-1 downto 0);

  begin

    temp_Ts_div_Cf  := Ts * one_div_Cf;

    Ts_div_Cf       := temp_Ts_div_Cf(temp_Ts_div_Cf'high) & temp_Ts_div_Cf(39-1 downto 18);

    temp_Ts_div_Lf  := Ts * one_div_Lf;

    Ts_div_Lf       := temp_Ts_div_Lf(temp_Ts_div_Lf'high) & temp_Ts_div_Lf(33-1 downto 12);

    w_Ts            := to_signed(6588, 22);

    temp_Vdc_Ts_3Lf := Ts * Vdc * one_div_Cf * to_signed(171, 10);

    Vdc_Ts_3Lf      := temp_Vdc_Ts_3Lf(temp_Vdc_Ts_3Lf'high) & temp_Vdc_Ts_3Lf(60-1 downto 39);

  end procedure;

end;  -- try end package body here!!