VPF::[Delphi] Построить график - Форум программистов

18652tasha

Дата 4.5.2008, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 6.4.2008

Репутация: нет
Всего: нет

Тут небольшой код для создания графика, мне нужно его так отредактировать, чтобы он строил график не функции, а интеграла :
И как бы уменьшить масштаб!

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  yy:real;
  function f(x:real):real;

implementation


{$R *.dfm}

function f(x:real):real;
begin
   Result:=arctan(x);
end;

procedure GrFunc;
var x1,x2:real;
    y1,y2:real;
    x:real;
    y:real;
    dx:real;
    l,b:integer;
    w,h:integer;
    mx,my:real;
    x0,y0:integer;

begin
  l:=1;
  b:=Form1.ClientHeight-20;
  h:=Form1.ClientHeight-40;
  w:=Form1.Width-40;
  x1:=0;
  x2:=25;
  dx:=0.001;
  {поиск минимума и максимума}
  y1:=f(x1); {минимум}
  y2:=f(x2); {максимум}
  x:=x1;
  repeat
    y:=f(x);
    if y<y1 then
      y1:=y;
    if y>y2 then
      y2:=y;
    x:=x+dx;
  until(x>=x2);
  {масштаб}
  my:=h/abs(y2-y1);
  mx:=w/abs(x2-x1);
  x0:=1;
  y0:=b-abs(round(y1*my));
  with form1.Canvas do
  begin
    MoveTo(l,b);
    lineTo(l,b-h);
    MoveTo(x0,y0);
    lineTo(x0+w,y0);
    TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
    TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
   {построение графика}
    x:=x1;
    repeat
      y:=f(x);
      Pixels[x0+round(x*mx),y0-round(y*my)]:=clRed;
      x:=x+dx;
    until(x>=x2);
  end;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
 GrFunc;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 Form1.Canvas.FillRect(Rect(0,0,clientWidth,ClientHeight));
 GrFunc;
end;

end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »