ГОСТ Р ИСО/МЭК 10373-6—2015
void zfl».ncc( doufclecomplex *Х, int М, int Р, float С j
Г
int MV2,ММ1,J,I,К,L,LE,LEI,IP,IQ,IND,IND1,R;
mt II,Jl;
float A,B;
float WCOS,WSIN;
KOdt VR,VI;
float ARG;
atatic tnt IPOTC;
Stdtic f.oat DALT;
DWR - (ooublereai *»cdlioc(M,3i2eo£(doublereal));
DWI - (doublereal *)calioc<M,si2oo£(aoublereal)>;
/* i£ (IPOTC - H D — DALT» goto warmatarl; */
IPOTC - P;
DALT - (float}D;
LE - 1;
IND - 0;
tot (L-l;L<"-P;LM»
)
LEI - LE;
LE - LE*2;
DWR’IND" - 1.0;
dk
:*:
hd
- - o.o,-
ARG - (float)K_B1/(float)LEI;
XCOS - (float)cos(ARG);
XSIN - (float)(D’s.n(ARG));
lor (R-l;R<-LEI;R-«)
I
IMD1 - IND*1;
A - (float)DWR(IND);
В - (float)DWI(IND);
DWR{IND1| - A*WCOS - B»WSIN;
DWI|IND1| - B*WCGS • A‘WSIN;
♦♦IND;
)
I
/* warmstart: */
MV2-M/2;
MM1-M-I;
J-I;
1
tor (-
1
; Ic-MMl; IH)
-£
t
C >- J)
go o PI;
.71 - J -I;
VR - (float)RE(У.j:*);
v: - meat) IMtX’JI-);
(
j
*:
:
m
x
:
i
?) - :
m
(
x
r
e
(
x
;
j
::) -
r
e
ix
::
i
*);
i
);
52