[SerginhoLD]

PaintBox
график функции Y=abs(COS(2*X)-SIN(2*X)) на отрезке [a, b].

у меня с этим пипец какая проблема, в голову вообще ниче не лезит, помогите плиз, в качестве примера возьмите любой график, хоть у=х*х, мне самое главное пример как это делать
я так делал, но он мне вообще ниче рисовать не хочет:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

unit Unit15;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls, Math;   type   TForm1 = class(TForm)     PaintBox1: TPaintBox;     procedure PaintBox1Paint(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   function xs(x:double):integer;   function ys(y:double):integer;   var   Form1: TForm1;   a,b,px,py,qx,qy,ming,maxg,x,y: double;   implementation   {$R *.dfm}   function f(x: double): double; begin   result:=abs(cos(2*x)-sin(2*x)); end;   procedure TForm1.FormCreate(Sender: TObject); begin   a:=-12; b:=15; end;   procedure TForm1.PaintBox1Paint(Sender: TObject); var i,j:integer; begin   ming:=0.1; maxg:=0.1;   for i:=0 to round(abs(a)+abs(b)) do   begin     x:=a+i;     y:=f(x);     if maxg<y then maxg:=y;     if ming>y then ming:=y;   end;   px:=(PaintBox1.Width-PaintBox1.left)/(b-a); qx:=left-px*a;   py:=(PaintBox1.top-PaintBox1.Height)/(maxg-ming); qy:=PaintBox1.top-py*maxg;       for j:=PaintBox1.Left to PaintBox1.Width do     PaintBox1.Canvas.Pixels[xs(j),ys(f(j))]:=clred; end;   function xs(x:double):integer; //вычисляем экранные координаты begin   result:=round(px*x+qx); end; function ys(y:double):integer; begin   result:=round(py*y+qy); end;     end.

[lmikle]

В принципе, можно, конечно, отрисовывать все в OnPaint. При этом незабудь преобразовать координаты по y, т.к. точка 0 по этой оси находится в другом месте.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

function F(x : integer) : Integer; begin   result := x*x; end;   procedure TForm1.PaintBox1Paint(Sender : TObject); var   x, y, i : Integer; begin   // X in -100..100   // Y = X^2   x := -100 + Round(PaintBox1.Width / 2);   y :=  f(-100) * -1 + Round(PaintBox1.Height / 2);   With PaintBox.Canvas Do     Begin         Pen.Color := clBlack;         Brush.Color := clWhite;         FillRect(Rect(0,0,Width,Height);         MoveTo(x,y);            For I := -100 To 100 Do           Begin             x := -100 + Round(PaintBox1.Width / 2);             y :=  f(-100) * -1 + Round(PaintBox1.Height / 2);             LineTo(x,y);           End;     End; end;

Но, вообще, лучше сделать отрисовку на буферном битмапе, а его уже выводить в OnPanit. Что бы каждый раз график не рассчитывался и не перерисовывался.