vbaのプログラムを、とりあえずはっときます。でもこれあってるのかなー？ 続きは、また今度 Sub べき乗分布サンプリング() 'y = 1/x の場合 Randomize x = 1 '初期値 For i = 1 To 6000 newx = x + WorksheetFunction.NormSInv(Rnd()) '新しい候補 If 1 <= …