Die Funktion GetADigit liefert immer 100 Zeichen aus {A,B,C,D,E} gemaess der Verteilung {0.9,0.06,0.015,0.015,0.01}. Die Funktion MyEncoding ist eine Variante der Komprimierung, bei der 5A als 0, 4A als 10, 3A als 110, 2A als 11100, A als 111010, B als 111011, C als 11110,D als 111110 und E als 111111 codiert werden.

<<  comprimierungssimulation.m

result  =  MyEncoding []

rate  =  Length [result]/100.