IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Кривые Лиссажу.Оси координат
сообщение
Сообщение #1


Фанат Delphi
**

Группа: Пользователи
Сообщений: 72
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


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


Прикрепленные файлы
Прикрепленный файл  Lab_1.zip ( 4.11 килобайт ) Кол-во скачиваний: 265


--------------------
ICQ (384-043-857)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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

// У тебя было function JJ(X:real):integer;
function JJ(y:real):integer;
begin
JJ:=J1+Trunc((y-y1)*(J2-J1)/(y2-y1))
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Фанат Delphi
**

Группа: Пользователи
Сообщений: 72
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Цитата(volvo @ 9.02.2007 12:33) *
// У тебя было function JJ(X:real):integer;
Эххх...Вот стормозил smile.gif А ведь раз пять проверял. Спасибо огромное!


--------------------
ICQ (384-043-857)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 5.10.2024 16:46
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name