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:
HELP WITH DATES (1997)
Setting user/password with a form. (2000)
absolute paths for databases? (1997)
redirect with frames (1997)
4.5.1 Upgrade... (2003)
Semi-OT SSL IE problem (2005)
Another question (1997)
Cookie Crumble (1998)
Enhancement Request for WebCatalog-NT (1996)
re: keep W* in front applescript? (try Cron) (1998)
Bug or syntax error on my part? (1997)
Tax & Shipping (1997)
Cart doesn't interpret tag! (1997)
Dummy Credit Card Number for debug? (1997)
Verifying and adding new users (1997)
WebTen and WebCat (1997)
Can this be done? (1997)
this works sometimes and sometimes not (1997)
Plaintext Email Attachment (2001)
Interpret twice? (1997)