Re: comparing gnat/Ada95 and g77

["chris.danx" <chris.danx@ntlworld.com>]

"Martin Dowie" <martin.dowie@nospam.baesystems.com> wrote in message
news:3c9081f5$1@pull.gecm.com...
> >          x := x*0.5 + 1.0 + sin(x)*cos(x) + sin(x) + cos(x) +
> >                             sin(x)*sin(x) + cos(x)*cos(x);
>
> Try changing this line to:
>
>          Sin_X := Sin(X);
>          Cos_X := Cos(X);
>          X := X*0.5 + 1.0 + Sin_X*Cos_X + Sin_X + Cos_X +
>             Sin_X*Sin_X + Cos_X*Cos_X;

what is the point of calculating sin(x)*sin(x) + cos(x)*cos(x)?  It is equal
to (sin(x))^2 + (cos(x)^2) which is always 1.0 so you can do

x := x * 0.5 + 1.0 + sin_x*cos_x + sin_x + cos_x + 1.0;

and that'll be even faster.