Обратные тригонометрические функции

[_-Re@l-_]

Просмотрел много источников, но во всех пишут по-разному насчёт существования арктангенса и арккотангенса для любых чисел.
Вообще, правильно ли будет сделать так(или нет?)

Function ArcSin(X:Variant):Variant;stdcall;
Var T:Variant;
Begin
       If (X>=-1) and (X<=1) Then
       Begin
             T:=Arctan(x/(sqrt(1-sqr(x))));
             ArcSin:=RadToDeg(T);
       End;
End;

Function ArcCos(X:Variant):Variant;stdcall;
Var T:Variant;
Begin
      If (X>=-1) and (X<=1) Then
      Begin
            T:=2*Arctan(sqrt((1-x)/(1+x)));
            ArcCos:=RadToDeg(T);
      End;
End;

Function ArcTg(X:Variant):Variant;stdcall;
Begin
      If X<>0 Then
      ArcTg:=ArcSin(X)/ArcCos(X)
      Else ArcTg:=0;
End;

Function ArcCtg(X:Variant):Variant;stdcall;
Begin
       If Arctg(X)<>0 Then
       ArcCtg:=1/ArcTg(X)
       Else 
       ArcCtg:=0;
End;
      
End;

Если нет, прошу меня поправить.

[GBAXA]

Чем не удовлетворяет модуль math

[_-Re@l-_]

Он мне вообще не нравится. Хочу свой. Ну так правильно или нет?

[Stilet]

А по калькулятору проверить что мешает?

[_-Re@l-_]

В калькуляторе нету ctg..Ну спасибо всем блин..Ладно, можете закрывать тему.Толку нет.

[Stilet]

Тему я закрывать не буду, а тебе посоветую проверять свои функции на практике:

program Project1;

{$APPTYPE CONSOLE}

uses    math,
  SysUtils;
  
Function ArcSin(X:Extended):Extended;stdcall;
Var T:Extended;
Begin
       If (X>=-1) and (X<=1) Then
       Begin
             T:=Arctan(x/(sqrt(1-sqr(x))));
             ArcSin:=RadToDeg(T);
       End;
End;

Function ArcCos(X:Extended):Extended;stdcall;
Var T:Extended;
Begin
      If (X>=-1) and (X<=1) Then
      Begin
            T:=2*Arctan(sqrt((1-x)/(1+x)));
            ArcCos:=RadToDeg(T);
      End;
End;

Function ArcTg(X:Extended):Extended;stdcall;
Begin
      If X<>0 Then
      ArcTg:=ArcSin(X)/ArcCos(X)
      Else ArcTg:=0;
End;

Function ArcCtg(X:Extended):Extended;stdcall;
Begin
       If Arctg(X)<>0 Then
       ArcCtg:=1/ArcTg(X)
       Else 
       ArcCtg:=0;
End;
var e:extended;
begin
 e:=0.2;
 writeln(math.ArcSin(e):10:5,#9,ArcSin(e):10:5);
 writeln(math.ArcCos(e):10:5,#9,ArcCos(e):10:5);
 writeln(math.ArcTan2(e,1):10:5,#9,ArcTg(e):10:5);
 writeln(math.ArcCot(e):10:5,#9,ArcCtg(e):10:5);
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

И делать выводы правильно или не правильно вместо того чтоб обижаться на других без причины.

[_-Re@l-_]

Видите ли, дело не в практике, а в том, что я так и не понял:

насчёт существования арктангенса и арккотангенса для любых чисел.

чтоб обижаться на других без причины.

А причина есть:

Если нет, прошу меня поправить.

А никто этого не сделал.

[Пепел Феникса]

тангенс и соответственно котангенс могут принимать значения от минус бесконечности до плюс бесконечности, значит арктангенс и арккотангенс существуют там же.

[JTG]

Тригонометрические функции, возвращающие вариантный тип данных в градусах, да ещё с ветвлениями и лишними операциями деления? Мсье знает толк в извращениях Арккосинус, например, во всём цивилизованном мире вычисляют так:

function ArcTan2(Y, X: Extended): Extended;
asm
    FLD     Y
    FLD     X
    FPATAN
    FWAIT
end;

ArcCos = ArcTan2(sqrt(1-X*X), X);

[Stilet]

А никто этого не сделал.

Я (Тоесть мы).
Во-первых:

Function ArcSin(X:Variant):Variant;stdcall;

Для чего ты Variant используешь и зачем stdcall?

Во-вторых:ArcSin и ArcCos твои работают верно. Только я бы в них не делал перевод в градусы.

В-третьих: Любопытно выглядит связка:

ArcTg:=ArcSin(X)/ArcCos(X)

Учитывая что вызываются твои функции, которые все равно вызывают стандартную функцию модуля System.
Назревает опять вопрос - зачем изобретать велик? Изобретал бы его тогда уже на ассемблере.
Не буду разводить флуд, просто порекомендую залезть в исходники делфийских модулей и поучится у Борланда.