Lines Matching refs:Reduced_X
130 Reduced_X : Double := abs X; variable
134 if Reduced_X > Pi / 4.0 then
135 Reduce (Reduced_X, Quadrant);
139 return Cosine_Approx (Reduced_X);
142 return Sine_Approx (-Reduced_X);
145 return -Cosine_Approx (Reduced_X);
148 return Sine_Approx (Reduced_X);
152 return Cosine_Approx (Reduced_X);
160 Reduced_X : Double := X; variable
165 Reduce (Reduced_X, Quadrant);
169 return Sine_Approx (Reduced_X);
172 return Cosine_Approx (Reduced_X);
175 return Sine_Approx (-Reduced_X);
178 return -Cosine_Approx (Reduced_X);
182 return Sine_Approx (Reduced_X);