ГОСТ Р ИСО/МЭК 10373-6—2015
printt("\n»»»**•»**•»**•»**•»**•»**•»**•»**•»**•»**•»**•*\п",г;
printi("\nStdtistюз: \п">;
pnntl(" Filename : 4s\n",fname);
р п в И Г
Sample count : \a\n",i>;
pnntt(” Sample rate : ll.Oi MHz\n",le-б/(vlimel1]-vtjmt|01И;
print!(” Max(vo) :-.4.Of mV\n",max_va*1000>?
printl("Mm(vd> :44.0f mV\n",min_vd»1000>;
return
1
?
j^»****»***»***»** EncjReadCsv ***************/
/******************»***********************%*******************%^
/♦*♦
pfx
:Discrete Fourier Transformation***/
/»«*#*«**»«»**«ft***fr**+*+»*«**»»**++»»**#»+*#*«*#*«*#*«*#*«*#***/
/*** Description:***/
/*♦* This fundton calculate the Fourier coefficient ***/
/******/
/**• Input: Number ol samples
/***
Carrier divider
ol
the sutcarrier
/ * •*
/*** Global Variables:
/ * * *
/*** Displays Results:
/»**
»»*/
***/
♦**/
***/
♦**/
***/
* *
*/
/*** Carrier coefficient ***/
/*** Upper sideband coefficient *»*/
/*** Lower sideband coefficient***/
/ * * *
•** f
/*♦*************************************************************/
void dftilnt count, rut Carriertivider)
l
double e0_real,c0_nnag,c0_abs,c0_phase;
double cl_real,cl_imag,cl_abs,cl_phase;
double c2_real,c2_imag,c2_abs,c2_phase;
int Noata,center,start;
double wO,
ku
,wl;
double Wb;
t*
Bartlett window coetficient
*t
int ifk;
double fc;/* aid variable for earner frequency
*t
Ic-l3.b6e6;
wO-(double)(ir.*2.0)*pi; /* earner l3.i>6MHz
*i
wu-(double;(1.0*1.0/CarrierDiviaer}*w0;
/*
upper здаеЬапа 1-1.41 MHz
*4
wl-(double)(1.0-1.0/CarnerDiviaer>*w0;
/*
lower sideband 12.71 MHz
*f
c0_real-0; /* real part of the carrier fourier coefficient •/
c0_imag-0; /♦ imag part of the earner fourier coefficient.
*/
cl_real-0;
/*
real part of theupn sideband fouriercoefficient
*1
cl_imag-0; /♦imag part of theup. sideband fourier coefficient
*/
e2_real-0;
/*
real part of thelo. sideband fourier coefficient
*1
c2_imag-0; /♦imag part of thelo. sideband fourier coefficient
*/
1
center-(count* }
/2;
/* center address
*/
/♦»♦♦«*♦»♦* signal selection
****•*************************/
/*
Number of samples tor six subcamer periods */
N_aata-(int>(0.bffc.0F*CarrierDivider/(vt
ime
[21-vt
ime[l
l>
/£c>
;
95