%% load file
%% write
write("WildLIFE output\n")?
write("WildLIFE computation of arcsin\n")?

my_arcsin(A,X) :-
    write("X = ", X), nl,
    sin(A) = X,
    write("arcsin = ", A),nl.

my_arccos(A,X) :-
    write("X = ", X), nl,
    cos(A) = X,
    write("arccos = ", A),nl.

my_arctan(A,X) :-
    write("X = ", X), nl,
    tan(A) = X,
    write("arctan  = ", A),nl.

my_arctan2(A,Y,X) :-
    write("X = ", X), nl,
    write("Y = ", Y), nl,
    X >= 0.0,
    tan(A) = Y / X,
    write("arctan  = ", A),nl.

my_arctan2(A,Y,X) :-
    write("X = ", X), nl,
    write("Y = ", Y), nl,
    X < 0.0,
    Y >= 0.0,
    my_arcsin(PiD2,1,0),
    Pi = PiD2 * 2.0,
    tan(B) = Y / X,
    Pi + B = A,
    write("arctan  = ", A),nl.

my_arctan2(A,Y,X) :-
    write("X = ", X), nl,
    write("Y = ", Y), nl,
    X < 0.0,
    Y < 0.0,
    my_arcsin(PiD2,1,0),
    Pi = PiD2 * 2.0,
    tan(B) =  Y / X,
    -Pi + B = A,
    write("arctan  = ", A),nl.