Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi]Построения графика e^(-5*x)*cos(x)


Автор: 18652tasha 25.4.2008, 19:34
У меня не получается этот график, в нем может кто - нибудь разобраться : (е в степени -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
а в чем трабла??? у меня все рисует!

Автор: Arch1S 25.4.2008, 20:40
Цитата(Rodman @  25.4.2008,  19:54 Найти цитируемый пост)
 у меня все рисует!

+1

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

http://imageshack.us

Поэтому я сомневаюсь : либо он нам формулу не правильно дал либо я сделала что то не так smile
(Эта задача была задана на дом, поэтому я не знала что из этого выйдет )

Автор: THandle 25.4.2008, 21:29
У меня тоже всё работает но есть два моментика:

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 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)