

Trig {base}                                  R Documentation

_T_r_i_g_o_n_o_m_e_t_r_i_c _F_u_n_c_t_i_o_n_s

_D_e_s_c_r_i_p_t_i_o_n_:

     These functions give the obvious trigonometric func-
     tions.  They respectively compute the cosine, sine,
     tangent, arc-cosine, arc-sine, arc-tangent, and the
     two-argument arc-tangent.

_U_s_a_g_e_:

     cos(x)
     sin(x)
     tan(x)
     acos(x)
     asin(x)
     atan(x)
     atan2(y, x)

_D_e_t_a_i_l_s_:

     The arc-tangent of two arguments `atan2(y,x)' returns
     the angle between the x-axis and the vector from the
     origin to (x,y), i.e., for positive arguments
     `atan2(y,x) == atan(y/x)'.

     Angles are in radians, not degrees (i.e. a right angle
     is pi/2).

_S_e_e _A_l_s_o_:

     `Log', `Math'.

_E_x_a_m_p_l_e_s_:

     cos(0) == 1
     sin(3*pi/2) == cos(pi)
     x <- rnorm(99)
     all.equal( sin(-x), - sin(x))
     all.equal( cos(-x), cos(x))
     x <- abs(x); y <- abs(rnorm(x))
     all(abs(atan2(y, x) - atan(y/x)) <= .Machine$double.eps)# TRUE
     table(abs(atan2(y, x) - atan(y/x)) / .Machine$double.eps) # depends!

     x <- 1:99/100
     all(Mod(1 - (cos(x) + 1i*sin(x)) / exp(1i*x)) < 1.1 * .Machine$double.eps)
      2* abs(1 - x / acos(cos(x))) / .Machine$double.eps #-- depends ?
     all(abs(1 - x / asin(sin(x))) <= .Machine$double.eps) # TRUE
     all(abs(1 - x / atan(tan(x))) <= .Machine$double.eps) # TRUE

