= '-')) TObject); tay, h, l: real;, i, j, m, q: integer;, t: mas;, f: matr; i: = 0 to 15 do to 3 do: = round (time [q]/tay); j: = 0 to m do [j]: = j * tay; [j, 0]: = 0; [j, n]: = 0;; i: = 0 to n do [i]: = i * h; [0, i]: = u (x [i], 0);; j: = 0 to m doi: = 0 to n do f [j , i]: = fij (x [i], t [j]); j: = 0 to m-1 doi: = 1 to n-1 do [j +1, i]: = tay * y [j, i +1]/sqr (h) + (1-2 * tay/sqr (h)) * y [j, i] + tay * y [j, i-1]/sqr (h) + tay * f [ j, i];: = 0; l <= 1 do.Series [q]. AddXY (l, u (l, t [m]));: = l +0.001;; i: = 0 to n do. series [q +4]. AddXY (x [i], y [m, i]);;; TForm1.BtnNeJavnClick (Sender: TObject);, h, l: real;, i, j, p, m, q : integer;, y: matr;, t, al, bt, a, b, c: mas;: array [0 .. 3] of real; i: = 0 to 15 do to 3 do to n do [i]: =-tay; [i]: =-tay; [i]: = sqr (h) +2 * tay;; [0]: = 0; [n]: = 0; [0 ]: = 1; [n]: = 1; [0]: = 0; [n]: = 0; j: = 0 to m do [j]: = j * tay; [j, 0]: = 0 ; [j, n]: = 0;; i: = 0 to n do [i]: = i * h; [0, i]: = u (x [i], 0);; j: = 0 to m doi: = 0 to n do f [j, i]: = fij (x [i], t [j]); j: = 0 to m-1 do [n-1]: =-a [n] /b [n]; [n-1]: = sqr (h) * (f [j, n] * tay + y [j, n])/b [n]; p: = n-1 downto 1 to n-2 do y [j +1, i +1]: = al [i] * y [j +1, i] + bt [i];;: = 0; l <= 1 do.Series [q ]. AddXY (l, u (l, t [m]));: = l +0.001;; i: = 0 to n do chart1.Series [q +8]. AddXY (x [i], y [m , i]) ;//chart1.Series [j +4]. AddXY (x [i], f [j, i]);;; TForm1.BtnSimClick (Sender: TObject);, h, l: real;, i, j, p, m, q: integer;, y: matr;, t, al, bt, a, b, c: mas;: array [0 .. 3] of real; i: = 0 to 15 do to 3 do to n do [i]: =-tay; [i]: =-tay; [i]: = 2 * (sqr (h) + tay);; [0]: = 0; [n]: = 0; [0]: = 1; [n]: = 1; [0]: = 0; [n]: = 0; j: = 0 to m do [j]: = j * tay; [j, 0]: = 0; [j, n]: = 0;; i: = 0 to n do [i]: = i * h; [0, i]: = u (x [i], 0);; j: = 0 to m doi: = 0 to n do f [j, i]: = fij (x [i], t [j] + tay/2); j: = 0 to m-1 downto 1 to n-2 do y [j +1, i +1]: = al [i] * y [j +1, i] + bt [i];;: = 0; l <= 1 do.Series [q ]. AddXY (l, u (l, t [m]));: = l +0.001;; i: = 0 to n do chart1.Series [q +12]. AddXY (x [i], y [m , i]);;; TForm1.CheckBox1Click (Sender:
В В
