Balancing randomness
This WebDNA talk-list message is from 2000
It keeps the original formatting.
numero = 27932
interpreted = N
texte = There was a recent thread on the randomness (or lack thereof) of sdir=ra. I had to put something together today to ensure that five randomly selected items got equal play (to get more of a shuffle sort) and I thought the code may be of use to some : )When I just used a [random] tag to generate numbers from 1 to 5 (creating 1000 numbers total for these examples), I got a typical bell curve most strongly weighted on the 3:[math show=f]total1=0,total2=0,total3=0,total4=0,total5=0[/math] [loop start=1&end=1000] [math]pick=[format .0f][math]pick=(([random]/100)*4)+1[/math][/format][/math] [math show=f]total[pick]=[interpret][total[pick]][/interpret]+1[/math] [/loop]
[loop start=1&end=5] [index] = [interpret][total[index]][/interpret] ([math][interpret][total[index]][/interpret]/10[/math]%)
[/loop]1 = 153 (15.3%) 2 = 227 (22.7%) 3 = 254 (25.4%) 4 = 233 (23.3%) 5 = 133 (13.3%)-----------------------------So I set up a separate database to serve as a lookup for the numbers ...prizeShuffle.db: ref num count 1 1 3 2 1 3 4 4 5 5 2... and then stepped through each number in turn. Each time after using them all, they're given another pass through, this time randomly swapping their positions and resetting the count to 1.[math show=f]total1=0,total2=0,total3=0,total4=0,total5=0[/math] [loop start=1&end=1000] [math show=f]theCount=[lookup db=prizeShuffle.db&value=count&lookInField=ref&returnField=num¬Found=1][ /math] [math]pickNum=[lookup db=prizeShuffle.db&value=[theCount]&lookInField=ref&returnField=num¬Foun d=1][/math] [math show=f]total[pickNum]=[interpret][total[pickNum]][/interpret]+1[/math][showif [math]theCount=[theCount]+1[/math]=6] [replace db=prizeShuffle.db&eqRefData=count]num=1[/replace] [loop start=1&end=5] [math show=f]swap=[format .0f][math]pick=(([random]/100)*4)+1[/math][/format][/math] [math show=f]temp=[lookup db=prizeShuffle.db&value=[index]&lookInField=ref&returnField=num¬Found=1 ][/math] [replace db=prizeShuffle.db&eqRefData=[index]]num=[lookup db=prizeShuffle.db&value=[swap]&lookInField=ref&returnField=num¬Found=1] [/replace] [replace db=prizeShuffle.db&eqRefData=[swap]]num=[temp][/replace] [/loop] [/showif][showif [theCount]!6] [replace db=prizeShuffle.db&eqRefData=count]num=[theCount][/replace] [/showif][/loop]
[loop start=1&end=5] [index] = [interpret][total[index]][/interpret] ([math][interpret][total[index]][/interpret]/10[/math]%)
[/loop]1 = 200 (20%) 2 = 200 (20%) 3 = 200 (20%) 4 = 200 (20%) 5 = 200 (20%)Whazoo! : ) Rob Marquardt Designer/Resident Wirehead Toast Design800 Washington Avenue North Minneapolis MN 55401 612.330.9863 v 612.321.9424 f www.toastdesign.com ------------------------------------------------------------- Brought to you by CommuniGate Pro - The Buzz Word Compliant Messaging Server. To end your Mail problems go to
.This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to
Associated Messages, from the most recent to the oldest:
There was a recent thread on the randomness (or lack thereof) of sdir=ra. I had to put something together today to ensure that five randomly selected items got equal play (to get more of a shuffle sort) and I thought the code may be of use to some : )When I just used a [random] tag to generate numbers from 1 to 5 (creating 1000 numbers total for these examples), I got a typical bell curve most strongly weighted on the 3:[math show=f]total1=0,total2=0,total3=0,total4=0,total5=0[/math] [loop start=1&end=1000] [math]pick=[format .0f][math]pick=(([random]/100)*4)+1[/math][/format][/math] [math show=f]total[pick]=[interpret][total[pick]][/interpret]+1[/math] [/loop]
[loop start=1&end=5] [index] = [interpret][total[index]][/interpret] ([math][interpret][total[index]][/interpret]/10[/math]%)
[/loop]1 = 153 (15.3%) 2 = 227 (22.7%) 3 = 254 (25.4%) 4 = 233 (23.3%) 5 = 133 (13.3%)-----------------------------So I set up a separate database to serve as a lookup for the numbers ...prizeShuffle.db: ref num count 1 1 3 2 1 3 4 4 5 5 2... and then stepped through each number in turn. Each time after using them all, they're given another pass through, this time randomly swapping their positions and resetting the count to 1.[math show=f]total1=0,total2=0,total3=0,total4=0,total5=0[/math] [loop start=1&end=1000] [math show=f]theCount=[lookup db=prizeShuffle.db&value=count&lookInField=ref&returnField=num¬Found=1][ /math] [math]pickNum=[lookup db=prizeShuffle.db&value=[theCount]&lookInField=ref&returnField=num¬Foun d=1][/math] [math show=f]total[pickNum]=[interpret][total[pickNum]][/interpret]+1[/math][showif [math]theCount=[theCount]+1[/math]=6] [replace db=prizeShuffle.db&eqRefData=count]num=1[/replace] [loop start=1&end=5] [math show=f]swap=[format .0f][math]pick=(([random]/100)*4)+1[/math][/format][/math] [math show=f]temp=[lookup db=prizeShuffle.db&value=[index]&lookInField=ref&returnField=num¬Found=1 ][/math] [replace db=prizeShuffle.db&eqRefData=[index]]num=[lookup db=prizeShuffle.db&value=[swap]&lookInField=ref&returnField=num¬Found=1] [/replace] [replace db=prizeShuffle.db&eqRefData=[swap]]num=[temp][/replace] [/loop] [/showif][showif [theCount]!6] [replace db=prizeShuffle.db&eqRefData=count]num=[theCount][/replace] [/showif][/loop]
[loop start=1&end=5] [index] = [interpret][total[index]][/interpret] ([math][interpret][total[index]][/interpret]/10[/math]%)
[/loop]1 = 200 (20%) 2 = 200 (20%) 3 = 200 (20%) 4 = 200 (20%) 5 = 200 (20%)Whazoo! : ) Rob Marquardt Designer/Resident Wirehead Toast Design800 Washington Avenue North Minneapolis MN 55401 612.330.9863 v 612.321.9424 f www.toastdesign.com ------------------------------------------------------------- Brought to you by CommuniGate Pro - The Buzz Word Compliant Messaging Server. To end your Mail problems go to .This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to
Rob Marquardt
DOWNLOAD WEBDNA NOW!
Top Articles:
Talk List
The WebDNA community talk-list is the best place to get some help: several hundred extremely proficient programmers with an excellent knowledge of WebDNA and an excellent spirit will deliver all the tips and tricks you can imagine...
Related Readings:
Webcat2, WebCommerce, Mod 10 etc. (1997)
[SQL] on MacOs to SQL Server ... HOW TO? (2000)
Configuring E-mail (1997)
tab deliminated txt file (2001)
Cannot calculate prices (1997)
Where is f2? (1997)
WebCat editing, SiteGuard & SiteEdit (1997)
Help name our technology! I found it (1997)
[/application] error? (1997)
Sorting LISTFILES (1997)
Blocking form spam (2006)
underscore in variable name (2000)
RE: ANother SHOWIF problem (1997)
Further on formula.db failure to calculate shipCost (1997)
WebCat & WebTen (1997)
Emailer errors (1997)
autocommit problem (1998)
Cart vs database (1998)
problem serving foreign languages text (1997)
Re:quit command on NT (1997)