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:

    
  1. Re: Random again (Rob Marquardt 2003)
  2. Random again (Tim Robinson 2003)
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:

Sku numbers (1997) Adding Multiple Items to Shopping Cart from a Results page (1997) Security Question (1997) Auto Delete EmailCompleted Files (2002) Cart# (1997) Verify entry into a text field (2005) required fields (1998) Database Program (1997) Condensing the CART numeric sequence (2002) Beta 18 (1997) Help! WebCat2 bug (1997) Executing remote AppleScript (2000) [WebDNA] test (2008) Need relative path explanation (1997) WebCatalog can't find database (1997) WebCat2 Append problem (B14Macacgi) (1997) WebCat2b15MacPlugin - showing [math] (1997) Un[url]ize (1999) Sendmail and textarea (1998) URGENT: Can't email orders - HELP #2 (1998)