abelPodskazka: TLabel);: = TLineSeries.Create (Chart);. Pen.Width: = 2;. AddSeries (fLineSeriesFx);: = TLineSeries. Create (Chart);. Pen.Width: = 2;. AddSeries (fLineBisector);: = TPointSeries.Create (Chart);. AddSeries (fPoint);: = labelPodskazka;; TEquation.FindResult: extended; approxTrunc: extended;. Clear;. Clear;. Clear;. Caption: = 'Малюємо графік вихідної функції';;. Caption: = 'Знаходимо наближене значення кореня';: = FindApproxTrunc;. Caption: = 'Наближене значення: x =' + FloatToStr (approxTrunc );. ProcessMessages; (3000);. Clear;. Caption: = 'Будуємо бісектрису';;
fLabelPodskazka.Caption: = 'Малюємо графік допоміжної функції';;. Caption: = 'Шукаємо перетин з бісектрисою';
fResult: = FindCrossing (approxTrunc);. Caption: = 'Корінь знайдений: x =' + FloatToStrF (fResult, ffFixed, 4, 3);;; TEquation.DrawMainFunc; x: extended;. Clear; (-20, 25, -0.5, 4.5);: = 0.0001; x <= 4 dofToAnimate then.ProcessMessages; (1);;. AddXY (x, Func (x));: = x + 0.01; ;; TEquation.FindApproxTrunc: extended; x: extended;: = 1;. Clear;. Color: = clGreen; abs (Func (x))> 3 dofToAnimate then.ProcessMessages; (500);;. Clear;. AddXY (x, Func (x));: = x + 0.5;;: = x - 0.5;; TEquation.DrawBisector; x: extended;. Clear; (1.5, 4.5, 1.5, 4.5);: = 2; x < ; = 4 dofToAnimate then.ProcessMessages; (8);;. AddXY (x, x);: = x + 0.01;;; TEquation.DrawFuncPhi; x: extended;: = 2; x <= 4 dofToAnimate then.ProcessMessages ; (1);;. AddXY (x, Phi (x));: = x + 0.01;;; TEquation.FindCrossing (approxTrunc: extended): extended; newResult, oldResult: extended;: = approxTrunc; (approxTrunc); : = DrawHorizontal (approxTrunc); abs ((newResult - oldResult)/oldResult)> = fAccuracy do: = newResult; (oldResult);: = DrawHorizontal (oldResult);;: = newResult;; TEquation.DrawVertical (x0: extended ): extended; Line: TLineSeries;: extended;: extended;: extended;: = TLineSeries.Create (fLineSeriesFx.ParentChart);. Color: = clBlack;. Pen.Width: = 1;. ParentChart.AddSeries (Line); : = 2;: = Phi (x0);: = (bound - y)/50; y x0;: = x0;: = Phi (x0);: = abs ((bound - x)/50) ; (x> bound - step/2 + 2 * step * (integer (toRight))) xor toRight dofToAnimate then.ProcessMessages;;. AddXY (x, bound);: = x - step + 2 * step * (integer (toRight));;: = x + step - 2 * step * (integer (toRight));; TEquation.DrawTrunc;; TEquation.ChangeAxes (leftMin, leftMax, bottomMin, bottomMax: extended);. ParentChart.Axes.Left . Minimum: = leftMin;. ParentChart.Axes.Left.Maximum: = leftMax;. ParentChart.Axes.Bottom.Minimum: = bottomMin;. ParentChart.Axes.Bottom.Maximum: = botto...
