Форум: "Потрепаться";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];
Вниз
Алгоритм функции 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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.022 c
