= (p1 * k22 * k33-p1 * k23 * k32-p2 * k12 * k33 + p2 * k13 * k32 + p3 * k12 * k23-p3 * k13 * k22)/
(k11 * k22 * k33-k11 * k23 * k32-k21 * k12 * k33 + k21 * k13 * k32 + k31 * k12 * k23-k31 * k13 * k22); i: = 1 to n + du do begin [i]: = 0;. Series1.AddXY (i, y [i],'', clred);. Series2.AddXY (i, Res [i],'', clgreen);; i: = n + du +1 to NN do begin [i]: = to NN do ySr: = ySr + Res [i];: = ySr/(NN-1);: = 0; Sost: = 0; i: = n + du to NN do: = Sy + sqr (Res [i ]-ySr);: = Sost + sqr (y [i]-Res [i]);;: = Sy/(NN-1); Sost: = Sost/(NN-4);: = Sy/Sost; Fu1
(k11 * k22 * k33-k11 * k23 * k32-k21 * k12 * k33 + k21 * k13 * k32 + k31 * k12 * k23-k31 * k13 * k22); i: = 1 to n + dv do begin [i]: = 0;. Series1.AddXY (i, y [i],'', clred);. Series2.AddXY (i, Res [i],'', clgreen);; i: = n + dv +1 to NN do begin [i]: = to NN do ySr: = ySr + Res [i];: = ySr/(NN-1);: = 0; Sost: = 0; i: = n + dv to NN d...
