Timings for fast median algo

[guga]

JJ. Does the adaptation you did to the algo works for negative limit as well ?

Ex..

  fsub arrInf.yMin   ; make positive
  fmul arrInf.yRange   ; normalise 0...99999

If the minimum limit is...say -1 and the max to 1 can this work too if i set those values ?

[jj2007]

If the minimum limit is...say -1 and the max to 1 can this work too if i set those values ?

Like this?

include \masm32\MasmBasic\MasmBasic.inc
  Init
  Dim MyArray() As REAL8        ; can be DWORD, REAL4, REAL8
  For_ ecx=0 To 9999999
        Rand(-1.0, 1.0, MyArray(ecx))   ; put random number into Real8 array
  Next
  PrintLine Str$("The elements:\t%i", MyArray(?))
  PrintLine Str$("The minimum:\t%f", MyArray(?min)v)
  PrintLine Str$("The maximum:\t%9f", MyArray(?max)v)
  PrintLine Str$("The mean:\t%9f", MyArray(?mean)v)
  PrintLine Str$("The median:\t%f", MyArray(?median)v)
EndOfCode

Code Select Expand

The elements:   10000000
The minimum:    -0.9999998
The maximum:    0.999999964
The mean:       -1.45892021e-05
The median:     6.515711e-05

[guga]

Yes. perfect. Testing it right now. 

Tks a lot.