RANDOM() visual

[AUGE_OHR]

hi,

i want to generate "random Point"

Code: Select all

   mX := RANDOM( aSize[1]-2 )
   mY := RANDOM( aSize[2]-2 )
   ::Circle(mX,mY,3,nColor,,.T.)

Code: Select all

METHOD DemoDlg:Circle(X0,Y0,R0,nColor,nLineType,lFill)

   draw ellipse in window MainForm ;
   at Y0,X0 to Y0+3,X0+3 ;           //  X0,Y0 to X0+3,Y0+3    
   pencolor {random(255),random(255),random(255)} penwidth 2 fillcolor {random(255),random(255),random(255)}

RETURN NIL

now look at Picture ... Point are NOT "random" ...

RANDOM.jpg (85.93 KiB) Viewed 1438 times

i have made a Logfile with data and that "seems random" but if you "visualize" it you see this Result

RANDOM.ZIP

(23.43 KiB) Downloaded 122 times

so how to generate "random" Number under harbour / HMG

[AUGE_OHR]

have use Data in Excel

Random_Excel_Chart.JPG (95.52 KiB) Viewed 1426 times

why does RANDOM() Data have that Look

[AUGE_OHR]

hi,

have now use hb_RandomInt() instead of RANDOM() and got this

hb_RandomInt.jpg (266.46 KiB) Viewed 1420 times

so it seems RANDOM() is not working as expect ...

[AUGE_OHR]

hi,

why is

Code: Select all

mt=yes

HbDTL_MT.JPG (83.31 KiB) Viewed 1376 times

slower than

Code: Select all

mt=no

HbDTL_NOMT.JPG (313.27 KiB) Viewed 1376 times

in this Sample