График.

@AloneHere · Регистрация: 18.11.2008

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

есть график, к примеру х^2

Delphi

1
2
3

function f(x:real):real;
f:=x*x;
end;

Нужно построить график этой функции. Но т.к. в делфи ось функций направлена вниз, аргумент и функция на форме > 0, не выходит нарисовать нормальный график функции.
Как решить эту проблему?
Так я хотел рисовать график

Delphi

x:=minx;
repeat
y:=f(x);
form1.canvas.pixels[x,y]:=clblack;
x:=x+dx;
Until x>=maxx

@kiol911 · 08.04.2009, 21:21

Не возможно рисовать график по пикселям через переменные real, построить его по точкам тебе подойдет?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 480 do Image1.Canvas.Pixels[320,i]:=ClBlack;
for i:=0 to 640 do Image1.Canvas.Pixels[i,240]:=ClBlack;
for i:=-15 to 15 do Image1.Canvas.Pixels[320+i,240-i*i]:=ClBlue;

примерно вот так, это на рисунке 640 на 480.

@AloneHere · 08.04.2009, 22:40 **[ТС]**

забыл поправить на

Delphi

repeat
y:=f(x);
form1.canvas.pixels[round(x),round(y)]:=clblack;
x:=x+dx;

Но суть не в этом.

@kiol911 · 08.04.2009, 23:29

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

@AloneHere · 09.04.2009, 13:20 **[ТС]**

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

Delphi

 SetMapMode(form1.Canvas.Handle, MM_ANISOTROPIC);
SetWindowExtEx(form1.Canvas.Handle, 100, 100, 0);
SetViewportExtEx(form1.Canvas.Handle, form1.ClientWidth, -form1.ClientHeight, 0);
SetViewportOrgEx(form1.Canvas.Handle, 0, round(form1.ClientHeight/2), 0);
MoveToEx(form1.Canvas.Handle, 0, 50, 0);
LineTo(form1.Canvas.Handle, 0, 50);
movetoex(form1.Canvas.Handle,50,0,0);
lineto(form1.Canvas.Handle, 50,-25);

@kiol911 1 / 1 / 0 Регистрация: 08.04.2009 Сообщений: 5
	08.04.2009, 23:29	4
	ну чтож можно и так, только график кривоватый будет. Формулы вычисления реальных координат можешь применить те что я написал.. 0

	09.04.2009, 13:20