wavelet.txt

用VHDL语言实现的高速数据采集中

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
use ieee.std_logic_unsigned.all;
ENTITY wavelet1 IS
PORT(
		clk:IN std_logic;
        pp1:in integer;
	    max1:OUT integer
     );
END ENTITY wavelet1;
ARCHITECTURE one OF wavelet1 IS
    type ff is array (89 downto 0) of integer;  
    BEGIN
    PROCESS(clk)
     
        variable a:ff;
        VARIABLE d:ff;
        VARIABLE temp:integer:=1;
        VARIABLE p1:integer;
        VARIABLE p2:integer;
        VARIABLE p3:integer;
        VARIABLE max:integer;
        VARIABLE pp:ff;
        begin
			if clk 'event and clk='1' then
				for i in 0 to 88 loop
                    pp(i+1):=pp(i);
                    pp(0):=pp1; 
                end loop;    
           
               for i in 0 to 2 loop
                	
            	    for k in 0 to 89 loop
                    	p1:=k-temp;
 						p2:=k+temp;
                        p3:=k-2*temp;
                    	if(p1<0) then
                        	p1:=-p1-1;
                    	end if;
                    	if(p2>89) then
	                        p2:=2*90-p2-1;
                   	 	end if;
                    	if(p3<0) then
                        	p1:=-p3-1;
                    	end if;
              		a(k):=pp(p2)+pp(p3)+3*pp(k)+3*pp(p1);
                    end loop;

                	for k in 0 to 89 loop    
                    	a(k):=pp(k);
                    	pp(k):=a(k);
               	 	end loop;
                 
               	 	temp:=temp*2;
           		end loop;
                
				for k in 0 to 89 loop
					p1:=k-4;
					if(p1<0) then
						p1:=-p1-1;
					end if;
						d(k):=pp(k)-pp(p1);
				end loop;
				
				for k in 0 to 89 loop
					if(max<d(k)) then
						max:=d(k);
					end if;
				end loop;
	end if;
	max1<=max;
	END PROCESS;
END;