График функции y=sinx+cosx (Delphi)

[delvan]

Здравствуйте.Задание такое:нарисовать график функции y=sinx+cosx. Пределы рисования графика определяются значениями xmin и xmax. Значения ymin и ymax должны соответствовать минимальному и максимальному значению функции на промежутке [xmin; xmax]. При построении функции левая граница клиентской области окна должна соответствовать xmin, правая – xmax, верхняя – ymax, нижняя – ymin. Значения xmin и xmax задаются в дочерней форме.
Вот программка,график строится.Но помогите, пожалуйста, её скорректировать в соответствии с заданием.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Draw;
    procedure FormCreate (Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
    n=100;
var
    Form1: TForm1;
 
    xmin, xmax, ymin, ymax: real;
implementation
 
{$R *.dfm}
 
procedure  TForm1.Draw;
var
   Y, Xscr,h: extended;
   px,py,i:integer;
begin
   Image1.Canvas.Pen.Color:=clWhite;
   image1.Canvas.Rectangle(0,0,image1.Width, image1.Height);
   xscr:=image1.Width/n;
   h:=(xmax-xmin)/n;
   y:=sin(xmin)+cos(xmin);
   py:=image1.Height-trunc((y-ymin)*image1.Height/(ymax-ymin));
   Image1.Canvas.MoveTo(0, py);
   Image1.Canvas.Pen.Color:=clFuchsia;
   for i:=1 to n do
   begin
        y:=sin(xmin+i*h)+cos(xmin+i*h);
        PY:=trunc(Image1.Height-(Y-ymin)*Image1.Height/(ymax-ymin));
        px:=trunc(i*xscr);
        Image1.Canvas.LineTo(px, py);
   end;
end; 
procedure TForm1.FormCreate (Sender: TObject);
begin
    xmin:=0;
    xmax:=4*pi;
    ymin:=-2;
    ymax:=2;
    Draw;
    edit1.Text:=floattostr(xmin);
    edit2.Text:=floattostr(xmax);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
   x:extended;
   code: integer;
begin
   val(edit1.Text,x,code);
   if code=0 then xmin:=x
   else xmin:=0;
   val(edit2.Text,x,code);
   if code=0 then xmax:=x
   else xmax:=4*pi;
   if xmin>xmax then
   begin
       x:=xmin;
       xmin:=xmax;
       xmax:=x;
end;
   Draw;
   edit1.Text:=floattostr(xmin);
   edit2.Text:=floattostr(xmax);
end;
end.

[Stilet]

Слегка глупый вопрос: TChart запрещен конвенцией ассоциативно-инициативных преподавателей?

[WinCoder]

Задания даются по изученным темам. Если темой был канвас, то метода решения вполне понятна.

[Arigato]

Ваш код даже смотреть не хочется. Делать отступы еще не учили или вы прогуляли занятие?

[delvan]

Сообщение от Stilet

Слегка глупый вопрос: TChart запрещен конвенцией ассоциативно-инициативных преподавателей?

Нет.В задании не указано с помощью чего строить график.

[delvan]

Сообщение от WinCoder

Задания даются по изученным темам. Если темой был канвас, то метода решения вполне понятна.

Вы не подскажите, как значения xmin и xmax задавать в дочерней форме?

[Stilet]

В задании не указано с помощью чего строить график.

Тогда рекомендую: http://www.programmersforum.ru/showthread.php?t=62048
Формулу только свою подставь.

[delvan]

спасибо...

[WinCoder]

Stilet Инициализацию TFastLineSeries нужно было в RunTime положить. Копипастить же будут.