Lines Matching refs:Reduced_X
128 Reduced_X : Double := abs X; variable
132 if Reduced_X > Pi / 4.0 then
133 Reduce (Reduced_X, Quadrant);
137 return Cosine_Approx (Reduced_X);
140 return Sine_Approx (-Reduced_X);
143 return -Cosine_Approx (Reduced_X);
146 return Sine_Approx (Reduced_X);
150 return Cosine_Approx (Reduced_X);
158 Reduced_X : Double := X; variable
163 Reduce (Reduced_X, Quadrant);
167 return Sine_Approx (Reduced_X);
170 return Cosine_Approx (Reduced_X);
173 return Sine_Approx (-Reduced_X);
176 return -Cosine_Approx (Reduced_X);
180 return Sine_Approx (Reduced_X);