Это опять я, проблема вывода график на рисунок.

[Bilargo]

var  gr : array[1..30] of TPoint;
    x0, y0, dx, i : integer;
begin
  x0:=22; y0:=480;  dx:=20;
  randomize;
  for  i:=1  to  30  do
    begin
       gr[i].x := x0 + (i-1)*dx;
       gr[i].y := 5*cos(x0)*exp(-x0/5);
    end;
  Form1.Canvas.Pen.Width := 2;
  Form1.Canvas.Pen.Color := clRed;
  Form1.Canvas.Polyline(gr);
end;

Проблема заключается в том, что мне надо нарисовать функцию 5*cos(x)*exp(-x/5), дельфи ругается из-за несовпадения типов, в какой тип экспоненту преобразовать? Ну и вообще правильный ли у меня ход мысли?

[NeshSoft]

округлить да и все: round(...)

[Bilargo]

Ммм....спасибо =) Вот только график не получается! Линия вверх стягивается.

[NeshSoft]

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

Ммм....спасибо =) Вот только график не получается! Линия вверх стягивается.

ну это уже с dx и dy напутано... кстати, там нет dy

[Bilargo]

Ох...как я ненавижу эту математику... Меня просто воротит от неё))

procedure TForm1.FormDblClick(Sender: TObject);
var  gr : array[1..30] of TPoint;
    x0, y0, dx, dy, i : integer;
begin
  x0:=22; y0:=480;  dx:=20; dy:=20;
  for  i:=1  to  31  do
    begin
       gr[i].x := x0 + (i-1)*dx;
       gr[i].y := Round(5*cos((i-1)*dy)*exp(-(i-1)*dy/5));
    end;
  Form1.Canvas.Pen.Width := 2;
  Form1.Canvas.Pen.Color := clRed;
  Form1.Canvas.Polyline(gr);
end;

Что тут ещё поправить можно?) Надо эту функцию чертову задать правильно)))

[NeshSoft]

Универсальный способ решения проблем "когда компилятор тебя не понимает": попробовать самому проделать на листочке все то, что написано в коде - сразу станет ясно, в каком месте происходит ошибка.

[Bilargo]

Это конечно верный подход, но проблема мой друг заключается в том, что я просто не понимаю математических выражений, я не имею представления как эту формулу преобразовать в машинный код. Я не понимаю какой график должна выдать эта формула

[NeshSoft]

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

я не имею представления как эту формулу преобразовать в машинный код.

Вы преобразовываете формулу в алгоритм на делфи, а преобразованием в машинный код занимается уже делфи.

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

Я не понимаю какой график должна выдать эта формула

Постройте график функции в екселе например.

а вообще попробуйте так:

gr[i].y := dy*round(5*cos(x0)*exp(-x0/5));

[DeKot]

Ну, во-первых, не требуется никаких преобразований формул в машинный код ( с этим справляется компилятор).Вы просто, подставляя заданные значения переменных, нарисуйте (30 раз исходя из заданного цикла) точки графика.
Во-вторых:
Значение передаваемое в функцию cos должно быть в радианах.

[Bilargo]

Неа.... аналогично, график сползает в плотную к верхней границе формы.
Ммм...что за беда-то =)

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

Ну, во-первых, не требуется никаких преобразований формул в машинный код ( с этим справляется компилятор).[/B].

Да я знаю, просто не правильно выразился))) надеюсь следующие 30 человек, что прочтут этот пост, не заметят мою ошибку)