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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,2d09fa6592c24a21
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-10 21:46:32 PST
Path: 
 archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!supernews.com!peer1-sjc1.usenetserver.com!usenetserver.com!hub1.nntpserver.com!news-xfer2.newshosting.com!not-for-mail
Message-ID: <3C8C44A5.D9325235@yahoo.com>
Date: Sun, 10 Mar 2002 23:46:13 -0600
From: Anatoly Chernyshev <rhezusfactor@yahoo.com>
X-Mailer: Mozilla 4.75 [en] (WinNT; U)
X-Accept-Language: ru,en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: I think - it's a bug...
References: <3C8B184D.49214059@yahoo.com> <3C8C4189.1152D57B@acm.org>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Original-NNTP-Posting-Host: 206.250.225.5
X-Original-Trace: 10 Mar 2002 22:46:38 -0700, 206.250.225.5
X-COMPLAINTS: Report abuse to abuse@mhogaming.com
Organization: Newshosting.com - Highest quality at a great price!
 www.newshosting.com
NNTP-Posting-Date: 11 Mar 2002 05:46:27 GMT
NNTP-Posting-Host: 8bc13bf2.news.newshosting.com
X-Trace: 
 DXC=oKP@`c`a2=nFTPS<SO`:LlX`1N4>^k1LciF6BbIV4YYbLnHEXCOOR@oNkX60Hm9MdaM;lF[5C2Pfho5dZhTdOGRmoh3?Aa9Y?3b
X-Complaints-To: abuse@newshosting.com
Xref: archiver1.google.com comp.lang.ada:21038
Date: 2002-03-11T05:46:27+00:00
List-Id: <comp.lang.ada>



Jeffrey Carter wrote:

> Anatoly Chernyshev wrote:
> >
> > WITH ada.text_io,ada.numerics.elementary_functions;
> > USE ada.text_io, ada.numerics.elementary_functions;
> > PROCEDURE el_stat_fun IS
> >    b            : float := 7.5;
> >    a:float:=4.0;
> >    rr, z : float;
> >    r            : float := 4.0;
> >    dz           : float := 0.3;
>
> B, A, R, and Dz are constants. Why not make them named numbers?

This was cut from the much bigger program, actually there they are not
constants.

>
> The parentheses here look funny. Did you perhaps mean
>
> rr:=-a*sqrt((1.0-(z/b))**2)+a+r;

This is just a mistyping - I meant what I meant. Anyway, after removing
of extra brackets the problem still persists.