rand_geo

機能：

幾何乱数（正整数値）を返す

書式：

rand_geo(p)

解説：

小数p （0＜p＜1）の幾何分布乱数（1,2,3,･･･ の正整数値）を返します。

　　　　　Pg (x) = p * (1 - p)^(x-1) (x = 1,2,･･･)

例：rand_geo(0.2);