fn EExecPSPL &out_Prm1 &out_Prm2 &out_Prm3 &out_Prm4 in_Prm1 in_Prm2 in_Prm3 in_Prm4 Att_1 Att_2 Att_3 Att_4 Sg1 Sg2 Sg3 Sg4 FM = ( if ((in_Prm1==undefined) or (in_Prm2==undefined) or (in_Prm3==undefined) or (in_Prm4==undefined)) then return false local c1,d3,d4,o10,o11,o4,o5,o6,o7,o8,o9,p1,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p2,p3,p4,p5,p6,p7,p8,p9 TOChisl_Create &Chisl1 (Complex 30.0 0.0) Att5 TOChisl_Create &Chisl2 (Complex -311.910408 0.0) Att5 TOChisl_Create &Chisl3 (Complex -41.4853962 0.0) Att5 TOChisl_Create &Chisl4 (Complex -211.910408 0.0) Att5 TOChisl_Create &Chisl5 (Complex -41.4853962 0.0) Att5 TOChisl_Create &Chisl6 (Complex 45.0 0.0) Att5 TOChisl_Create &Chisl7 (Complex 0.17552671 0.0) Att5 TOChisl_Create &Chisl8 (Complex 0.50301721 0.0) Att5 CreateCopy &d1 in_Prm1 d1.FAtt=in_Prm1.FAtt CreateCopy &d2 in_Prm2 d2.FAtt=in_Prm2.FAtt CreateCopy &o2 in_Prm3 o2.FAtt=in_Prm3.FAtt CreateCopy &o3 in_Prm4 o3.FAtt=in_Prm4.FAtt EExecC0 &c1 Chisl1 att0 1 "0" EExecO2 &o4 Chisl2 Chisl3 Chisl4 Chisl5 att5 1 1 1 1 "0" EExecO7 &o5 o3 Chisl6 att5 1 1 "0" EExecP6 &p4 &p5 o3 d2 att0 att0 1 1 "0" EExecP9 &p8 o2 Chisl7 att0 1 1 "0" EExecP9 &p9 o2 Chisl8 att0 1 1 "0" EExecO1 &o7 p8 rect att5 1 1 "0" EExecO1 &o8 p9 rect att5 1 1 "0" EExecP2 &p10 o7 o3 att0 1 1 "0" EExecP2 &p11 o8 o3 att0 1 1 "0" EExecX0 &p12 p8 o4 p10 o5 att0 1 1 1 1 "mu(no(1,3),no(2,4))" EExecX0 &p13 p9 o4 p11 o5 att0 1 1 1 1 "mu(no(1,3),no(2,4))" EExecO0 &o9 p12 p13 att5 1 1 "0" EExecPA &p1 d1 att5 1 "0" EExecPA &p2 d2 att5 1 "0" EExecX0 &p3 p1 o4 p2 o5 att0 1 1 1 1 "mu(no(1,3),no(2,4))" EExecD0 &d3 p3 d2 att0 1 1 "0" EExecO5 &o6 o5 p3 null att0 1 1 1 "0" EExecPF &p6 p5 o6 att0 1 1 "0" EExecPF &p7 p4 o6 att0 1 1 "0" EExecDN &d4 p7 p6 att0 1 1 "0" EExecP6 &p14 &p15 o9 d4 att0 att0 1 1 "0" EExecPF &p16 p14 o3 att0 1 1 "0" EExecPF &p17 p15 o3 att0 1 1 "0" EExecO1 &o10 p16 rect att5 1 1 "0" EExecO1 &o11 p17 rect att5 1 1 "0" EExecP2 &p18 o10 o2 att0 1 1 "0" EExecP2 &p19 o11 o2 att0 1 1 "0" CreateCopy &out_Prm1 p18 out_Prm1.FAtt=p18.FAtt CreateCopy &out_Prm2 p16 out_Prm2.FAtt=p16.FAtt CreateCopy &out_Prm3 p19 out_Prm3.FAtt=p19.FAtt CreateCopy &out_Prm4 p17 out_Prm4.FAtt=p17.FAtt return true ) -- EExecPSPL