Capsim Block Documentation
This star finds the phase of a complex data stream.
Port | Type | Name | |
---|---|---|---|
0 | complex | x |
Port | Type | Name | |
---|---|---|---|
0 | float | y |
Num | Type | Name | Initial Value | Description |
---|---|---|---|---|
0 | float | k |
int i,no_samples; float re,im,rad,deg; float re_mag, im_mag; |
---|
/* k is conversion factor from radians to degrees */ k = 360.0/(2.0*3.1415927); SET_CELL_SIZE_IN(0,sizeof(complex)); SET_CELL_SIZE_OUT(0,sizeof(float)); |
---|
/* note the minimum number of samples on the */ /* input buffers and iterate that many times */ { for(no_samples=(MIN_AVAIL() ); no_samples >0; --no_samples) { /* first get real sample */ IT_IN(0); re = x(0).re; /* now get imaginary sample */ im = x(0).re; /* find magnitudes */ re_mag = fabs(re); im_mag = fabs(im); /* find phase from arctangent */ if ((re_mag < 1e-8) && (im_mag < 1e-8)) rad = 0.78539382; /* pi/4 */ else if (re_mag < 1e-8) rad = 0.0; else rad = (float)atan2((double)im,(double)re); /* convert to degrees */ deg = k*rad; /* output value */ if(IT_OUT(0)) { KrnOverflow("cxphase",0); return(99); } y(0) = deg; } return(0); } |
---|
/* Capsim (r) Text Mode Kernel (TMK) Star Library (Blocks) Copyright (C) 1989-2017 Silicon DSP 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://www.silicondsp.com Silicon DSP Corporation Las Vegas, Nevada */ |
---|
/* cxphase.s */ /*************************************************************** cxphase() **************************************************************** Inputs: x, the complex signal Outputs: y, the phase Parameters: none **************************************************************** This star finds the phase of a complex data stream. Each complex sample is assumed to be composed of a real sample followed by an imaginary sample. |
---|