Алгоритм функции Arctan

← →
Cliff © (2003-07-22 03:04) [0]

Кто нибудь знает алгоритм нахождения арктангенса на паскале ????
Помогите кто может 8)

← →
default © (2003-07-22 04:37) [1]

function ArcTan_(X: Extended): Extended; asm FLD TBYTE PTR [X] FLD1 FPATAN end;
вот
из окна CPU содрано

← →
default © (2003-07-22 04:42) [2]

а сама реализация алгоритма - выполняется аппаратно сопроцессором

← →
default © (2003-07-22 05:16) [3]

ещё можно через арккосинус вычислить

← →
Mr. API © (2003-07-22 08:45) [4]

Можно разложить в ряд.

← →
default © (2003-07-22 08:47) [5]

можно и в ряд
в Тейлора что ли?
дольше считать будет только...

именно в Тейлора. глюки с точностью могут быть. сейчас как программку напишу, так выложу. Там прикол такой, что
arctg(x)=x - x^3/3 + x^5/5 +...+(-1)^((n-1)/2))*x^n/n, где n- нечетное число. ^-возведение в степень.
Т. е. чтобы выглядело как ряд.
acrtg(x)=sum((-1)^n*x^(n-1)/2*n-1,n=1..infinity);
Ну понятно, что a=0.

А проц, наверное, так же считает? или нет?

можно так.
function arctg(x: real): real; var s, d: real; eps: real; i: integer; begin eps:=0.0000001; d:=x; s:=d; i:=2; while abs(d)>=eps do begin d:=d*(-1)*x*x*(2*i-3)/(2*i-1); s:=s+d; inc(i); end; Result:=s; end;

Проще залезть в модуль Math и посмотреть, как там это сделано

Алгоритм функции Arctan Найти похожие ветки