Цепь Маркова
>
restart;interface(displayprecision=4):
>
C:=Matrix([[0.7,0.2,0.1],[0.4,0.1,0.5],[0.5,0.1,0.4]]);
>
C^8;