on 8/18/06 7:04 PM, mrebar darkwing at [EMAIL PROTECTED] wrote:
> For a study, I want to randomly assign cases (individuals) to one of five
> groups (they don't need to have equal numbers). On the Mac, the code snippet
> below results in a distribution that is random.
>
> On Windows the results are decidedly not random.
>
> Have I made a silly mistake?
>
> OS 10.4.7
> 2006r3
>
> Note: efResults.text
>
> Michael
>
> ------------------
>
> dim i,c,t,myMax as integer
> dim g1,g2,g3,g4,g5 as integer
> dim s as string
> dim d as integer
>
>
> myMax = val(efMax.text)
>
> for i = 1 to myMax // default = 10,000
>
> Dim r as New Random
>
> d = (r.InRange(1,5))
>
> if d =1 then
> efResults.AppendText str(i) + " Group 1"+chr(13)+chr(10)
> g1 = g1 + 1
> elseif d =2 then
> efResults.AppendText str(i) + " Group 2"+chr(13)+chr(10)
> g2 = g2 + 1
> elseif d=3 then
> efResults.AppendText str(i) + " Group 3"+chr(13)+chr(10)
> g3 = g3 + 1
> elseif d=4 then
> efResults.AppendText str(i) + " Group 4"+chr(13)+chr(10)
> g4 = g4 + 1
> elseif d = 5 then
> efResults.AppendText str(i) + " Group 5"+chr(13)+chr(10)
> g5 = g5 + 1
>
> end if
> next
>
> //StaticTexts to display cum value
> stG1.text = str(g1)
> stG2.text = str(g2)
> stG3.text = str(g3)
> stG4.text = str(g4)
> stG5.text = str(g5)
I would try moving
Dim r as New Random
outside of the loop. Random objects are meant to be reused.
Chris
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
