Помощ за Inv

[Angel]

Незнам дали трябва да е в този раздел и затова се извинявам предварително , но нз как да сметна
inv20^\circ
Благодаря предварително

[Flame]

Незнам дали трябва да е в този раздел и затова се извинявам предварително , но нз как да сметна
inv20^\circ
Благодаря предварително

Инволюта [tex]inv {\alpha }=tg{\alpha }-\alpha[/tex], [tex]\alpha [rad][/tex]

[b1ck0]

Ей това го бях написал преди време:

Код: Избери целия код

// FUNCTION ********************************
  function InvolutaToGrad(Inva:double):double;
 function evoluta(Alpha:Double):double; begin result:=tan(alpha)-alpha; end;
var invmin,invmax,inv,g:Double;i:integer;
begin
invmin:=0;invmax:=-6.28318531;//evoluta(2*pi);
//g:=pi/2;inv:=evoluta(g);

g:=90;inv:=involuta(g);
if {(inva>invmin)or}(inva<invmax) then exit;
while (abs(inv-inva)>=0.000001)and(g>1) do begin
 if inv<inva then i:=1 else i:=-1;
 g:=g+i*(g/2);
 //g:=trunc(g)+(g-trunc(g))*60/100;
 //inv:={roundto(}involuta(g){,-7)};
 inv:=involuta(g); //evoluta(g);
end;
 //result:=radTodeg(g);
 result:=g;
 inv:=roundTo((result-trunc(result))*60/100,-2);
 if abs((inv*100)-60)<0.0001 then inv:=1;
 result:=trunc(result)+inv;
end;
// END FUNCTION ********************************