分からない問題はここに書いてね457

分からない問題はここ ..

142:１３２人目の素数さん
19/12/31 14:35:17.43 xaU91arB.net
９人３部屋で同室になる確率の高い順
> cbind(t(person[,rev(order(p))]),rev(sort(p)))
[,1] [,2] [,3]
[1,] 8 9 0.5169753086
[2,] 7 9 0.3371913580
[3,] 7 8 0.3371913580
[4,] 1 3 0.3333333333
[5,] 1 2 0.3333333333
[6,] 2 3 0.3333333333
[7,] 1 4 0.2962962963
[8,] 2 4 0.2962962963
[9,] 3 4 0.2962962963
[10,] 5 6 0.2901234568
[11,] 4 5 0.2777777778
[12,] 6 7 0.2772633745
[13,] 3 5 0.2592592593
[14,] 1 5 0.2592592593
[15,] 2 5 0.2592592593
[16,] 4 6 0.2530864198
[17,] 5 7 0.2402263374
[18,] 6 9 0.2379115226
[19,] 6 8 0.2379115226
[20,] 2 6 0.2345679012
[21,] 1 6 0.2345679012
[22,] 3 6 0.2345679012
[23,] 4 7 0.2124485597
[24,] 5 9 0.2070473251
[25,] 5 8 0.2070473251
[26,] 2 7 0.1985596708
[27,] 3 7 0.1985596708
[28,] 1 7 0.1985596708
[29,] 4 9 0.1838991770
[30,] 4 8 0.1838991770
[31,] 1 9 0.1723251029
[32,] 1 8 0.1723251029
[33,] 3 9 0.1723251029
[34,] 3 8 0.1723251029
[35,] 2 9 0.1723251029
[36,] 2 8 0.1723251029
>

次ページ

続きを表示

1を表示