ГОСТ Р ИСО/МЭК 10373-6—2015
else if ((type— ’V’)
ыи
(ratei-noo u r*te!-34D0 «ь rate!-6800))
£pnnt£
(staout, "Wrong bit
rate (1700, J400,
feaQO)");
else
it (type— ’V’)
type-’B’;
poinUile-£open(argv[3],’’r’’>;
input_u2-Copen("pie Kilbett.txlw,"w");II modiliea-mtermediate
amplitude vector
i£(pointUlel-SELL 4i input_u2!-NL’LL>
,41. LOAD DATA 4-CHECKING DATA IWITHC’JT FILTER)
for (lmeskip-0; ltneskip<10; lineskip*t)// Skips the lirst 10
lines which are the header of csv files
I
skip line (pointflle);
\
reedilne (pointllle,volt.str, timestr);
LO-atol(tinvest.r);
while (!leof(pointfile)jП Reading the lines of t.he voltage
i£ ( v o l t s t r | 0 1 ! - ’\ 0 ’J
I
snum-ahof (voltst.r) ;
tn u m -atof(tim estr);
if(snum<0)
negval-м;
e ls e
p o s v a l
♦
vfilter [sam ples?]-snum;
’.filter (samplespi -tnuir;
samplespM-;
read lin e (pointfile, v o l t s t r , t im e s ’t ) ;
I
t la s t - t ft lt e r (затр 1езр -1 1;
\
samp lesp-samp leap *-3;
sam plesp-datacheck (posval, negval, samplesp, ’.la s t , pointfile) ;
».la s t - t filte r [SafrpleSpl ;
1
// 2 . DATA FILTER BANDWIDTH (10 MHX OR 20 KHs DEPENDING OH BIT RATE)
1Г (ra te — 106 I I r a t e —2 12 I I r a t e — 424 I I ra te — 848)
I
lreql-8.bfeefc/(
1
/ ( 2 * ( ( t la s t - t 0 > / (sam plesp-1»>>»;
£req
2
-
1
8
.5-fcet/(/(2*((tlast-tO)/(samplesp-
1
>»>>;
i
e ls e i f (ra te — 1700 || ra te — 3400 li r a t e — 6800)
l
£reql - 6 . 06e6/ U / (2* ( ( t la s t - t 0)
/
(sam plesp-1 M l ) ;
C req 2-21. 0fce6/( 3 /
U*
( ( t la s t - t C J / (sam plesp-1))>
>;
b u tte rw o rth _ co e lfs(fre q l, lreq 2, as, bs) ,-
b l- b s ( 0 ) ;
b 2 -b s[l j ;
b 3 -b s(2 ]i
b4-bs f 3 J ;
89