vcm

 

	float temp_out;

 


	if(AVAIL(0)>0)
	{
		IT_IN(0);
		if(IT_OUT(0)) {
			KrnOverflow("vcm",0);
			return(99);
		}
		theta=theta+lambda(0);
		temp_out = (float)cos((double)(2.*PI*fo*t+theta));
		if(temp_out > 0.0)
		{
			data_out(0) = 1.0;
		}
		else
		{
			data_out(0) = 0.0;
		}
		t=t+1/fs;
	}

/*  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 */

 

/*
 	vcm.s	:	voltage-controlled multivibrator
 	parameters:	fs, sampling frequency
 			fo, center frequency
 	inputs:		lambda, phase update term
 	output:		square wave equivalent of cos(2*PI*fo*t+theta)
 	description:	This star produces samples of the outputs
 			every 1/fs seconds with frequency of fo.
 			The phase is updated
 			as theta=theta+lambda (integrates the input)

vcm


voltage-controlled multivibrator
 	parameters:	fs, sampling frequency
 			fo, center frequency
 	inputs:		lambda, phase update term
 	output:		square wave equivalent of cos(2*PI*fo*t+theta)
 	description:	This star produces samples of the outputs
 			every 1/fs seconds with frequency of fo.
 			The phase is updated
 			as theta=theta+lambda (integrates the input)



 */