Lines Matching refs:Reduced_X
156 Reduced_X : Double := abs X; variable
160 if Reduced_X > Pi / 4.0 then
161 Reduce (Reduced_X, Quadrant);
165 return Cosine_Approx (Reduced_X);
168 return Sine_Approx (-Reduced_X);
171 return -Cosine_Approx (Reduced_X);
174 return Sine_Approx (Reduced_X);
178 return Cosine_Approx (Reduced_X);
186 Reduced_X : Double := X; variable
191 Reduce (Reduced_X, Quadrant);
195 return Sine_Approx (Reduced_X);
198 return Cosine_Approx (Reduced_X);
201 return Sine_Approx (-Reduced_X);
204 return -Cosine_Approx (Reduced_X);
208 return Sine_Approx (Reduced_X);