39 sl_formula_sin_add (const double alpha, const double beta)  in sl_formula_sin_add()  argument
41   return (sl_sin (alpha) * sl_cos (beta) + sl_cos (alpha) * sl_sin (beta));  in sl_formula_sin_add()
45 sl_formula_sin_sub (const double alpha, const double beta)  in sl_formula_sin_sub()  argument
47   return (sl_sin (alpha) * sl_cos (beta) - sl_cos (alpha) * sl_sin (beta));  in sl_formula_sin_sub()
51 sl_formula_cos_add (const double alpha, const double beta)  in sl_formula_cos_add()  argument
53   return (sl_cos (alpha) * sl_cos (beta) - sl_sin (alpha) * sl_sin (beta));  in sl_formula_cos_add()
57 sl_formula_cos_sub (const double alpha, const double beta)  in sl_formula_cos_sub()  argument
59   return (sl_cos (alpha) * sl_cos (beta) + sl_sin (alpha) * sl_sin (beta));  in sl_formula_cos_sub()
63 sl_formula_tan_add (const double alpha, const double beta)  in sl_formula_tan_add()  argument
65   double n = sl_tan (alpha) + sl_tan (beta);  in sl_formula_tan_add()
66   double d = 1. - (sl_tan (alpha) * sl_tan (beta));  in sl_formula_tan_add()
72 sl_formula_tan_sub (const double alpha, const double beta)  in sl_formula_tan_sub()  argument
74   double n = sl_tan (alpha) - sl_tan (beta);  in sl_formula_tan_sub()
75   double d = 1. + (sl_tan (alpha) * sl_tan (beta));  in sl_formula_tan_sub()
102 sl_formula_sin_mul_sin (const double alpha, const double beta)  in sl_formula_sin_mul_sin()  argument
104   return 0.5 * (sl_cos (alpha - beta) - sl_cos (alpha + beta));  in sl_formula_sin_mul_sin()
108 sl_formula_sin_mul_cos (const double alpha, const double beta)  in sl_formula_sin_mul_cos()  argument
110   return 0.5 * (sl_sin (alpha + beta) + sl_sin (alpha - beta));  in sl_formula_sin_mul_cos()
114 sl_formula_cos_mul_cos (const double alpha, const double beta)  in sl_formula_cos_mul_cos()  argument
116   return 0.5 * (sl_cos (alpha + beta) + sl_cos (alpha - beta));  in sl_formula_cos_mul_cos()
123 sl_formula_sin_plus_sin (const double alpha, const double beta)  in sl_formula_sin_plus_sin()  argument
125   return 2. * (sl_sin (MP (alpha, beta)) * sl_cos (MN (alpha, beta)));  in sl_formula_sin_plus_sin()
129 sl_formula_cos_plus_cos (const double alpha, const double beta)  in sl_formula_cos_plus_cos()  argument
131   return 2. * (sl_cos (MP (alpha, beta)) * sl_cos (MN (alpha, beta)));  in sl_formula_cos_plus_cos()
135 sl_formula_sin_minus_sin (const double alpha, const double beta)  in sl_formula_sin_minus_sin()  argument
137   return 2. * (sl_cos (MP (alpha, beta)) * sl_sin (MN (alpha, beta)));  in sl_formula_sin_minus_sin()
141 sl_formula_cos_minus_cos (const double alpha, const double beta)  in sl_formula_cos_minus_cos()  argument
143   return -2. * (sl_sin (MP (alpha, beta)) * sl_sin (MN (alpha, beta)));  in sl_formula_cos_minus_cos()