secord

 

	while(IT_IN(0))
	{
		if(IT_OUT(0)) {
			KrnOverflow("secord",0);
			return(99);
		}
		y0(0)=beta*y0(1)+one*x0(0)-beta*one*x0(1)+two*x0(0);
	}

/*  Capsim (r) Text Mode Kernel (TMK) Star Library (Blocks)
    Copyright (C) 1989-2002  XCAD Corporation 

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library 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
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    http://capsimtmk.sourceforge.net
    XCAD Corporation
    Raleigh, North Carolina */

 

/*
	secord.s:	second order filter
	parameters:	gain#1, gain#2
			leakage factor of the filter
	inputs:		in, the signal to be filtered
	outputs:	out, the filtered signal
	description:	This star implements a second order filter
			with a leakage factor (beta)
 			as a recursive equation:
			y(n)=beta*y(n-1)+g1*[x(n)-beta*x(n-1)]+g2*x(n)
			This filter can be used as a PLL loop filter.

secord


secord.s:	second order filter
	parameters:	gain#1, gain#2
			leakage factor of the filter
	inputs:		in, the signal to be filtered
	outputs:	out, the filtered signal
	description:	This star implements a second order filter
			with a leakage factor (beta)
 			as a recursive equation:
			y(n)=beta*y(n-1)+g1*[x(n)-beta*x(n-1)]+g2*x(n)
			This filter can be used as a PLL loop filter.


		written by Ray Kassel
			August 8, 1990

*/