:






 

:

Quot;

"

 

: : . . . . . 107226, 6  
, : . .

 

 

- 2007


8

 

: TChart. .

: , [Xmin..Xmax]. , .

 

 

:

unit Unit1;

 

interface

 

uses

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

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

 

type

TForm1 = class(TForm)

Chart1: TChart;

Series1: TLineSeries;

Button1: TButton;

Image1: TImage;

Panel1: TPanel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

Xmin,Xmax,Ymin,Ymax,y,z,h:extended;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

Xmin := 1;

Xmax := 10;

Ymin := 0;

Ymax := 20;

y := 2;

z := 0.8;

h := 0.4;

 

Edit1.Text := FloatToStr(Xmin);

Edit2.Text := FloatToStr(Xmax);

Edit3.Text := FloatToStr(Ymin);

Edit4.Text := FloatToStr(Ymax);

Edit7.Text := FloatToStr(h);

Edit8.Text := FloatToStr(y);

Edit9.Text := FloatToStr(z);

Button1Click(Sender);

 

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

x,b : extended;

begin

Series1.Clear;

 

Xmin := StrToFloat(Edit1.Text);

Xmax := StrToFloat(Edit2.Text);

Ymin := StrToFloat(Edit3.Text);

Ymax := StrToFloat(Edit4.Text);

h := StrToFloat(Edit7.Text);

y := StrToFloat(Edit8.Text);



z := StrToFloat(Edit9.Text);

x := Xmin;

 

Chart1.BottomAxis.Automatic := False;

Chart1.BottomAxis.Maximum := Xmax;

Chart1.BottomAxis.Minimum := Xmin;

 

Chart1.LeftAxis.Automatic := False;

Chart1.LeftAxis.Minimum := Ymin;

Chart1.LeftAxis.Maximum := Ymax;

 

Repeat

b := sqrt(10*(exp(1/3*ln(x))+exp((y+2)*ln(x))))*(sqr(arctan(sqrt(z/(1-sqr(z)))))-abs(x-y));

Series1.AddXY(x,b,'');

x := x+h;

Until (x>Xmax);

end;

 

end.

:

: TChart. .

 

 

<== | ==>
|

mylektsii.ru - - 2015-2018 . (0.008 .)