comp.lang.ada
 help / color / mirror / Atom feed
From: "Martin Dowie" <martin.dowie@nospam.baesystems.com>
Subject: Re: comparing gnat/Ada95 and g77
Date: Thu, 14 Mar 2002 10:58:06 -0000
Date: 2002-03-14T10:58:06+00:00	[thread overview]
Message-ID: <3c9081f5$1@pull.gecm.com> (raw)
In-Reply-To: a6prk9$jhc$1@snipp.uninett.no

>          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;






  parent reply	other threads:[~2002-03-14 10:58 UTC|newest]

Thread overview: 21+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-03-14  9:47 comparing gnat/Ada95 and g77 Reinert Korsnes
2002-03-14 10:37 ` John McCabe
2002-03-14 11:00   ` Preben Randhol
2002-03-15 10:44   ` Reinert Korsnes
2002-03-15 12:14     ` John McCabe
2002-03-15 17:53       ` Georg Bauhaus
2002-03-16 14:00     ` Gautier
2002-03-14 10:58 ` Martin Dowie [this message]
2002-03-14 11:04   ` chris.danx
2002-03-14 11:07     ` Bobby D. Bryant
2002-03-14 11:41     ` David C. Hoos, Sr.
2002-03-14 11:06   ` Preben Randhol
2002-03-14 16:43     ` Jeffrey Carter
2002-03-14 11:14 ` Gerald Kasner
2002-03-14 12:59   ` Gary Scott
2002-03-14 13:17     ` Jean-Marc Bourguet
2002-03-15  0:52       ` Gary Scott
2002-03-14 16:19     ` Dan Andreatta
2002-03-15  9:35       ` Gerald Kasner
2002-03-14 17:31   ` Toshitaka Kumano
2002-03-14 16:40 ` Jeffrey Carter
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox