NB. Probability on sucesive victories NB. JAPALA Oct.2010 NB. written by SUZUKI Giichiro bic=:(i.@>:!])"0@i.@>: first=:>:@{. {."1 bic@{: second=:#@|:({.;}.)[:}."1],.0: new=:[:+/[:(<0 1)&|:-@#@|:{.] change=:(>@{.,}:@{.@>@{:,new@>@{.);}.@>@{: slide=:3 :'>{.change^:(-/$y)second y' line=:4 :'{."1(slide^:x)first y' coef=:[:|:i.@>:@{:line"0 1] NB. prob=:4 :'(x^h)*(1-x)^|.h=.i.>:y' probr=:4 :'+/"1(coef y)*x prob"0 i.>:{:y' probrl=:[:{:probr NB. add dec_2010 prob_ap=:4 :0 q=.1,(x-1)*x^i.r=.>:{.y s=.(]-q&p.%q&p.D.1)^:50(1) (1-x*s)%((1-x)*1+r-r*s)*s^>:{:y ) root=:4:'(]-q&p.%(q=.x pol y)&p.D.1)^:50(1)' q=:0.6(pol=:4 :'1,(x-1)*x^i.>:y')3