VPF::Построение перпендикулярных и не только линий

maxim1000

Дата 3.11.2005, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110

тогда три вопроса:
1. в радианы переводишь?
2. если не получается праильно, то как получается (под какими приблизительно углами)?
3. код программы...

--------------------

qqq

YURIC

Дата 3.11.2005, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 5.8.2003

Репутация: нет
Всего: 1

Код


type
tnewline = record
X1:Double;
Y1:Double;
X2:Double;
Y2:Double;
end;

...

function getline(x1,y1,x2,y2,dl:Double):Tnewline;
var
newline:tnewline;
X0,Y0,X3,Y3,X4,Y4:Double;
begin
X0:=X2-X1;
Y0:=Y2-Y1;
X3:=x0*cos(180-ang)+y0*sin(180-ang);
Y3:=x0*(-sin(180-ang))+y0*cos(180-ang);
indl:=sqrt(x3*x3+y3*y3);
X4:=X3*l/indl;
Y4:=Y3*l/indl;
newline.X1:=X1;
newline.Y1:=Y1;
newline.X2:=X1+X4;
newline.Y2:=Y1+Y4;
result:=newline;
end;

Это сообщение отредактировал(а) YURIC - 3.11.2005, 23:39

Присоединённый файл ( Кол-во скачиваний: 5 )

Nado.JPG 5,47 Kb

maxim1000

Дата 4.11.2005, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110

все стандатные тригонометрические функции оперируют углами не в гардусах, а в радианах
так что надо все углы (в том числе и 180) перевести в радианы:
radians=pi*alpha/180
(не помню точно, как число пи называется в Delphi)

--------------------

qqq

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »