diff options
Diffstat (limited to 'testsuite/vests/vhdl-ams/ashenden/compliant/AMS_CS3_Power_Systems/CalcBuckParams_wa.vhd')
-rw-r--r-- | testsuite/vests/vhdl-ams/ashenden/compliant/AMS_CS3_Power_Systems/CalcBuckParams_wa.vhd | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/testsuite/vests/vhdl-ams/ashenden/compliant/AMS_CS3_Power_Systems/CalcBuckParams_wa.vhd b/testsuite/vests/vhdl-ams/ashenden/compliant/AMS_CS3_Power_Systems/CalcBuckParams_wa.vhd new file mode 100644 index 000000000..e568a63fd --- /dev/null +++ b/testsuite/vests/vhdl-ams/ashenden/compliant/AMS_CS3_Power_Systems/CalcBuckParams_wa.vhd @@ -0,0 +1,61 @@ + +-- Copyright (C) 2002 Morgan Kaufmann Publishers, Inc + +-- This file is part of VESTs (Vhdl tESTs). + +-- VESTs is free software; you can redistribute it and/or modify it +-- under the terms of the GNU General Public License as published by the +-- Free Software Foundation; either version 2 of the License, or (at +-- your option) any later version. + +-- VESTs is distributed in the hope that it will be useful, but WITHOUT +-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +-- for more details. + +-- You should have received a copy of the GNU General Public License +-- along with VESTs; if not, write to the Free Software Foundation, +-- Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + +library ieee; use ieee.math_real.all; +library ieee_proposed; use ieee_proposed.electrical_systems.all; + +entity CalcBuckParams_wa is + + generic ( Vin : voltage := 42.0; -- input voltage [Volts] + Vout : voltage := 4.8; -- output voltage [Volts] + Vd : voltage := 0.7; -- diode Voltage [Volts] + Imin : current := 15.0e-3; -- min output current [Amps] + Vripple : voltage := 100.0e-3; -- output voltage ripple [Volts] + Resr : resistance := 50.0e-3 ); + + port ( quantity Fsw : in real; -- switching frequency [Hz] + quantity Lmin : out inductance; -- minimum inductance [Henries] + quantity Cmin : out capacitance); -- minimum capacitance [Farads] + +end entity CalcBuckParams_wa ; + +---------------------------------------------------------------- + +architecture ideal of CalcBuckParams_wa is + + constant D : real := (Vout + Vd)/(Vin + 1.0e-9); -- Duty Cycle + quantity Ts : real; -- Period + quantity Ton : real; -- On Time + + quantity Fxo, Fp1, Fp2, Fz : real; + +begin -- architecture behavioral + + Ts == 1.0/(Fsw+1.0e-9); + Ton == D*Ts; + Lmin == (Vin - Vout) * Ton/(2.0*Imin); + Cmin == (2.0*Imin)/(8.0*Fsw*Vripple+1.0e-9); + + -- Calculate compensator parameters + Fxo == Fsw/5.0; -- desired crossover frequency + Fp1 == Fxo * 1.5; + Fp2 == 1.0/(math_2_pi*Resr*Cmin*4.0+1.0e-9); + Fz == 1.0/(math_2_pi*sqrt(Lmin*Cmin*4.0)+1.0e-9); + +end architecture ideal; |