Скачать: CL | DM;

Алгоритм функции 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]

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

---

← →
Mr. API ©   (2003-07-22 10:40) [6]

именно в Тейлора. глюки с точностью могут быть. сейчас как программку напишу, так выложу. Там прикол такой, что
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.

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

---

← →
Mr. API ©   (2003-07-22 13:21) [7]

можно так.

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;



---

← →
BOA_KAA ©   (2003-07-22 13:55) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c