Описание слайда:
Редукция производительности по функциональным устройствам в виде однокадровой программы
Program Reduction1;
Const X = 1;
subcadr BaseNode (In_ReA, In_ImA, In_ReB, In_ImB, aCoef1, aCoef2, aCoef3, aCoef4, Out_ReA, Out_ImA, Out_ReB, Out_ImB);
Var In_ReA, In_ImA, In_ReB, In_ImB, aCoef1, aCoef2, aCoef3, aCoef4, Out_ReA, Out_ImA, Out_ReB, Out_ImB : Integer Com;
Var Com1, Com2, Com3, Com4, Com5, Com6, Com7, Com8, Com9, Com10, Com11, Com12 : integer Com;
#Reduction of device X;
Out_ReA := In_ReA + In_ReB; Out_ImA := In_ImA + In_ImB;
Com1 := In_ReA - In_ReB; Com2 := In_ImA - In_ImB; Com3 := aCoef1 * aCoef2;
Com4 := aCoef3 * aCoef4; Com5 := aCoef1 * aCoef4; Com6 := aCoef2 * aCoef3;
Com7 := Com3 - Com4; Com8 := Com5 + Com6; Com9 := Com1 * Com7;
Com10 := Com2 * Com8; Com11 := Com2 * Com7; Com12 := Com1 * Com8;
Out_ImA := Com9 - Com10; Out_ReB := Com11 - Com12;
#EndReduction;
EndSubCadr;
Cadr Cadr1;
for i := 0 to 0 do
for j := 0 to 99 do
BaseNode(AIn[i,j], BIn[i,j], CIn[i,j], DIn[i,j], Coef1[i,j], Coef2[i,j], Coef3[i,j], Coef4[i,j], AOut[i,j], BOut[i,j],COut[i,j], DOut[i,j]);
EndCadr;
End_Program.