Random again

This WebDNA talk-list message is from

2003


It keeps the original formatting.
numero = 47438
interpreted = N
texte = A while ago there was some discussion about using [math]ceil([RANDOM format=float]*(randomrange))[/math] to get a random number. We were just trying this and came up with an anomaly: including the occasional negative number!!! (and the negative number always is in the range -480 to -490ish.Here's our code. It looks for a RANDOM no up to 99 over 50,000 loops, and counts the number of occurences of 1, numbers in the 90s, 0, and less than zero.[math show=f]one_count=0[/math] [math show=f]ninety_count=0[/math] [math show=f]zero_count=0[/math] [math show=f]minuszero_count=0[/math][loop start=1&end=50000&advance=1] [text show=f]random_number=[math]ceil([RANDOM format=float]*(99))[/math][/text] [!][showif [random_number]<1][index]. [random_number]
[/showif][/!][showif [random_number]=1][math show=f]one_count=[one_count]+1[/math][/showif] [showif [random_number]>90][math show=f]ninety_count=[ninety_count]+1[/math][/showif] [showif [random_number]=0][math show=f]zero_count=[zero_count]+1[/math][/showif] [showif [random_number]<0][math show=f]minuszero_count=[minuszero_count]+1[/math][/showif][/loop]one_count: [one_count]
ninety_count: [ninety_count]
zero_count: [zero_count]
minuszero_count: [minuszero_count] Regards, Tim -- Tim Robinson IDFK Web Developments tim@idfk.com.au 114a/40 Yeo Street Neutral Bay 2089 Australia Phone +612 9908 2134 Fax +612 9908 4837------------------------------------------------------------- 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 Web Archive of this list is at: http://webdna.smithmicro.com/ Associated Messages, from the most recent to the oldest:

    
A while ago there was some discussion about using [math]ceil([RANDOM format=float]*(randomrange))[/math] to get a random number. We were just trying this and came up with an anomaly: including the occasional negative number!!! (and the negative number always is in the range -480 to -490ish.Here's our code. It looks for a RANDOM no up to 99 over 50,000 loops, and counts the number of occurences of 1, numbers in the 90s, 0, and less than zero.[math show=f]one_count=0[/math] [math show=f]ninety_count=0[/math] [math show=f]zero_count=0[/math] [math show=f]minuszero_count=0[/math][loop start=1&end=50000&advance=1] [text show=f]random_number=[math]ceil([RANDOM format=float]*(99))[/math][/text] [!][showif [random_number]<1][index]. [random_number]
[/showif][/!][showif [random_number]=1][math show=f]one_count=[one_count]+1[/math][/showif] [showif [random_number]>90][math show=f]ninety_count=[ninety_count]+1[/math][/showif] [showif [random_number]=0][math show=f]zero_count=[zero_count]+1[/math][/showif] [showif [random_number]<0][math show=f]minuszero_count=[minuszero_count]+1[/math][/showif][/loop]one_count: [one_count]
ninety_count: [ninety_count]
zero_count: [zero_count]
minuszero_count: [minuszero_count] Regards, Tim -- Tim Robinson IDFK Web Developments tim@idfk.com.au 114a/40 Yeo Street Neutral Bay 2089 Australia Phone +612 9908 2134 Fax +612 9908 4837------------------------------------------------------------- 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 Web Archive of this list is at: http://webdna.smithmicro.com/ Tim Robinson

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:

case sensitivity in lookups (1997) WebCatalog and WebMerchant reviewed by InfoWorld (1997) Emailer setup (1997) Webmerchant turns off (2000) WebCat2b13 Mac plugin - [sendmail] and checkboxes (1997) PageMaker/Quark to db (1999) attacment pdf (2001) RAM variables (1997) Our Webcat site launched (1997) Admin Edit prob. (1997) [group] ? (1997) Zeroing out shipping costs (2000) Looking for a host (1997) UPDATE PROBLEM (1997) how does [middle] work? (1998) restarting service remotely on NT (1997) New public beta available (1997) HomePage Caution (1997) Authenticate (1997) strip .0 off off IPaddress (1998)