ГОСТ Р 56914— 2016
I ******* ****** ******
Qp-p
********************************/
tor( r=start;i<=end;r++)
{
cO re a i= c0 r e a l+ v d li] * (Coat) cos (wO*vtrm eUJ >;
cO rmag=c0 rm ag+ vdli] * (fio a t)s in (w O *v tim e {r ] ) ;
c l r e a l= c l
c l rmag=cl
re a l+ v d li]* ( C o a t) c o s ( w u * v tr m e lr ]) ;
rm ag+ vdli] * (C o a t)s rn (w u *v tim e lr ] ) ;
re a l+ v d jr ] * (float)cos ( w l* v tiro e lr j >;
rm ag+vd{i] * (float) s in (w l* v tim e [i) >;
c2 re al=c2
c
2
rmag=c
2
J
1
******************* DPT scale ***************************/
cO real=2.0P*c0 real/(float)(Ndata) ;
cO.rmag=2.0F*cQ rmag/(Coat)IN data);
cl.real=2.QP*el.real/(lloat)(Ыdata);
cl rmag=2.0F*cl rmag/(Coat)IN data);
c2_real=2.0F*c2,real/ (float)(Ыdata);
e2 imag=2.0F*c2 rmag/(Coat)INdata);
l**************** absolute touner coelficrent**********/
cO_abs=(float)sqrtlcO real’cO
cl abs=(float)sqrt (cl real*cl
c
2
abs=(fioat)sqrt(c2 real*c2
real +cO.imag’cO.imag);
real +cl rmag*cl rmag);
real +c2 imag»c2 imag);
I************** phase oL touner coetftcient **********/
cOphase=(Coat)atan2(cO rmag,cG real);
cl phase=(Hoat)atan2(cl imag,cl real);
c2phase=(float)atan2(c2 rmag,c
2
.real);
/************** Result Orsplay **************************/
print!(*\n\nResultS: \n*>;
print!(‘Carrier*);
prrntt(•Abs; ft7.3tmV *,1000*c0 abs);
pnntt("Phase: %3.0tdeg\n‘,c0 phase/pr*180);
print!(’Upper sideband •)j
prrntt(‘Abs: %7.3tmV ‘,1000*cl abs);
printt(‘Phase: %3.0ldeg\n‘,cl phase/pr*180);
print!(‘Lower srdeband *>;
prrnt!(‘Abs:%7.3tmV *,1000*c2 abs);
printt(‘Phase: %3.0tdeg\n\n‘,c2.phase/pr*180);
p jm l,t(■
\n***********************************************\n*) J
return;
}/**************** rf!(*DFT ***************/
/*****•*******•***•***•***•***•***•*****************************/
/*** MAIN LOOP***/
/*************************************«*^************************
rnt main(unsrgned short paramCount,char *paramLrstM>
{
char tnamel256]j
unsigned int i,sample.count;
pr = (float)atan(l>*4; /* calculate pr */
print!(■\n*
**********************************************)j
prrnttCNn*’*** tag Test-Program****\n‘>;
printtC\n**** Version: 1.1 JUL 2000****\n‘>;
p i in t . £ ( m\ n * * + + * * + + + * + + * * + + * * + + * * + + * * + * * * ++ * * + + * * + + * * + + * * + \ t l * ) ;
36