VPF::Как расчитать точки по окружности

Serhik_z

Дата 25.4.2006, 15:56 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

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

Как расчитать точки по окружности со смещением угла 10 градусов
зная радиус и угол '360/колл точек+ смещение 10 гр. от координаты Y'
Тоесть расчет идет от верхней точки 'Y' по часовой,
а нам нужно сместить точку на 10 гр., и далее расчет всех точек со смещением.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 t: real;     // Колличество точек
 g: real;     //  Градусы для смещения 1-ой точки
 m: real;     //  Минуты
 s: real;     // Секунды
 x: real;     // Координата Х центра окружности
 y: real;     // Координата Y центра окружности
 c: integer;  // челое число
 d: integer;  // дробное число
 r: real;     // Радиус
 n: integer;  // Счетчик
 v: real;     // вычисления
 xa: real;    // вычисления
 ya: real;    // вычисления
begin
 // получить исходные данные из полей ввода
x:= StrToFloat(Edit1.Text); // Координата Х
y:= StrToFloat(Edit2.Text); // Координата Y
g:= StrToFloat(Edit3.Text); // Градусы (смещение 1-ой точки)
m:= StrToFloat(Edit4.Text); // Минуты
s:= StrToFloat(Edit5.Text); // Секунды
t:= StrToFloat(Edit6.Text); // Колличество точек
r:= StrToFloat(Edit7.Text); // Радиус
// предварительные преобразования
c:= Trunc(r); // это целая часть числа t
d:= Trunc(r/2) mod 10000; // это дробная часть числа t

// вычисление 
v:=g+(m/60+(s/3600));// угол смещения верхней Первой точки
v:=v*pi/180;// как угол добавить в цикл???

memo1.Lines.Add('Точки по Y    <:>    Точки по X');
  for n:=0 to Trunc (t-1) do
   begin
xa:= x+r*cos(2*pi*n/t);// n-текущая точка t-колличество точек
ya:= y+r*sin(2*pi*n/t);// 
memo1.Lines.Add('Y' + FloatToStrF(xa,ffFixed,9,8)+'    <:>    '+ 'X' + FloatToStrF(ya,ffFixed,9,8));
end;
end;

Alexeis

Дата 25.4.2006, 16:15 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


repeat
i := i + 10/180*pi;
x := R*Cos(i);
y := R*Sin(i);
until...

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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