Версия для печати темы

Автор: NTL 9.02.2007 16:05

Кривые Лиссажу.С графиком все норм. Но вот с осями координат, особенно с Оу - беда. Помогите найти ошибку.
Вот собсна сама процедура.

procedure DrawGraphic(Wx:real;Wy:real;W1:real;W2:real);
 var i:integer;
	 t:real;
 begin
  with Form1.Image1,Form1.Image1.Canvas do
   begin
	Rectangle(0,0,Width,Height);
	MoveTo(II(x1),JJ(0));LineTo(II(x2),JJ(0));
	MoveTo(II(0),JJ(y1));LineTo(II(0),JJ(Y2));

	for i:=trunc(x1) to trunc(x2) do
	  begin
	   str(i,s);
	   TextOut(II(i-0.05),JJ(0.1),s)
	  end;
	for j:=trunc(y1) to trunc(y2) do
	   begin
	   if j=0 then
	   else
		begin
		 str(-j,s);
		  TextOut(II(0.1),JJ(j),s)
		end
  end;
	TextOut(II(x2-0.03),JJ(0.1),'x');
	TextOut(II(-0.2),JJ(y1-0.18),'y');

	t:=0;x:=Fx(t);y:=Fy(t);
	MoveTo(II(x),JJ(y));
	for i:=1 to 5*n do
	 begin
	  t:=t+h;x:=Fx(t);
	  y:=Fy(t);
	  LineTo(II(x),JJ(y))
	 end;
	end

end;

Автор: volvo 9.02.2007 16:33

Внимание на параметр...

// У тебя было function JJ(X:real):integer;
function JJ(y:real):integer;
begin
 JJ:=J1+Trunc((y-y1)*(J2-J1)/(y2-y1))
 end;

Автор: NTL 12.02.2007 2:57

Цитата(volvo @ 9.02.2007 12:33)

// У тебя было function JJ(X:real):integer;