Описание слайда:
Редукция производительности по функциональным устройствам в виде однокадровой программы 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.