Построение графиков функций с помощью компонента TChart

ИСХОДНЫЕ ДАННЫЕ

Функция:

Вводимые параметры: XO=1; XF=20; dX=0,5.

ТЕКСТ ПРОГРАММЫ

unit Unit1;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Unit2, Series;

type.

TForm1 = class (TForm).

Chart1: TChart;

EditXO: TEdit;

Label1: TLabel;

Label2: TLabel;

EditXF: TEdit;

Label3: TLabel;

EditdX: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label4: TLabel;

ListBox1: TListBox;

Series1: TLineSeries;

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

var.

XO, XF, dX, Y, X: double;

begin.

XO:=StrToFloat (EditXO.Text);

XF:=StrToFloat (EditXF.Text);

dX:=StrToFloat (EditdX.Text);

X:=XO;

while (X<=XF)do.

begin.

Y:=calcfun (X);

X:=X+dX;

Series1.AddXY (X, Y,'', clRed);

ListBox1.Items.Add (FloatToStrF (X, ffFixed, 5,3)+' '+FloatToStrF (Y, ffFixed, 5,3));

end;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin.

chart1.SaveToBitmapFile ('result.bmp');

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

ListBox1.Items.SaveToFile ('result.txt');

end;

end.

unit Unit2;

interface.

function calcfun (X:double):double;

implementation.

function calcfun (X:double):double;

var Y: double;

begin.

calcfun:=100+Exp (y*ln (x))-Sqr (x);

end;

end.

РЕЗУЛЬТАТ РАБОТЫ ПРОГРАММЫ

После нажатия кнопки «ОК» программа выполняет построение графика с заданными параметрами.

Кнопка «Сохранить изображение» отвечает за сохранение результата в графический файл.

Кнопка «Сохранить в Файл» отвечает за сохранения промежуточных значений функции и ее аргумента в текстовый файл.

ВЫВОД

В результате выполнения лабораторной работы была разработана программа для построения графика функции.

Для построения графика использовался модуль Chart.

Компонент Chart позволяет строить различные диаграммы и графики.

Chart является контейнером объектов Series типа TChartSeries — серий данных, характеризующихся различными стилями отображения. Каждый компонент может включать несколько серий. Если отобразить график, то каждая серия будет соответствовать одной кривой на графике. Если нужно отображать диаграммы, то для некоторых видов диаграмм можно наложить друг на друга несколько различных серий. Всегда можно задать для одного компонента Chart несколько серий одинаковых данных с разным типом диаграммы. Тогда, делая в каждый момент времени активной одну из них, можно предоставить пользователю выбор типа диаграммы, отображающей интересующие его данные. файл модуль график диаграмма Для использования компонента Chart надо поместить его на форме и настроить требуемое количество кривых. Для настройки компонента используют Редактор диаграмм. Вызвать редактор можно двойным щелчком на компоненте, с помощью контекстного меню компонента или щелчком на одном из свойств компонента, имеющих многоточие в поле значения.