Project1

标题: 幸运值新用途，拓展函数 srand [打印本页]
作者: 九夜神尊    时间: 2011-7-20 01:13
标题: 幸运值新用途，拓展函数 srand
二话不说，上图


这个图什么意思呢

RM默认的rand函数对随机范围内的所有结果概率都相同，因为某项研究，不得不写出来这个函数。
刚写出来就拿出来分享了。
  1. #=========================================
  2. # 功能扩展
  3. #  随时使用 srand(num,s)获得一个倾向随机数
  4. #=========================================
  5. class Object
  6.   #=======================================
  7.   #  srand 不均衡随机数
  8.   #  s:  倾向程度 若为正值则概率倾向于低值，反之。若为0则为均等随机数
  9.   #
  10.   #  v:  范围，0...v的一个整数
  11.   #=======================================
  12.   def srand(v,s=0)
  13.     return rand(v) if s==0 #如果倾斜为0则返回均衡随机数
  14.     if s > 0
  15.       s=1.0/s  #得到s的倒数
  16.       min = 1/(s+1) #得到范围最小值
  17.       max = 1/s #得到范围最大值
  18.       temp = min + rand((max-min)*s*v*v)/s/v/v
  19.       n = 1/temp-s
  20.       n = (n-1)*v
  21.       return n.to_i
  22.     else
  23.       s=-1.0/s  #得到s的倒数
  24.       min = 1/(s+1) #得到范围最小值
  25.       max = 1/s #得到范围最大值
  26.       temp = min + rand((max-min)*s*v*v)/s/v/v
  27.       n = 1/temp-s
  28.       n = n-(n-1)*v-1
  29.       return n.to_i
  30.     end
  31.    
  32.   end
  33.   
  34. end
  35. #==========以下内容测试完毕请删除================

  37. sou = []
  38. for i in 0..49
  39.   sou[i]=0
  40. end

  42. for i in 0..9999
  43.   n = srand(50,10)  #★★★★★更改此处的 10 可以看到效果
  44.   sou[n] += 1
  45. end

  47. pic=[]
  48. for i in 0..49
  49.   p = Sprite.new
  50.   p.bitmap = Bitmap.new(4,sou[i]/10+5)
  51.   p.bitmap.fill_rect(1,1,8,sou[i]/10-2,Color.new(255,255,255,255))
  52.   p.x=100+i*4
  53.   pic.push p
  54. end

  56. loop do
  57.   Graphics.freeze
  58. end
复制代码
用法 脚本插入脚本编辑器任意位置（好歹懂一点插脚本的方法）
在任意地方可以用 srand(num,s)获得一个倾向随机数
这里的num为范围，例如30，则会获得一个0..29的随机数，s为倾向度，当s值越大，结果越切近0，反之则越贴近最大值，S可以是负数或0.

可以用到幸运上吧。当幸运值高以后，获得高伤害可能性更大用这个函数很棒的。
作者: 越前リョーマ    时间: 2011-7-20 02:29
幸运上的话我都拿随机数0~100然后和幸运值比大小（最大100），如果幸运值大就暴击 - -
作者: 苏小脉    时间: 2011-7-20 08:04
名字和 Ruby 默认的随机数种子生成函数 srand 冲突了。
作者: DeathKing    时间: 2011-7-20 08:18
又撞了？以前沉大（沉影不器）写了几个随机数函数：以线性概率返回随机数；返回[n，m]中的随机数，还有个什么哦……为什么这几天老爱撞上？
作者: 九夜神尊    时间: 2011-7-20 08:38
DeathKing 发表于 2011-7-20 08:18
又撞了？以前沉大（沉影不器）写了几个随机数函数：以线性概率返回随机数；返回[n，m]中的随机数，还有个什 ...

表示不知道。
作者: enghao_lim    时间: 2011-7-21 15:09
我本来是想说撞了到的，结果给楼上几个说掉了。＝＝



欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1