Re: comparing gnat/Ada95 and g77

["Bobby D. Bryant" <bdbryant@mail.utexas.edu>]

On Thu, 14 Mar 2002 05:04:51 -0600, chris.danx wrote:

> "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.

Since the program doesn't take any inputs, the programmer concerned with
"fast" should just pre-calculate the answers and have the program spit
them out whole.

Or dispense with the program altogether, and just offer a text file with
the answers in it.

Bobby Bryant
Austin, Texas