ГОСТ Р ИСО/МЭК 10373-6—2015
fcb-fca!4];
al-as[0);
л2-*а(1];
аЗ-as[2];
a4-as[3);
a5-dS[4];
k
loi (Ji—0; li<samplesp; li*-*-)
I
if (I"? (|f!>samplesp-7)
voutput (li)-0;
else
voutput (li|-(Ы"vllltei(11).fc2»vliltei(li-1)*-b3*vllltei(li-2|»
b4*vllltei(Ii-3)fbb’vliltei[11-41-a2*voutput.(11-1]-
л 3 *
voutput(li-2(-a4‘voutput(li-3|-ab*voutput(11-4
] ) / a l ;
(
rewind (point.lile);
lineskip-D;
lox (lineskip-0; lineskipclO; lineskip**) // Skips the lirst 10 lines
(header ol csv Illesi
l
3kip_line (pointlile!;
t
■
(11-0; Ii<(samplesp-*); 114*)П Reading the lines ol t.lie
tor
voltage input
11
le
I
val-voutput(It);
reaoline (pointlile,voltstr,timest.r)
tprint1(input_u2,"‘43,».£\n",timestr,val);
length*♦;
t
i
//3. HILBERT TRANSFORM AND THE COMPLEX ENVELOPE
rewind (mput_u2);
lillhert("pre_Hilbext.LxL"’);// pettones Hilhett. transform
poutput-lopen(“output,txt","t"); П Hilhett. t.tansroire output vector
read line (poutput,voltsti,timestt);
tini-ato£(tlmestx);
rewind (poutput);
if(poutput!-NULL)
Hnvaxllnder
while (!£eo£(poutput>) // Redoing the lines o£ the voltage
input. Ill* */
(
lead line (poutput,voltstx,timesti);
if (timestr(0|!—r40’)
l
snum-atol(voltstx);
voutput(samplesJ-snunt;
t-ato£(timestr);
touLput(samples)-t;
samples*-*;//— >L’S // Same variable as the one in
tlln-t;
(
I
(
else
Cprintt(stnout,"Error in Halbert trans£orm\n");
90