Problem with pow

[Brian Alvarez]

The following code:

Code: [Select]

DOUBLE d = -2.5654885563273315
print pow(d, 2)
In 32bit outputs  6.581731532646495
In 64bit outputs  -6.5817313194274902

The following does not compile:

Code: [Select]

pow(-2.5654885563273315, 2)

Code: [Select]

ERROR: ERROR: unexpected comma in array index
WORD: -

[Aurel]

Hi Brian
for me work this:

print -2.5654885563273315 ^ 2

but for pow() o2 say - unindentified instruction !

[Aurel]

Hi
here is a quick solution 

Code: [Select]

'simple power func
function power(double num,int exponent) as double
double res
res = num ^ exponent
return res
end function

'test
print power(-2.5654885563273315,2)


[Brian Alvarez]

Nice! It works. WHat version are you using Aurel? SQR() is also giving me trouble.

[Brian Alvarez]

made my own.

Code: [Select]

    MACRO SQR extended(r, v)
        r = (v) ^ 0.5
    END MACRO

[Charles Pegge]

pow (and mod) can also be used as operators, without the prolems you report, Brian. Iwill need to investigate further...

What is the problem with sqr ?

[Brian Alvarez]

the problem is that in 64bit gives a different result than in 32bit.

[Charles Pegge]

Deleting all the deff blocks in RTL63.inc should clear the pow sign problem

sqrt should be okay. it uses the fsqrt instruction and only depends on the precision of the parameter pssed to it.

[Aurel]

WHat version are you using Aurel?

I use 0.2.8. 32bit

[Brian Alvarez]

Where did you get it from? I have 0.2.6 and i cant find any newer....

[jack]

hello Brian
from Charles Pegge's signature address get OxygenBasicProgress.zip

[Arnold]

Hi Brian,

in Github at the moment there is OxygenBasicProgress.zip, OxygenProgress.zip, latest commit 5 months ago. Perhaps you applied OxygenBasic.zip or Oxygen.zip, latest commit 7 months ago? I assume Charles will provide a more recent version anyway in the near future after resolving some of the requests.

[Aurel]

Yes there is on github..
I just look into Oxygen Basic page and found topic GAMES..
i don't know that even exist ..there are games of our old friend Peter Wirbelauer
( i miss that guy ,,,)
and download pac3D...well really nice game ...uffff
i must made one too...but first i must re-learn few things again 

[Brian Alvarez]

I started having issues after i modified my MOD function. I tried:

Code: [Select]

%def ¤MOD mod
but was giving #qNaN with some parameters... i had to roll back to:

Code: [Select]

MACRO ¤MOD quad(r, v, e)
    r = mod(v, e)
END MACRO

[Charles Pegge]

I fixed the65bit sign prolem by removing the deff blocks from RTL64.inc.

These should work:

Code: [Select]

$filename "o.exe"
'uses RTL64
double p = pow(-2.5,2)
print 0 + pow(-2.5,2)
print "" + pow(-2.5,2)
print (pow(-2.5,2))
print -2.5 pow 2
print -2.5 ^ 2

0.2.9 coming soon..