RE: Exponential

["Sims, Ken" <KSIMS@xxxxxxxxxxxxxxxx>]

Hi Patrick -

>The Eval statement:
>Eval      #Result = #Base + (1 / (10 ** #Expo))

The problem is that exponentiation yields a floating point result.

If #Expo is always a positive number, the following should work properly:

Eval      #Result = #Base + (1 / %dech((10 ** #Expo):10:0))

This will not work right with negative values because the result of the
expontentiation will have a variable number of decimal places.

If you increase #Expo so that it is more than a single digit, you would need
to increase the second parameter of the %dech BIF accordingly.

Ken
Southern Wine and Spirits of Nevada, Inc.
Opinions expressed are my own and do not necessarily represent the views of
my employer or anyone in their right mind.

This e-mail and any attachment contains information which is private and
confidential and is intended for the addressee only.  If you are not an
addressee you are not authorized to read, copy or use the e-mail or any
attachment.  If you have recieved this e-mail in error please notify the
sender by return e-mail and then destroy it.


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---