>
> > Try to run the benchmark
> > http://gambasdoc.org/help/doc/benchmark/polynom
> > <http://gambasdoc.org/help/doc/benchmark/polynom>and
>
I wrote it:
Public Sub Button1_Click()
Dim I As Integer
For I = 1 To 10
Print Test(0.2)
Next
End
Sub Test(X As Float) As Float
Dim Mu As Float = 10.0
Dim Pu, Su As Float
Dim I, J, N As Integer
Dim aPoly As New Float[100]
N = 500000
For I = 0 To N - 1
For J = 0 To 99
Mu = (Mu + 2.0) / 2.0
aPoly[J] = Mu
Next
Su = 0.0
For J = 0 To 99
Su = X * Su + aPoly[J]
Next
Pu += Su
Next
Return Pu
End
I launched and I received in console:
1250000
1250000
1250000
1250000
1250000
1250000
1250000
1250000
1250000
1250000
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
