小中学校範囲の算数・数学の問題のスレ　Part 61

>>165

mathematicaです。下で138の結果が出せます。

M=Table[If[i==j,i,If[i==j-1,20-i,0]],{j,1,20},{i,1,20}]
u=Table[If[i==1,1,0],{i,1,20}]
x=Table[If[i==19,1,0],{i,1,20}]
MatrixPower[M,n-2].u.x/20^(n-1)/.{{n->60},{n->59}}