猜中下次的策略

ataorj

不是时刻绝对均匀,否则就不是概率论了.现实中均匀是个比较明显的趋势,差异会被'磨平',一件事情的'客观'概率是'固定'的,开始概率低时,后面'应该'会高些,这就是前面策略的逻辑,这样可以增加预测的准确度.
其实,随机的本意就是不集中,就是分散,只有均匀才是真正的不集中,这就是'均衡性'的源头,趋向,这里这种推理象是文字游戏一般.

ataorj

前期概率低时,后期会高些才能体现出数学提供的概率,这就是围绕数学提供的概率而摆动

ataorj

也许实际概率,理论概率,样本大小,这三者间关系搞明白了,才可能全面明白准确度问题,本主题才有最终结论.

ataorj

猜"1,2,3"之一
3种策略:
均衡:已经发生事件中的最低频次的作为下次的投注,最低频次相同的视为同一,比如2,3频次相同时,下次无论出2出3都算一次猜中
随机:解释略
追号:这里永远投注"1"
--------------
Structure ss
s1.l
s2.l
EndStructure
Dim a.ss(2)
Debug "各策略百次命中数:均衡/随机/追号"
For b=0 To 89:t=0:tt=Random(3,1):tv=Random(3,1):ts=0:tz=0
For a=0 To 99
d=Random(3,1)
If tt=d Or t1=d:t+1:EndIf:If tv=d:ts+1:EndIf:If d=1:tz+1:EndIf
a(0)\s1=1:a(1)\s1=2:a(2)\s1=3
If d=1:a1+1:ElseIf d=2:a2+1:Else:a3+1:EndIf
a(0)\s2=a1:a(1)\s2=a2:a(2)\s2=a3
SortStructuredArray(a(),#PB_Sort_Ascending,OffsetOf(ss\s2), #PB_Long)
If a(0)\s2>0:tt=a(0)\s1:ElseIf a(1)\s2>0:tt=a(1)\s1:Else:tt=a(2)\s1:EndIf
If tt=1 Or tt=2:If a(tt-1)\s2=a(tt)\s2:t1=a(tt)\s1:Else:t1=0:EndIf:Else:t1=0:EndIf
tv=Random(3,1)
Next
Debug Str(t)+"/"+Str(ts)+"/"+Str(tz)
m.f+t
n.f+ts
k.f+tz
Next
Debug "各策略平均命中数:"
Debug m/90
Debug n/90
Debug k/90
------
各策略百次命中数:均衡/随机/追号
34/30/33
25/28/32
26/22/29
32/39/37
38/33/26
......
32/34/32
35/29/34
21/35/22
各策略平均命中数:
33.277777777777779
33.755555555555553
32.633333333333333
--------
它们没有什么差别
前文曾经说均衡策略可能没能体现出偏斜,其实是体现了的,只要'1','2','3'频次不同就都是偏斜事件,那么为何没体现出优势呢?

ataorj

这是个探究的主题,还没能定论.要吻合'现实',观点可能反复,各位若有自己的看法,不妨澄清本主题.我如上已经做了足够的探索,正在酝酿上帖之问的答案,如果有错误,错在哪里,等等.其实,也略有头绪,暂不公布.如果无人有令我满意的答案,可能我就以悬疑放置而'不管'本主题了.
'烂尾'?'残局'?'残棋'?...

ataorj

其实,"最低频次相同的视为同一,比如2,3频次相同时,下次无论出2出3都算一次猜中"这扩大了均衡策略,不公平,如果最低频次相同时返回重新上次事件则结果其实却是,不允许出现最低频次相同情形,均衡策略吃亏了
均衡策略取消上面那句规则即可.这时各策略是机遇相同的
再次更正:
-------
均衡策略和原程序本身都有错误,更正2:
--------
Structure ss
s1.l
s2.l
EndStructure
Dim a.ss(2)
Debug "各策略百次下命中数:均衡/随机/追号"
For b=0 To 89:t=0:ts=0:tz=0:a1=0:a2=0:a3=0:d=Random(3,1)
If d=1:a1+1:ElseIf d=2:a2+1:Else:a3+1:EndIf
dd=Random(3,1):If dd<>d:tt=dd:ElseIf d<>2:tt=4-d
ElseIf Random(1)=1:tt=3:Else:tt=1:EndIf
For a=0 To 99:tv=Random(3,1):d=Random(3,1)
  If tt=d:t+1:EndIf:If tv=d:ts+1:EndIf
  If d=1:tz+1:a1+1:ElseIf d=2:a2+1:Else:a3+1:EndIf
  a(0)\s2=a1:a(1)\s2=a2:a(2)\s2=a3;其实tz=a1 or tz=a1-1
  a(0)\s1=1:a(1)\s1=2:a(2)\s1=3
  SortStructuredArray(a(),#PB_Sort_Ascending,OffsetOf(ss\s2), #PB_Long)
tt=a(0)\s1:Next
Debug Str(t)+"/"+Str(ts)+"/"+Str(tz)
m.f+t:n.f+ts:k.f+tz:Next
Debug "各策略平均命中数:"
Debug m/90ebug n/90ebug k/90
------
各策略百次下命中数:均衡/随机/追号
31/38/32
27/42/37
...
36/41/36
30/39/29
各策略平均命中数:
33.477777777777774
33.12222222222222
33.577777777777776

ataorj

改为: D就应该正确显示了