{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["Sheet1","VBA_program","ReadMe"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":4,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Sheet1","index":0,"n_rows":27,"n_cols":50,"rows_kept":27,"cut":false,"hidden":false,"merged":[]}
[10,"C",3,null,50,"回",null,null,null,50]
[null,null,null,null,50]
[]
[1,10,3,5,1,8,1,9,6,10,7,10,7,8,4,10,8,9,5,4,3,10,4,3,8,8,2,1,3,4,5,10,3,9,3,10,4,2,7,1,5,7,3,2,8,4,2,6,8,1]
[3,2,9,6,3,3,6,1,8,2,8,9,3,4,1,3,9,8,6,3,2,4,1,7,3,5,3,4,4,5,8,4,7,2,2,8,3,10,1,7,1,9,7,7,10,8,5,1,1,9]
[2,7,7,3,10,10,5,6,5,7,5,2,9,1,7,2,4,4,8,9,6,3,10,10,9,2,10,8,2,10,2,1,2,5,7,6,8,9,5,8,6,4,4,10,2,3,4,4,3,3]
[]
[1,2,3,4,5,6,7,8,9,10]
[]
[null,null,null,null,null,null,null,"得点の分布"]
[null,null,"あなた","あいて","一致",null,{"$f":"H11*I11","v":0},10,null,{"$f":"REPT(\"●\",I11)","v":""}]
[null,1,1,1,{"$f":"((C12*2 - 1 ) *(D12*2 - 1) +1)/2","v":1},null,{"$f":"H12*I12","v":0},9,null,{"$f":"REPT(\"●\",I12)","v":""}]
[null,2,0,0,{"$f":"((C13*2 - 1 ) *(D13*2 - 1) +1)/2","v":1},null,32,8,4,"●●●●"]
[null,3,1,1,1,null,0,7,null,""]
[null,4,0,0,1,null,108,6,18,"●●●●●●●●●●●●●●●●●●"]
[null,5,1,0,0,null,0,5,null,""]
[null,6,0,0,1,null,104,4,26,"●●●●●●●●●●●●●●●●●●●●●●●●●●"]
[null,7,1,0,0,null,0,3,null,""]
[null,8,0,0,1,null,4,2,2,"●●"]
[null,9,1,1,1,null,0,1,null,""]
[null,10,0,0,1,null,0,0,null,""]
[null,null,null,null,null,null,{"$f":"SUM(G11:G21)","v":248}]
[null,"得点",null,null,{"$f":"SUM(E12:E21)","v":8},null,"  平均：",{"$f":"G22/J1","v":4.96}]
[]
[null,null,null,1]
[null,null,null,9]
[null,null,null,3]

{"sheet":"VBA_program","index":1,"n_rows":55,"n_cols":8,"rows_kept":55,"cut":false,"hidden":false,"merged":[]}
["これが，VBAで記述された，繰り返しを記述するマクロです。",null,null,5,6,7,8,9]
["マクロの実行が可能な設定ができれば，「マクロを編集する」で同じものを見ることができます。"]
["最初の，Combi() という手続き（Sub）を実行すると，1～ｎのｎ個の自然数から，ｋ個選んだ"]
["組み合わせを，Sheet1の４行目から書きだします。縦長の配列として，横にGn組を並べるように"]
["しました。"]
["このプログラムの場合，n=10, k=3，Gn=50に固定してもよいのですが，"]
["プログラムへデータをどう読み込ませるかの例題として，Sheet1の１行目の，A1,　C1，E1"]
["それぞれに，10，3，50　があらかじめ記されています。"]
[null,"Sub combi()"]
[null,"  n = Cells(1, 1)","A1からｎを読み込む"]
[null,"  k = Cells(1, 3)","C1からｋを"]
[null,"  Gn = Cells(1, 5)","E1からGnを読み込む。"]
[null,"  For i = 1 To Gn"]
[null,"    Cells(2, 5) = i"]
[null,"    Sw = 0"]
[null,"    Do While Sw = 0","組み合わせなので，選んだ３つの中で重複があれば"]
[null,"      For jx = 4 To k + 3","やり直す。Sw＝0とは，重複があることを示す条件。"]
[null,"         Cells(jx, i) = Int(Rnd() * 10) + 1"]
[null,"      Next jx"]
[null,"      Sw = 1"]
[null,"      For jx = 4 To k + 3"]
[null,"         For jy = 3 To jx - 1"]
[null,"            Sw = Sw * (Cells(jx, i) - Cells(jy, i))"]
[null,"         Next jy"]
[null,"      Next jx"]
[null,"    Loop"]
[null,"  Next i"]
[null,"End Sub"]
[]
[null,"Function trial(i)","これは，下の，mainという手続きで用いられる関数。"]
[null,"   For j = 12 To 21","既に作られた，50組の10までの自然数から３個選ぶ"]
[null,"      Cells(j, 4) = 0","組み合わせを読み取り，それが守り側が置いたカード"]
[null,"   Next j","の位置とみなし，各回の点数を答える。"]
[null,"   For j = 4 To 6"]
[null,"     X = Cells(j, i)"]
[null,"     Cells(21 + j, 4) = X"]
[null,"     Cells(11 + X, 4) = 1"]
[null,"   Next j"]
[null,"   trial = Cells(23, 5)"]
[null,"End Function"]
[]
[null,"Sub main()","50組の３個の自然数が既にある状態で，それを使って"]
[null,"  Cells(1, 10) = 0","50回の対戦をさせて，その得点のドットプロットを，"]
[null,"  For n = 1 To 50","H11:O21","あたりに出現させる。"]
[null,"      S = trial(n)","ただし，このプログラムは，"]
[null,"      Cells(1, 10) = n","I11:I21","へ件数を書き込むだけである。"]
[null,"      Cells(21 - S, 9) = Cells(21 - S, 9) + 1","「●」を並べることは，"]
[null,"  Next n","J11","の数式を","「=REPT(\"●\",I11)」",null,"として"]
[null,"End Sub","J21","まで，この数式をオートフィルしてある。"]
[null,null,"また，見出しとなる",null,"H10:H21","は最初から書き入れてある。"]
["右に解説を付け加えたように，ワークシート関数や，見出し",null,"さらに，","G11","の数式を","「=H11*I11」"]
["などは，あらかじめ書き入れて置き，マクロに記述しないと",null,"として，字の色を白とすることで，隠してある。"]
["ならない部分をなるべく少なくしている。",null,"これを，","G21","までオートフィルして合計点が計算される"]
["プログラムの負担（ただ打つだけではなく",null,"ようにしている。平均値を表示する，",null,null,null,"H23","の数式は"]
["ミスを直すのも手間が掛かる）を軽減するためである。",null,"「=G22/J1」",null,"となっている。"]

{"sheet":"ReadMe","index":2,"n_rows":38,"n_cols":16,"rows_kept":38,"cut":false,"hidden":false,"merged":[]}
[]
[null,"マクロの実行ができる設定の仕方については，「ヘルプ」"]
[null,"で、「マクロ」を検索してみてください。"]
[]
[null,"このファイルは，取扱説明書のこのシート「ReadMe」"]
[null,"と，実際に動作が行われる「Sheet1」。並びに，マクロとして組まれている"]
[null,"プログラムの説明「VBA_program」という３枚のシートから構成されています。"]
[]
[null,"Sheet1","で，[Ctrl]+c",null,"をおすと","50組の組み合わせが選び直されます。"]
[null,"標本調査でのランダムな選ばれ方を，変えることができます。",null,null,null,null,null,"（Sub Combiの実行）",null,null,null,null,"作戦A",null,null,"作戦B"]
[null,null,null,null,null,null,null,null,null,null,null,"Sheet1の","C11↓",null,null,"↓"]
[null,"Sheet1","の，","C12:C21","は，「作戦」に応じて，赤とする箇所を1，黒とする",null,null,null,null,null,null,null,"あなた",null,null,"あなた"]
[null,"箇所を0としてください。",null,null,null,"右に４つの作戦の例を記します。",null,null,null,null,null,1,1,null,1,1]
[null,null,null,null,null,null,null,null,null,null,null,2,1,null,2,0]
[null,"Sheet1","で，[Ctrl]+a ",null,"をおすと","既に表示されている50組の組み合わせ",null,null,null,null,null,3,1,null,3,0]
[null,"を用い，作戦に応じた点数のドットプロットを書きだします。",null,null,null,null,null,null,null,null,null,4,0,null,4,0]
[null,"ただし，実行まえに，",null,null,"I11:I21","のデータは消去しておいてください。",null,null,null,null,null,5,0,null,5,1]
[null,"50回の試行結果を書き足す形で動作するので，すでに50回分の結果が記されているなら",null,null,null,null,null,null,null,null,null,6,0,null,6,0]
[null,"100回分の結果が書かれてしまいます。",null,null,null,null,null,null,null,null,null,7,0,null,7,0]
[null,null,null,null,null,null,null,null,null,null,null,8,0,null,8,0]
[null,"Sheet1","では，同じ50組の組み合わせで，作戦を変えたときのドットプロット",null,null,null,null,null,null,null,null,9,0,null,9,1]
[null,"を書かせることができますし，逆に同じ作戦で，50組の組み合わせが変わったときの",null,null,null,null,null,null,null,null,null,10,0,null,10,0]
[null,"ものも書かせることができます。"]
[]
[null,null,"作戦Aの記入法",null,"作戦Bの記入法",null,"作戦Cの記入法",null,"作戦Dの記入法"]
[null,null,"作戦A",null,"作戦B",null,"作戦C",null,"作戦D",null,null,null,"作戦C",null,null,"作戦D"]
[null,null,null,null,null,null,null,null,null,null,null,null,"↓",null,null,"↓"]
[null,null,null,null,null,null,null,null,null,null,null,null,"あなた",null,null,"あなた"]
[null,null,null,null,null,null,null,null,null,null,null,1,1,null,1,1]
[null,null,null,null,null,null,null,null,null,null,null,2,1,null,2,0]
[null,null,null,null,null,null,null,null,null,null,null,3,1,null,3,1]
[null,null,null,null,null,null,null,null,null,null,null,4,1,null,4,0]
[null,null,null,null,null,null,null,null,null,null,null,5,1,null,5,1]
[null,null,null,null,null,null,null,null,null,null,null,6,0,null,6,0]
[null,null,null,null,null,null,null,null,null,null,null,7,0,null,7,1]
[null,null,null,null,null,null,null,null,null,null,null,8,0,null,8,0]
[null,null,null,null,null,null,null,null,null,null,null,9,0,null,9,1]
[null,null,null,null,null,null,null,null,null,null,null,10,0,null,10,0]