rollForIntelligence.frink

View or download rollForIntelligence.frink in plain text format


// This is a silly little test to find the approximate IQ corresponding to
// D&D rolls.

use statistics.frink

rolls = new array
for r=3 to 18
   rolls@r = 0

for d1=1 to 6
   for d2=1 to 6
      for d3=1 to 6
      {
         sum = d1 + d2 + d3
         rolls@sum = rolls@sum + 1
      }

sum = 0
for r = 3 to 18
{
   prob = sum/216
   freq = 1/(1-prob)
   iq = 0

   do
   {
      iq = iq + .1
      phi = phi[iq,100,15]
   } while (phi < prob)

   println["$r\t$sum\t" + format[prob*100,1,3] + "\t" + format[freq,1,3] + "\t" + iq]
   sum = sum + rolls@r
}


View or download rollForIntelligence.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 17596 days, 22 hours, 1 minutes ago.