Markov Chain [Maple 15]
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYxLUkjbWlHRiQ2J1EocmVzdGFydEYnLyUnZmFtaWx5R1ErTW9ub3NwYWNlZEYnLyUlc2l6ZUdRIzE0RicvJSdpdGFsaWNHUSZmYWxzZUYnLyUsbWF0aHZhcmlhbnRHUSdub3JtYWxGJy1JI21vR0YkNi9RIjtGJ0YvRjJGOC8lJmZlbmNlR0Y3LyUqc2VwYXJhdG9yR1EldHJ1ZUYnLyUpc3RyZXRjaHlHRjcvJSpzeW1tZXRyaWNHRjcvJShsYXJnZW9wR0Y3LyUubW92YWJsZWxpbWl0c0dGNy8lJ2FjY2VudEdGNy8lJ2xzcGFjZUdRJjAuMGVtRicvJSdyc3BhY2VHUSwwLjI3Nzc3NzhlbUYnLUY8Ni9RIn5GJ0YvRjJGOEY/L0ZCRjdGREZGRkhGSkZMRk4vRlJGUC1GLDYnUSdEaWdpdHNGJ0YvRjJGNUY4LUY8Ni9RKiZjb2xvbmVxO0YnRi9GMkY4Rj9GV0ZERkZGSEZKRkwvRk9GU0ZRLUkjbW5HRiQ2JlEiNUYnRi9GMkY4RjstSSdtc3BhY2VHRiQ2Ji8lJ2hlaWdodEdRJjAuMGV4RicvJSZ3aWR0aEdGUC8lJmRlcHRoR0Zjby8lKmxpbmVicmVha0dRKG5ld2xpbmVGJy1GX282JkZhb0Zkb0Zmby9GaW9RJWF1dG9GJy1GLDYnUSV3aXRoRidGL0YyRjVGOC1JKG1mZW5jZWRHRiQ2Ji1GIzYjLUYsNidRLkxpbmVhckFsZ2VicmFGJ0YvRjJGNUY4Ri9GMkY4LUY8Ni1RIjpGJ0Y4Rj9GV0ZERkZGSEZKRkxGaW5GUUZeb0ZbcC1GLDYjUSFGJw==
Compute A^k using MatrixPower(A,k);
A:=<<0.7, 0.1, 0.2; 0.2, 0.4, 0.2; 0.1, 0.5, 0.6>>;
v := <1/3, 1/3, 1/3>;
A1v:=Multiply(MatrixPower(A,1),v);
QyQ+SSRBMnZHNiItSSlNdWx0aXBseUc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJTYkLUksTWF0cml4UG93ZXJHRiU2JEkiQUdGJSIiI0kidkdGJSIiIg==
A5v := Multiply(MatrixPower(A, 5), v);
QyQ+SSNBMkc2Ii1JLE1hdHJpeFBvd2VyR0YlNiRJIkFHRiUiIiMiIiI=
QyQ+SSRBMTBHNiItSSxNYXRyaXhQb3dlckdGJTYkSSJBR0YlIiM1IiIi
Automate this a bit: Q=A^{2k}v, k=1,...,5
QyY+SSJCRzYiLUksTWF0cml4UG93ZXJHRiU2JEkiQUdGJSIiIyEiIj8oSSJrR0YlIiIiRi4iIiZJJXRydWVHJSpwcm90ZWN0ZWRHQyY+SSJuR0YlLCRGLUYqPkkiUUdGJS1JKU11bHRpcGx5RzYkRjFJKF9zeXNsaWJHRiU2JC1GJzYkRiRGLUkidkdGJS1JJnByaW50R0YxNiNGNC1GQTYjRjdGKw==
JSFH