From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,ac6f692d19115ce0
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news.glorb.com!proxad.net!193.252.118.146.MISMATCH!news.wanadoo.fr!news.wanadoo.fr!not-for-mail
Sender: obry@PASCAL
Newsgroups: comp.lang.ada
Subject: Re: Exponent floats?
References: <E1M1e.19923$wL6.12523@trnddc03>
 <18pr9vfqxcnbs.3a905du0c170.dlg@40tude.net>
From: Pascal Obry <pascal@obry.net>
Date: 28 Mar 2005 10:49:27 +0200
Message-ID: <ueke0yx2g.fsf@obry.net>
Organization: Home - http://www.obry.net
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Date: 28 Mar 2005 10:49:31 CEST
NNTP-Posting-Host: 82.120.26.10
X-Trace: 1111999771 news.wanadoo.fr 19343 82.120.26.10:3174
X-Complaints-To: abuse@wanadoo.fr
Xref: g2news1.google.com comp.lang.ada:10059
Date: 2005-03-28T10:49:31+02:00
List-Id: <comp.lang.ada>


"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> writes:

> with Ada.Numerics.Elementary_Functions;
> use  Ada.Numerics.Elementary_Functions;

Ok.

> > procedure test is
> > 
> > expon: float;
> > Answer: float;
> > Base: float;
> > 
> > begin -- Main Program
> > 	expon := 2.0;
> > 	Base := 2.0;
> > 	Answer := base ** expon;
> 
> Answer := exp (log (base) * expon);

No, No need to change that, see below...

> > 	Ada.Float_Text_IO.put(Answer);
> > 	Ada.Text_IO.new_line;
> > end test;
> 
> ("**" is predefined for only integer powers, see ARM 4.5.6)

Yes, but "**" on floats is defined in Ada.Numerics.Elementary_Functions.

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595