Markow-Ketten, mathematische Prozesse

Prof. Dr. Dörte Haftendorn Juli 2014   www.mathematik-verstehen.de
Erklärungen weitere Links und  Impressum in der Webversion unten.

http://haftendorn.uni-lueneburg.de/mathe-lehramt/stochastik/markow/markowkette.htm
http://www.leuphana.de/matheomnibus/themen/optimum/markowkette.htm
http://www.leuphana.de/masuv/10stochastik/markowkette.htm

Manipulate[A={zv1,zv2,zv3}/100;

If[Total[zv1]==100 && Total[zv2]==100 && Total[zv3]==100 ,{(A//MatrixForm  )}~Join~({A//MatrixForm,A.A//MatrixForm,A.A.A//MatrixForm,Nest[(A.#)&,A,3]//MatrixForm,Nest[(A.#)&,A,9]//MatrixForm,Nest[(A.#)&,A,49]//MatrixForm}//N),"Die Zeilensummen stimmen nicht"],
Style["Trage die Übergangswahrscheinlichkeiten  von Zustand i zu den Zuständen Z1, Z2, Z3 in Prozent ein.",12],
Style["In jeder Liste muss die Summe 100 sein.",12],
{{zv1,{20,50,30},Style["Von Zustand1 nach Z1, Z2, Z3",12,Bold]}},
{{zv2,{30,50,20},Style["Von Zustand2 nach Z1, Z2, Z3",12,Bold]}},
{{zv3,{10,20,70},Style["Von Zustand3 nach Z1, Z2, Z3",12,Bold]}},
Style["Ausgegeben ist die Übergangsmatrix in Bruch- und Dezimaldarstellung, gefolgt von ihren 2., 3., 4. 10. und 50. Potenzen",14,Bold],
Style["Achtung, Zustandsvektoren müssen hier als Zeilenvektoren von links multipliziert werden."
,10],(*
Style["In manchen Schulbüchern sind die Spaltensummen 1."
,10],*)
FrameLabel->{{None,"Info\nunten"},{"www.mathematik-verstehen.de","Markow-Ketten"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]