Как построить окружность по трем точкам?

Чтоб построить окружность необходимо найти ее центр и радиус. Воспользуйтесь готовым классом TTriangle для расчета центра и радиуса описанной около треугольника окружности, исходный код которого представлен на странице "Как рассчитать все параметры треугольника?"

procedure TForm1.Button1Click(Sender: TObject);
Var T: TTriangle;
begin
   T := TTriangle.Create( 0, 0, 1, 0, 1, 1);
   PaintBox1.Canvas.Ellipse(T.CenterOut.X - T.RadiusOut, 
                            T.CenterOut.Y - T.RadiusOut,
                            T.CenterOut.X + T.RadiusOut, 
                            T.CenterOut.Y + T.RadiusOut);
end;

Последние комментарии

  • [url=http://u.to/AVQeCg][img]http://silane-guard.com/files/willson_silane_1/img/2.jpg[/img][/url] Извечные споры о полиролях и средствах защиты автомобиля от воздействия окружающей среды уже в прошлом - ровно с тех пор, как на российском рынке появился Willson Silane Guard. Сегодня мы расскажем об...
  • Просто и быстро можно приготовить очень многое, только без соблюдения тонкостей блюда будут пресными, то же обстоит и с этим на первый взгляд элементарным продуктом. «Тонкие блинчики верх изящества» имеют свои прелести в приготовлении и точное соблюдение этих уникальных моментов, делает блинчики...
  • boost breast milk supply herbs domperidone-tenze24.tumblr cibi da evitare per reflusso esofageo

Счетчики