Формулы расчёта положения стрелок часов

[intway070]

Кто знает, киньте формулы расчёта положения стрелок часов, можно кусок кода (на любом языке), заранее спасибо

[intway070]

удо не надо - сам посчитал)

[!Vlad]

Вот так надо работать!

[AmonRa]

Вот так быстро надо реагировать :)

[Lord of rings]

полярные координаты. любой справочник по математике...

[intway070]

та ну вас... я уже 5 месяцев как с этим разобрался...

[mancurt]

Злое_Ведро, и как же удалось решить? случайно не синусом, косинусом и секундной задержкой?

ЗЫ просто интересуюсь...

[Mulder_1]

Давным давно на паскале это делалсь так :

program clock;
uses crt, graph, mc;
var
     x, y, xx, yy,
     xx1, yy1, r,
     r1, ug, ug1,
     w, w1, x1, y1,
     x2, y2            :integer;
     s                 : char;

begin
open_graph;

   x   := getmaxx div 2;
   y   := getmaxy div 2;

   ug  := 180;
   ug1 := 180;

   r   := x div 2 - 20;
   r1  := x div 5;

   w   := 360 div 12;
   w1  := 360 div 60;
   dec           (r, 10);

   circle        (x, y, r + 10);

repeat

if keypressed then begin

   s := readkey;

 end;


   delay         (700);

   setcolor      (getbkcolor);

   line          (x, y, xx1, yy1);
   line          (xx, yy, x, y);
   line          (x, y, x1, y1);
   line          (x, y, x2, y2);

   dec           (ug, w);
   dec           (ug1, w1);

   xx1 := round  (x + r1 * cos(pi * ug1 / 180));
   yy1 := round  (y - r1 * sin(pi * ug1 / 180));

   x1 := round   (x + r1 div 3 * cos(pi * (ug1 + 180) / 180));
   y1 := round   (y - r1 div 3 * sin(pi * (ug1 + 180) / 180));

   x2 := round   (x + r div 6 * cos(pi * (ug + 180) / 180));
   y2 := round   (y - r div 6 * sin(pi * (ug + 180) / 180));

   xx  := round  (x + r * cos(pi * ug / 180));
   yy  := round  (y - r * sin(pi * ug / 180));


   setcolor      (15);
   circle        (x, y, 5);
   line          (x, y, xx1, yy1);
   line          (xx, yy, x, y);
   line          (x, y, x1, y1);
   line          (x, y, x2, y2);

until ord(s) = 27;

   closegraph;

end.