エクセルで数字を分析する方法

質問

お世話になります。

たとえば、３桁の数字、１２３という数字があったとします。それぞれの桁に０も入れられるので、１０００通りです。
１０００通りの数字がランダムに登場するとします。どの数字が来るかは偶然です。
で、その偶然について分析したいと思っています。
たとえば１０００回、万回と数字を出していった場合、１２３という数字が出たときに、各桁に注目します。１０の位の２が１０の位で出るのに、前回の１０の位の２が出てから何回の空白があったのか、何回ぶりの２なのかを確認したいのです。
各桁において、２なら２、３なら３が、前回の登場から何回で来ることが多いのか、平均は何回でくるのか、最大来ない時でどれくらいの空白が空くのか、等々です。
以前、正規分布を勉強すると良い等のアドバイスもいただきましたが、パソコンにも数学にも疎いので、比較的簡単な方法を教えていただくか、あるいは上記のことを行うのに流用できる他のソフトやサイト等教えていただければ幸いです。

回答No.1

keithin · ベストアンサー

エクセルを使い，Ａ１セルに
=INT(RAND()*10)
と記入，Ａ１をコピーしてＢ１，Ｃ１に貼り付けることで「３桁の数字」が生成されます。
Ａ１：Ｃ１をコピー
１万行まで貼り付けることで，３桁の数字を１万個用意できした。

この中で例えば１０の位を分析したいなら，Ｂ列に着目して分析することにします。
Ｂ列（１０の位）に。

そもそも２が何個あるのか
=COUNTIF(B:B,2)

２と２の間の空白の個数の最大
=MAX(SMALL(IF(B1:B10000=2,ROW(B1:B10000)),ROW(INDIRECT("B2:B"&COUNTIF(B:B,2))))-1-SMALL(IF(B1:B10000=2,ROW(B1:B10000)),ROW(INDIRECT("B1:B"&(COUNTIF(B:B,2)-1)))))
と記入してコントロールキーとシフトキーを押しながらＥｎｔｅｒで入力

２と２の間の空白の個数の平均
=AVERAGE(SMALL(IF(B1:B10000=2,ROW(B1:B10000)),ROW(INDIRECT("B2:B"&COUNTIF(B:B,2))))-1-SMALL(IF(B1:B10000=2,ROW(B1:B10000)),ROW(INDIRECT("B1:B"&(COUNTIF(B:B,2)-1)))))
と記入してコントロールキーとシフトキーを押しながらＥｎｔｅｒで入力

といった具合に回答から数式をコピーして正しく記入するだけで，コタエが現れます。

お礼

ご回答ありがとうございます。
これでやりたいことが出来ると思います。

あと、もうひとつ質問させてください。

0 1 2 3 4 5 6 7 8 9
0 9 0 7 6 5 0 3 2 1

上の数字が一つの桁に対してくる数字です。
下の数字は過去２０回について、上の数字に対して直近で来たのが何回前かを表しているとします。上の例で言うと0、2、6の数字が過去２０回では１回も来ていないことになります。
この３つの数に注目して分析したいのです。
３つの数字が過去２０回の間に同時に０であるのは過去１万回の間に何回あるのか。また、そのときのそれぞれの直近で来た数字はそれぞれ何回前なのか。
そういった分析でも各セル毎にデータを入力することが出来れば計算できますか・・？

回答No.3

keithin

＞あと、もうひとつ質問させてください。

いいえ、お断りします。
こういった具合にダラダラと終わらないご相談があんまり多くて、とても困っています。
１つの問題が解決したらそのご相談投稿はキチンと解決でケリをつけ、次の疑問はまた新しいご質問として、きちんと状況を詳しく添えて投稿し直してください。

「ちょっと聞いてみよう」と思いつきで書いているモノだから、例えば

＞３つの数字が過去２０回の間に同時に０であるのは過去１万回の間に何回あるのか。
＞そのときのそれぞれの直近で来た数字はそれぞれ何回前なのか。

過去２０回にゼロだったのが問題なので、１万回だろうが何だろうが、関係ありません。
といった具合に、質問になっていません。

どういう状況から何を求めたいのか、きちんと具体例を挙げ「何をヤリタイのか判るように示して」ご相談を投稿し直してください。ということです。

お礼

おっしゃる通りです。
せっかくご回答いただいたのに、不愉快な思いをさせてしまい、申し訳ありませんでした。
整理した上で改めて投稿させていただくように致します。

回答No.2

tsubuyuki

おもしろそうだったので考えてみました。

とりあえず、この素人マクロでやっていることは、
・１～１０００までの数値をランダムに発生
・１０の位が「２」だったら、シートに書き出し
・何回目で発生したか書き出し
・前回から何回かかったか書き出し
・以上を１００００回繰り返し
・以上から、出現回数・最大小平均周期を集計

・以上を２０回繰り返し
と言う作業です。

Sub Test10000()
Dim i As Long, j As Long, k As Long, l As Integer
Dim myRand As Integer
Dim EndRow As Integer

　　Cells.Delete

　　For l = 1 To 20
　　　　Range("A:C").ClearContents

　　　　i = 0: j= 0: k = 2
　　　　Cells(1, 1) = "回数"
　　　　Cells(1, 2) = "数値"
　　　　Cells(1, 3) = "周期"

　　　　For i = 1 To 10000
　　　　　　myRand = Int(Rnd() * 1000)
　　　　　　If Int(myRand / 10) Mod 10 = 2 Then
　　　　　　　　Cells(k, 1) = i
　　　　　　　　Cells(k, 2) = myRand
　　　　　　　　Cells(k, 3) = i - j

　　　　　　　　j = i
　　　　　　　　k = k + 1
　　　　　　End If
　　　　Next i

　　　　EndRow = Range("C2").End(xlDown).Row

　　　　Cells(1, 5) = "試行回数"
　　　　Cells(1, 6) = "出現回数"
　　　　Cells(1, 7) = "最大周期"
　　　　Cells(1, 8) = "最小周期"
　　　　Cells(1, 9) = "平均周期"

　　　　Cells(l + 1, 5) = l
　　　　Cells(l + 1, 6) = Application.WorksheetFunction.Count(Range("C2:C" & EndRow))
　　　　Cells(l + 1, 7) = Application.WorksheetFunction.Max(Range("C2:C" & EndRow))
　　　　Cells(l + 1, 8) = Application.WorksheetFunction.Min(Range("C2:C" & EndRow))
　　　　Cells(l + 1, 9) = Application.WorksheetFunction.Average(Range("C2:C" & EndRow))
　　Next l

　　Columns("I").NumberFormatLocal = "#,##0.00"

End Sub

エクセルを新規に立ち上げ、Ａｌｔ＋Ｆ１１でＶＢＥを起動させ、
上記コード（Sub～End Sub）を貼り付けて、Ｆ５で実行してみてくださいませ。

ちなみに
・For l = 1 To 20
　　　２０を変えると、試行回数が変わります。
・For i = 1 To 10000　　　
　　　１００００を変えると、１回の試行の最大数値が変わります。
　　　最大６５５３５までにしておいた方が良いと思われます。
・If Int(myRand / 10) Mod 10 = 2 Then
　　　２を変えると、確認したい数字を変更できます。
　　　（１０の位が●　の部分です。）

あとはお好きに料理してくださいませ。

お礼

ご回答ありがとうございます。
複雑なことでも出来るものなのですね。
感服いたしました。