o: = Sy + sqr (Res [i ]-ySr);: = Sost + sqr (y [i]-Res [i]);;: = Sy/(NN-1); Sost: = Sost/(NN-4);: = Sy/Sost; Fv1 0.001 do: = Npp +1; [Npp]: = au1 * y [Npp-1] + au2 * y [Npp-2] + bu * u [Npp- 1-du];;: = Npp +100; nu> m +1 then i0: = nu else i0: = m +1; i: = 1 to i0-1 do [i]: = 0; u [i] : = 0; [i]: = 0; dUq1 [i]: = 0;; i: = 1 to i0 + du do [i]: = 0; [i]: = 0; dyq1 [i]: = 0 ;; i: = i0 to Npp do yz [i]: = 1;: = 1; [0]: = 0; H [1]: = 0; true doi: = i0 + du +1 to Npp do [i -du-1]: = q [0] * (yz [i-du-1]-y [i-du-1]) + q [1] * (yz [i-1-du-1]-y [i-1-du-1]); [i]: = au1 * y [i-1] + au2 * y [i-2] + bu * u [i-1-du];; i: = i0 to i0 + du do to Npp do to Npp do then break; j = 1 then begin [0]: = 1/(m +1); [1]: = 1/(m +1); endbegindSq0 * dSq0S> 0 then H [0]: = 2 * H [ 0] else H [0]: = H [0]/3; dSq1 * dSq1S> 0 then H [1]: = 2 * H [1] else H [1]: = H [1]/3; end; : = j +1; S: = dSq0; dSq1S: = dSq1; [0]: = q [0]-H [0] * dSq0/norma; [1]: = q [1]-H [1] * dSq1/norma;; pd: = q [0]; pd: = q [1];: = 0; i: = i0 to Npp do: = Spi + sqr (yz [i]-y [i]);: = Npp; abs ((yz [i]-y [i])/yz [i]) <0.05 do i: = i-1;: = i +1;: = i0; y [i]> = y [i-1] do i: = i +1;: = y [i-1]-yz [i-1]; y [i] <= y [i-1] do i: = i +1 ; y [i]> = y [i-1] do to Npp TObject); eps = 0.001; i, Npp, m, i0, j: integer;, u, yz, dUq0, dUq1, dyq0, dyq1: Array [1 .. 1000] of Extended;, q: array [0 .. 1] of real;, dSq0, dSq1, dSq0S, dSq1S: Extended;, pm, fi, dl: real;. Series3.Clear;: = 0.01;: = 2; [0]: = 0.2; q [1]: = -0.3; i: = 1 to nu + du do y [i]: = 0; i: = 1 to nu-1 do u [i]: = 0; i: = nu to 1000 do u [i]: = 1; [nu + du +1]: = au1 * y [nu + du] + au2 * y [nu + du-1] + bu * u [nu];: = nu + du +1; abs (y [Npp]-y [Npp-1])> 0.001 do: = Npp +1; [Npp]: = au1 * y [Npp-1] + au2 * y [Npp-2] + bu * u [Npp- 1-du];;: = Npp * 2; nu> m +1 then i0: = nu else i0: = m +1; i: = 1 to i0-1 do [i]: = 0; u [i] : = 0; [i]: = 0; dUq1 [i]: = 0;; i: = 1 to i0 + du do [i]: = 0; [i]: = 0; dyq1 [i]: = 0 ;; i: = i0 to Npp do yz [i]: = 1;: = 1; [0]: = 0; H [1]: = 0; true doi: = i0 + du +1 to Npp do [i -du-1]: = u [i-1-du-1] + q [0] * (yz [i-du-1]-y [i-du-1]) + q [1] * (yz [i-1-du-1]-y [i-1-du-1]); [i]: = au1 * y [i-1] + au2 * y [i-2] + bu * u [i -1-du];; i: = i0 to i0 + du do to Npp do to Npp do then break; j = 1 then begin [0]: = 1/(m +1); [1]: = 1/(m +1); endbegindSq0 * dSq0S> 0 then H [0]: = 2 * H [ 0] else H [0]: = H [0]/3; dSq1 * dSq1S> 0 then H [1]: = 2 * H [1] else H [1]: = H [1]...
