Помогите с алгоритмом построения сегмента

[DjDizzy]

Добрый день!

Помогите пожалуйста найти алгоритм построения сегмента.

Имеется:
1. Координаты точки A, точки B (соответсвенно знаем хорду AB)
2. Длина сегмента AB либо высота CD


Рис 42:


p.s. Надо на Pascal'e или Delphi.

Заранее спасибо!

[bag]

На ум приходит только вот что:
1) a=m/r;
2) h/2 = r*sin(a/2);
где
a - угол AOB (в радианах),
h - длина хорды AB.
Тогда, решая систему двух уравнений, получим следующее уравнение:
a=2*m*sin(a/2)/h
Алгоритм:
1) Организуем цикл для значений a=0...2*Pi и проверяем равенство a=2*m*sin(a/2)/h.
2) После того, как нашли a, находим r=m/a.
3) Строим сектор по известным a и r.

[bag]

Вот программа, реализующая приведенный мной выше алгоритм (сыровата правда):

uses graph,crt;
const
  xc=200;
  yc=200;
var
  gd,gm,i,j,dx,dy:integer;
  r,h,m,a,a1:real;
begin
  write('h=');
  readln(h);
  write('m=');
  readln(m);
  for i:=359 downto 1 do
  begin
    a:=i*PI/180;
    a1:=2*m*sin(a/2)/h;
    if abs(a-a1)<=PI/180 then break;
  end;
  r:=m/a;
  gd := Detect;
  InitGraph(Gd,Gm,'e:\tp7\bgi');
  for j:=1 to round(i/2) do
  begin
    dx:=round(sin(j*PI/180)*r);
    dy:=round(cos(j*PI/180)*r);
    line(xc,yc,xc+dx,yc-dy);
    line(xc,yc,xc-dx,yc-dy);
  end;
  readkey;
  closegraph;
end.

[DjDizzy]

Спасибо! То что нужно!

А если у нас вместо длины сегмента AB известна высота CD?

[bag]

Тогда тем же способом решаем уравнение:
(r-y1)*(r-y1)=r*r - h*h/4,
где
y1 - высота CD,
h - длина хорды AB.
Т.е.
1) Организуем цикл для значений r=0...rmax и проверяем равенство (r-y1)*(r-y1)=r*r - h*h/4.
2) После того, как нашли r, находим a=2*arctg(x/(r-y1)), правильно обработав ситуацию, если r-y1=0.
3) Строим сектор по известным a и r.