ГОСТ Р ИСО/МЭК 10373-6—2015
(
re x
*::*
i
- VR;
:x(x*::*) - VI;
PI: К - MV2;
P2: it (K >- J) goto P3
.1 - J-K;
К - К/2;
goto F2;
P.i:
J - J*K;
I
IND - 0;
LE - 1;
tor (L-l; L<-P;
L-*
•)
\
LEI - LE;
LE - LE‘2;
lor (R-0? R<LE1; R**-)
i
WCOS - (float)DWRI IND J;
WS1H - (float)DWI(IND);
IND - IND*1;
for (IQ-R; IQ<M; IQ*-LE>
I
IP - IQ*LEI;
A - (float>RE (X|IP)>;
В - (floatЦМ(Х|IP)];
VR - A*WCOS - B*WSIN;
VI - B’KCOS *A’WSIN;
RE(X[IP)J - RE(X[IQH - VR;
IM(XJIP1] - IM(XIIQ1> - VI;
RE(X|IQ)) - RE(X[IQ)) * VR;
IM(X|TQ]f - IM(X[IQIr * VI?
free(DWR);
free(DWI);
/»--------------------------------------------------------------------------------------------------------------------V
/*___l-c FPr with respect to a spatial coordinate__________________
*f
,
»-----------------------------------------------------------------—— —------------------------—
------------
-/
int rifts( lnt debug, doublecomplex *X, lnt. M )
I
int P;
float D;
0 -----1.0;
tmpo( AM# AP‘,;
if ( debug >
(
53