ГОСТ Р ИСО/МЭК 10373-6—2015
e2_phase- (double)atan2(c2_»mag,c2_real);
Result Display •♦«••**••♦**•♦**•♦**•**••*/
p r in t i(«\n\nResults : \n » ;;
ptjntt(«Subcarner £requency - Ic/4d\n»,CamerDiviaer);
printi(«Cart let «!;
printl(«Abs: \7.3fmV «,10C0*c0_abs);
print!(«Phase: *3.0£deg\n»,cO_phase/pi*180);
print!(«Upper sideband «>;
print!(«Abs: ••V.ilmV «,lOOC’elabs);
pnnt!(«Phase: ^3.0Cdeg\n»fcl_phase/pi*180);
print!(«Lower sideband «!;
pnnt!(«АЬз: 47-3!mV «,1000*c2_abs>
print!(«Phase: *3.0toeg\n\n»,c2_phase/piM80;;
pZ(u\n + *+++ *+++ +++*+ +++ ** +*** ++ ++++ ++++ ++++ ++++ ++++ ++\;
return;
jf******* * ♦ Enti DFT *♦♦♦♦*♦♦♦*♦♦♦*♦/
/»•••*♦»*»»*»*»•*•«♦»*»*♦*»*+*»*+*»*+*»*+*»*+*»*+*»*+*»*+*»*+*»%/
/*** MAIN Program***/
,’»*****%*»♦***♦•***********************************************%^
int main (unsigned short paramCount,char ’paxarcList(])
I
char tname[2b6l;
unsigned int samplecount;
int Dsi; /* Subcarner Irequency coae */
int Ds[11-{2, Л, 8, 15); /* Carrier divider */
pi
- (double)atan(1.
0
)M; /* calculate pi •/
print!(«\n* **********************************************\n»);
print!(«\п»»*» 1SO/1EC 10374-6 PICC Test-Program
print!("\n**** Version: 3.0 SEPTEMBER 2010
****\n"};
♦♦**\n");
pnntt("\n*»**
piдnt£(<c\n******************* ****************************\tttO;
/•••**•»**«•»« ко Input Parameter**»***«•»*«*»*«**/
it (paramCount— 1)
<
piint!(«\nCSV File name :»);
scan!|«4s»,Iname);
pnntr("\nSubcarrier trequency code [l-£c/2, 2-Ic/4, 3-!c/8 or 4-1C/16)] :w);
scan! ("».d",4Dsi);
else
1
/•»•••••••«••• input. Parameter Loop *•••**•****•*»••*/
l
strcpy (in.ame,pararnList.[11);
it (1strchr(tname, ’.’)> 3treal(fname, ”.csv");
i! (paramCount>2)
I
Dsi-atoi(paramLia»_l2!);
I
else
Dsi-4; /*** lor backward «отараtic11lty ***/
I
)
it (Jstrchr(tname, ’.’)) strcat(tname, ”.csv">;
it (!(samplecount-teadesv(Iname)>) return 0;
97