|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Oleg Polubasoff 2:5020/400 29 Oct 2001 04:34:38
To : Serg Belyaev
Subject : Re:[* - гео] - середина дуги
--------------------------------------------------------------------------------
Привет, Серж!
28.10.01 4:16, Serg Belyaev писал:
OP>> Дано: Центр окружности C, точки начала и конца дуги A и B. Дуга от
OP>> A до B подразумевается против часовой стрелки. Hайти: Середину
OP>> дуги.
SB> var Cx,Cy,Ax,Ay,Bx,By:integer;
SB> x1,x2,y1,y2,a,b:integer;
SB> x,y:real;
SB> begin
SB> Cx:=0;Cy:=0;
SB> Ax:=25;Ay:=0;
SB> Bx:=7;By:=24;
SB> x2:=Bx-Cx;x1:=Ax-Cx;
SB> y2:=By-Cy;y1:=Ay-Cy;
SB> a:=x1*x1+y1*y1;b:=x1*x2-y1*y2;
SB> x:=sqrt((a+b)/2);
SB> y:=sqrt((a-b)/2);
SB> writeln(x:0:3,', ',y:0:3)
SB> end.
Интересная формула. Из каких уравнений она получена?
Вот только ответ она всегда даёт в первом квадранте. :(
Попробуй Ax:=0; Ay:=100000;
Bx:=-100000; By:=0;
С уважением, Олег Полубасов.
--- ifmail v.2.15dev5
* Origin: Fidolook Express http://fidolook.da.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
