TeeChart кітапхана диаграммаларының компоненттері

5.2 TeeChart кітапхана диаграммаларының компоненттері

1) диаграмма компонентін формаға орналастырыңыз.

2) диаграмманың үстіне тышқанның оң жақ батырмасын шертіп, шыққан мәзірден редакторды таңдаңыз.

3) bar-дың үш сериясын кірістіріңіз де, редактордың бірінші бетіндегі Title батырмасының көмегімен оларға ‘East’, ‘West’, и ‘Other’ атауларын меншіктеңіз.

4) format парағында Multiple Bar тобын таңдаңыз да, ‘stacked’ (бұл мән үш серияның барлығына бірдей қатысты болады және бағаналардың бір-бірінде орналасуын тағайындайды) мәнін орнатыңыз.

5) диаграмма редакторының бірінші бетіндегі ‘Titles’ өрісіне атау еңгізіңіз.

6) (axis) өсінің қосымша бетіне өтіңіз. Left өсін таңдап, атауды еңгізіңіз. Біз өлшемдері автоматты түрде анықталатын өсті кірістірдік. Әрбір серияның өзіне ғана тән жолақтар формасы болады. Бұны Style-ды орнату мүмкіншілігі бар Format деген бірінші қосымша бетте тағайындауға болады. Тура осыны бағдарлама мәтінінде орындауға болады:

East.BarStyle:=bsPyramid;

West.BarStyle:=bsInvPyramid;

Other.BarStyle:bsRectangle;

Сериялардың шығу ретін не жасап шығару кезінде диаграмма редакторында, не бағдарлама мәтініде Serieslist қасиетінің көмегімен басқаруға болады:

Chart1.SeriesList[0]:=East;

Chart1.SeriesList[1]:=West;

Chart1.SeriesList[2]:=Other;

Берілген демонстрациялық диаграмманың сериялары кездейсоқ шамалармен толтырылған.
5.3 Кескінтерді модельдеу

Ф.Мартинес классификациясына сәйкес кескіндегі ақпаратты үш топқа бөлуге болады:

топологиялық ақпарат (морфология және геометрия);

визуалды ақпарат (сыртқы түрі және жарықтандыру);

анықтауыш ақпарат (идентификация және құрылым).

Аталған алты тәуелсіз класс келесі ақпаратқа ие: ,

Кескін синтезінің мәселесіне тоқтамаңыз, бұл ақпараттан ЭЕМ экранында кескінді құрастыруда кездесетін математикалық есептердің негізгілерін атап көрсетейік:

1) координаттар жүйесін түрлендіру және проекциялау;

2) көрінбейтін сызықтарды жою;

3) жарықтың түсуі мен көлеңкені модельдеу;

4) түстерді модельдеу;

5) текстураны модельдеу;

6) объектілермен жасалатын логиикалық операциялар.

6 Мултьимедиалық жүйелердің функциялар графигі

Бірінші бөлімде параметрлі берілген функция графигін құру есебін қарастырылған. Енді нақтырақ талдау жасау үшін бір айнымалы функция графигін құрастыру есебіне оралсақ.

Для построения графика функции у = f(x) функция графигін қағазда салу үшін (X₁,X₂)*(Y,,Y₂) өлшемді тікбұрыш таңдалып алынады. Монитор экранында функция графигін салу кезінде туындайтын қиыншылық (X₁,X₂)*(Y,,Y₂) өлшемді тікбұрышты экрандағы тікбұрышқа масштабтауға тура келетінінде.
Мысал 11. Бұрылған торда күңгірт түстердің көмегімен бейнелеу. Тордың параметрлік теңдеулерін сурет ретінде келтіретін боламыз:

x = (R + r0 * cosβ) * cosα;

y = (R + r0 * cosβ) * sinα;

z = r0 * sinβ.

II(x:real): integer и JJ(y:real): integer функциялары ауқымдауды жүзеге асырады, ал О1, О2 и О3 процедуралары – координаттар жүйесін Z,Y,X өстерін сәйкесінше айналуы. Мәндерді есептеуді жылдамдату үшін sinα және cosα 3⁰ қадамымен алдын ала есептеліп, co [0..120] және si [0..120] массивтеріне енгізіліп қойған.

Синустар және косинустар массивін толтыру процедурасы

Var i: integer;

begin

for i:=0 to 120 do

co[i]:=cos(Pi/60*i); si[i]:=sin(Pi/60*i);

end;

end;
Тордың беткі қабаты тіктөртбұрыштарға бөлінген (9.7 суреті) a=i*q, i=1..n, b=j*h, j=1..m.

Функцияның графиктері

unit U1;

interface

uses

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

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender:TObject);

procedure FormCreate(Sender:TObject);

private

public

end;
var

Form1: TForm1;

imlementation

procedure TForm1.Button1Click(Sender:TObject);

var

x,y: real;

begin

begin

x:=Px*3*pi/Form1.Width;

y:=cos(x);

Py:=trunc(0.5*y*1)+1;

Canvas.Pen.Width:=100;

for g:=1 to 1000 do Canvas.Pixels[Px,Py]:=clGreen;

end;

end;

begin

x:=Px*3*pi/Form1.Width;

y:=cos(x);

Py:=trunc(0.5*y*1)+1;

canvas.Pen.Width:=40;

canvas.Pixels[Px,Py]:=clRed;

for g:=1 to 1000 do

canvas.Pixels[Px,Py]:=clWhite;

canvas.Pixels[Px,Py]:=clRed;

for g:=1 to 1000 do

canvas.Pixels[Px,Py]:=clWhite;

canvas.Pixels[Px,Py]:=clYellow;

end;

end;

begin

end;

unit Graph;

interface

uses

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

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Chart1: TChart;

Series1: TLineSeries;

Series2: TLineSeries;

Series3: TLineSeries;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

public

end;
var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

VAR T0,TK,Q,W,Y1,Y2,Y3 :REAL;

i,H :real;

begin

Q:=StrToFloat(Edit1.Text);

H:=StrToFloat(Edit3.Text);

T0:=StrToFloat(Edit4.Text);

TK:=StrToFloat(Edit5.Text);

i:=T0;

Series1.Clear;

Series3.Clear;

while i<=TK do

begin

Y2:=-exp(-Q*i);

Y3:=exp(-Q*i);

Series1.AddXY(i,Y1,'',clTeeColor);

Series2.AddXY(i,Y2,'',clTeeColor);

Series3.AddXY(i,Y3,'',clTeeColor);

i:=i+h;

end;

end.
Қосымшаның сыртқы келбеті:

Шаршының центрге қатысты төбелерінің ығысуын пайдалану.

Ауқымдау кезінде диагональдың өлшемі және центрдің орналасуы өзгереді.

Айналу кезінде – төбелердің центрге қатысты ығысуы.

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

Dialogs, StdCtrls;

type

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;
var

Form1: TForm1;

implementation

{$R *.dfm}

var

t,k,r:real; // шаршының бұрышы

i,j:integer;

procedure sq(x,y,dx,dy:integer); // шаршыны бейнелеу

begin

Canvas.MoveTo(x+dx,y+dy); // ауқым

Canvas.LineTo(x-dx,y-dy);

Canvas.LineTo(x+dy,y-dx);

Canvas.LineTo(x+dx,y+dy);

end;

begin

xn:=Form1.Width div 2; // бастапқы және соңғы нүктелердің координаттары

yn:=Form1.Height div 5*2;

xc:=Form1.Width+xn;

yc:=Form1.Height-yn;

dx:=r; // бастапқы мәндерді анықтау

dy:=0;

k:=0.95;

while (t<100) do begin // экранға кадрлеп шығару

Canvas.Pen.Color:=clGreen;

sq(round(xn),round(yn),round(dx),round(dy));

xn1:=xn*k+(1-k)*xc; // ауқымдау

yn1:=yn*k+(1-k)*yc;

r:=r*k;
{ Бұрылу }

t:=t+1; // айналудың бұрышын үлкейту

dx1:=r*cos(t);

dy1:=r*sin(t);

for j:=1 to 100000 do // уақытша тоқтату

Canvas.Pen.Color:=clWhite; // шаршыны өшіру

sq(round(xn),round(yn),round(dx),round(dy));

dx:=dx1; // шаршының парметрлерін айырбастау

dy:=dy1;

xn:=Form1.Width div 2;

yn:=yn1;

end;

begin

end;