Построение графика функций

@demrona · Регистрация: 19.02.2010

Author24 — интернет-сервис помощи студентам

Задание: Изменить программу так, чтобы оси выводились зеленым цветом, а график функции - синим. Подписать оси координат.

Помогите вписать в программу следующее (у меня никак не получается

):
Перед выводом осей координатной плоскости установить цвет пера clGreen и для подписи осей выполнить действия: Font.Name:='arial'; Font.Size:=10;
Textout(x0+5,y0+5,'y=2*sin(x)*exp(x/5)'); Textout(x0+w-5,y0-8,'>’);
Textout(x0+w-5,y0+5, ' X') ;
Textout(l-3,b-h-15,'/\ Y'); Для вывода графика синими пикселями установить цвет clBlue.

Вот сам график:
f(x) = 2sin x-e5

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure GrOfFunc;
var x,y,
x1,y1,dx,x2,y2,mx,my:real;
l,b,h,w,x0,y0:integer;
function f (x:real):real;
begin
f:=2*sin(x)*exp(x/5);
end;
begin
l:=10;
b:=Form1.ClientHeight-20; h:=Form1.ClientHeight-40;
w:=Form1.ClientWidth-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-13);
Moveto(x0,y0);lineto(x0+w,y0);
TextOut(1+5,b-h,FloatToStrF(y2,ffgeneral,6,3));
TextOut(1+5,b,FloatToStrF(y1,ffgeneral,6,3));
x:=x1;
repeat y:=f(x);
Form1.Canvas.Pixels [x0 + round(x*mx) , y0 -round(y*my)]:=clblack;
x:=x+dx;
until   (x>=x2);
end;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
 GrOfFunc;
end;
 
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
with    form1     do    Canvas.FillRect(rect     (0,0, ClientWidth,   clientHeight));
GrOfFunc;
end;
 
end.

@Сержа · 03.03.2010, 04:18

Дописал в твою процедуру:

Delphi

procedure GrOfFunc;
var x,y,
x1,y1,dx,x2,y2,mx,my:real;
l,b,h,w,x0,y0:integer;
 
function f (x:real):real;
begin
 f:=2*sin(x)*exp(x/5);
end;
 
begin
l:=10;
b:=Form1.ClientHeight-20;
h:=Form1.ClientHeight-40;
w:=Form1.ClientWidth-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
 form1.Canvas.Pen.Color:=clGreen;             //********************
 Moveto(l,b);
 lineto(l,b-h-13);
 Moveto(x0,y0);
 lineto(x0+w,y0);
 TextOut(1+5,b-h,FloatToStrF(y2,ffgeneral,6,3));
 TextOut(1+5,b,FloatToStrF(y1,ffgeneral,6,3));
 x:=x1;
  repeat
   y:=f(x);
   Form1.Canvas.Pixels [x0 + round(x*mx) , y0 -round(y*my)]:=clblue;            //*****************
   x:=x+dx;
  until   (x>=x2);
end;
end;

	03.03.2010, 04:18

Опции темы