#vordip4 restart:with(LinearAlgebra):U:=Matrix([ [0, 0.1, 0.4, 0.3, 0.2], [0.7,0,0,0,0.3], [1,0,0,0,0],[1,0,0,0,0],[0,0,0,0,1] ]);

NiM+SSJVRzYiLUknUlRBQkxFR0YlNiUiKCFbeDYtSSdNQVRSSVhHRiU2IzcnNyciIiEkIiIiISIiJCIiJUYyJCIiJEYyJCIiI0YyNyckIiIoRjJGL0YvRi9GNTcnRjFGL0YvRi9GL0Y8NydGL0YvRi9GL0YxSSdNYXRyaXhHNiRJKnByb3RlY3RlZEdGQEkoX3N5c2xpYkdGJQ==

x[0]:=<1,0,0,0,0>; for j from 0 by 1 while j<100 do x[j+1]:=MatrixVectorMultiply(U,x[j]); end do:

NiM+JkkieEc2IjYjIiIhLUknUlRBQkxFR0YmNiUiKTNUOEItSSdNQVRSSVhHRiY2IzcnNyMiIiI3I0YoRjNGM0YzJkknVmVjdG9yRzYkSSpwcm90ZWN0ZWRHRjdJKF9zeXNsaWJHRiY2I0knY29sdW1uR0Ym

p[1]:=[[ k, x[k][1]] $k=0..20]: p[2]:=[[ k, x[k][2]] $k=0..20]: p[3]:=[[ k, x[k][3]] $k=0..20]: p[4]:=[[ k, x[k][4]] $k=0..20]: p[5]:=[[ k, x[k][5]] $k=0..20]:plot( [ p[m] $m=1..5] , n=0..20, y=0..1) ;

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2KDc3NyQkIiIhRiskIiIiRis3JEYsRio3JCQiIiNGKyQiMzsrKysrKysreCEjPTckJCIiJEYrRio3JCQiIiVGKyQiMyMpKioqKioqKioqKioqR2ZGNDckJCIiJkYrRio3JCQiIidGKyQiM20qKioqKioqKipIYGMlRjQ3JCQiIihGK0YqNyQkIiIpRiskIjNnKioqKioqKjQvYF4kRjQ3JCQiIipGK0YqNyQkIiM1RiskIjNfKioqKipwOiV5MUZGNDckJCIjNkYrRio3JCQiIzdGKyQiMyMqKioqKikzIVFBJTMjRjQ3JCQiIzhGK0YqNyQkIiM5RiskIjMoKSpIJm9FQiZbZyJGNDckJCIjOkYrRio3JCQiIztGKyQiMyM0b1o6SE9kQiJGNDckJCIjPEYrRio3JCQiIz1GKyQiMzdWciJcV3BeXiohIz43JCQiIz5GK0YqNyQkIiM/RiskIjMvK2llcy9vRXRGX3A3NzckRipGKjckRiwkIjNhKioqKioqKioqKioqKipwRjQ3JEYwRio3JEY2JCIzQSoqKioqKioqKioqKipRJkY0NyRGOUYqNyRGPiQiM2EqKioqKioqKioqSF1URjQ3JEZBRio3JEZGJCIzVyoqKioqKioqNHQmPiRGNDckRklGKjckRk4kIjNXKioqKioqcEdyZ0NGNDckRlFGKjckRlYkIjNdKioqKiopNCpbWio9RjQ3JEZZRio3JEZobiQiM3kqKkhpZ20mKmU5RjQ3JEZbb0YqNyRGYG8kIjMhKTQoeidHbVJCNkY0NyRGY29GKjckRmhvJCIzc2xQJDMvYSxsKUZfcDckRltwRio3JEZhcCQiMyMqKio+VzYnPTFtJ0ZfcDckRmRwRio3N0ZpcDckRixGLEZdcTckRjZGMkZhcTckRj5GO0ZlcTckRkZGQ0ZpcTckRk5GS0ZdcjckRlZGU0ZhcjckRmhuRmVuRmVyNyRGYG9GXW9GaXI3JEZob0Zlb0ZdczckRmFwRl1wRmFzRmJzNzdGaXBGLkZdcUY1RmFxRj1GZXFGRUZpcUZNRl1yRlVGYXJGZ25GZXJGX29GaXJGZ29GXXNGYHBGYXMtJSZDT0xPUkc2MiUkUkdCRyRGUiEiIiRGK0ZjdEZkdEZkdEZidEZkdEZidEZidEZkdEZkdEZkdEZidEZidEZkdEZidC0lK0FYRVNMQUJFTFNHNiRRIm42IlEieUZpdC0lJUZPTlRHNiQlKkhFTFZFVElDQUdGUi0lJVZJRVdHNiQ7RmR0RmRwO0ZkdEZidA==

x[20][1]; x[20][2]; x[20][3]; x[20][4]; x[20][5]; Abbruch_vor_20_Schritten:=1-x[20][1];

NiMkIjMvK2llcy9vRXQhIz4=NiMkIiIhRiQ=NiMkIiIhRiQ=NiMkIiIhRiQ=NiMkIiIhRiQ=NiM+STlBYmJydWNoX3Zvcl8yMF9TY2hyaXR0ZW5HNiIkIitgPkxuIyohIzU=

TTdSMApJNFJUQUJMRV9TQVZFLzExNzc0ODBYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiISQiIighIiIiIiJGK0YnJEYrRipGJ0YnCkYnRickIiIlRipGJ0YnRidGJyQiIiRGKkYnRidGJ0YnJCIiI0YqRi9GJ0YnRitGJgo=TTdSMApJNVJUQUJMRV9TQVZFLzIzMTM0MTA4WColKWFueXRoaW5nRzYiNiJbZ2whIyUhISEiJiImIiIiIiIhRihGKEYoRiYK