VPF::[Delphi]Построения графика e^(-5*x)*cos(x)

18652tasha

Дата 25.4.2008, 19:34 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня не получается этот график, в нем может кто - нибудь разобраться : (е в степени -5х)*cos(x) ?

Код



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:=exp(-5*x)*cos(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.

Rodman

Дата 25.4.2008, 19:54 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

а в чем трабла??? у меня все рисует!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Arch1S

Дата 25.4.2008, 20:40 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 14.1.2008
Где: Беларусь, Гомель

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

Цитата(Rodman @ 25.4.2008, 19:54

)

у меня все рисует!

18652tasha

Дата 25.4.2008, 21:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Ето естественно у мя тоже программа рисует, но судя по тому что нам учитель рисовал на доске, мой график сильно отличается от его , но это точно та формула которую он написал нам и этот рисунок - график, кот. должен получиться:

Поэтому я сомневаюсь : либо он нам формулу не правильно дал либо я сделала что то не так smile

(Эта задача была задана на дом, поэтому я не знала что из этого выйдет )

THandle

Дата 25.4.2008, 21:29 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

У меня тоже всё работает но есть два моментика:

1. Зачем вот тут нужно function f(x:real):real;

Код


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

?

2. Что это за непонятная весчь?

Код


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

Когда достаточно:

Код


procedure TForm1.FormResize(Sender: TObject);
begin
 Form1.Repaint;
end;

3, последнее.

Я бы не рискнул называть столько переменных столь неосмысленными именами. smile

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