交流有效值FPGA实用程序（很实用）

Allevi

交流有效值FPGA实用程序（很实用）

& M" t! F; w0 z" g% G
clk: 系统时钟；rst:复位信号
clk1us: 对交流信号采样的时钟；
pulse: 交流信号过零方波
data: 正弦输入数据
& G) B" \  j  v/ g4 L- L$ _rms_div:在一个周期按采样间隔取样数据所求的和
! u# s& V9 x! ]0 ~  O7 D: qrms_by:在一个周期按采样间隔累加数据和值

* J6 l' f! @! G- n" F交流信号的RMS=(rms_div/rms_by)x1.1
' b- d9 W8 a( V+ @* s8 B
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
% G" o$ J- Z# H4 iuse ieee.std_logic_signed.all;
entity get_rms is
port
   (
     clk:    in std_logic;
     rst:    in std_logic;
& {! s. q2 K5 u' r. U     clk1us: in std_logic;  
& w1 c1 j- @( k' O: l7 {    -- fre    :in std_logic;   
     pulse : in std_logic;
     data:   in std_logic_vector(15 downto 0);
, M4 E" Z  [: U. h. d8 e     rms_div:    out std_logic_vector(31 downto 0);
     rms_by :     out std_logic_vector(15 downto 0)
2 h+ {8 n' t& g/ \5 o8 A    );
end get_rms;
$ V' T2 x  d4 V& X0 harchitecture arch_get_rms of get_rms is
---------computer low fre-5HZ, max vol 16384V-------------
5 y& w) Z/ }+ K2 J" E8 hsignal pulse_reg : std_logic;
- {9 I  O% N, B  G  B/ _signal get_rms_state:std_logic_vector(2 downto 0);
signal rms_sum:std_logic_vector(31 downto 0);   
signal rms_cnt: std_logic_vector(15 downto 0);
signal cnt:std_logic_vector(4 downto 0);
& P! E" F* G5 a% j2 b
1 }0 l! n* F. ?; n. O  b$ [$ A4 Y. Lbegin
) \9 D* x- I! i0 m. |2 [# Q5 cprocess(clk,rst)
begin
3 p/ V" N8 ^( y- hif (rst='0') then
  pulse_reg<='0';
$ @% p% o+ G( V7 w$ h9 R2 K% J' b  get_rms_state<="000";
  rms_cnt<=(others=>'0');
  rms_sum<=(others=>'0');
0 @- y% W9 T6 ^( J2 O9 G1 `  rms_div<=(others=>'0');
  rms_by<=(others=>'1');
8 {, z. g. m# p& P& u6 Delsif clk'event and clk='1' then
   pulse_reg<=pulse;
, B3 U) D. b( ]- A- Q+ }6 k4 |  if (get_rms_state="000") then
  d2 R. U# v4 Q" r      if (pulse_reg='0') and (pulse='1') then
) {. [. g) L1 F! _. y/ C, M            get_rms_state<="001";
/ o! y& q) R, n; o      else
% D& Y* {7 T# W' I3 z1 |           get_rms_state<="010";
      end if;
  elsif (get_rms_state="010") then
% P! U  T4 Z2 U2 T7 N; c( J     if (data(15)='0') then
' s$ t8 }- U+ c. \6 T9 F         rms_sum<=rms_sum+(data(15)&data(15)&data(15)&data(15)&data(15)&data(15)&data(15)&data(15)&data);
     elsif (data(15)='1') then
. @8 ?6 o6 L: v0 ?+ F" Y        rms_sum<=rms_sum+(x"0000"-(data(15)&data(15)&data(15)&data(15)&data(15)&data(15)&data(15)&data(15)&data));
     end if;
     rms_cnt<=rms_cnt+x"0001";
     get_rms_state<="011";
elsif (get_rms_state="011") then
7 @! J# L, M2 H4 M4 b- c5 I   ------200
     if (cnt="11111") then     ----32 us  ------
) V8 J2 h  \6 q1 P" U  W! x          cnt<="00000";
* |9 F  Z& M& J. U0 l! ~          get_rms_state<="000";
     elsif (clk1us='1') then
         cnt<=cnt+"00001";
6 G8 m4 P! j6 g- Y7 S) P. K# K     end if;
4 {) \) o. J6 l elsif (get_rms_state="001") then
( |% h) I/ [* r- J2 A        rms_div<=rms_sum;
0 Z& |; h% C9 z5 Z- q) B* X        rms_by<=rms_cnt;
: \% [% f' t0 f7 Z        get_rms_state<="100";
7 q8 J" Z4 G# R) T+ a elsif (get_rms_state="100") then
4 n0 s8 {1 s4 E9 k% F2 u4 F        rms_sum<=(others=>'0');
3 I/ M7 F6 X  o0 {        rms_cnt<=(others=>'0');
        get_rms_state<="000";
4 l0 h$ g  w) x: s( B else
+ j" h$ k9 D$ i" \% {( `8 ^        pulse_reg<='0';
        get_rms_state<="000";
! P/ h, q5 N  Q/ V! J, ]        rms_cnt<=(others=>'1');
        rms_sum<=(others=>'0');
        rms_div<=(others=>'0');
        rms_by<=(others=>'1');
end if;
+ Z% x& A8 Q$ ~7 v2 A2 b end if ;
end process;
; T( n. A2 p8 r end arch_get_rms;

yxlk

有时间就去试试