load (draw)$
M : matrix (
    [0.95, 0.05],
    [0.05, 0.95]
    )$
/* Anzahl der Bilder */
n : 45$
X : matrix ([x], [y])$
my_gnuplot_preamble : [
    "set yrange [0:8]",
    "set xrange [0:8]"
    ]$
for i : 1 while i < n do
  block ([],
    bild[i] : gr2d (
      title = concat ("potenz = ", string(i)),
      transform = [
            (M^^i . X)[1][1],
            (M^^i . X)[2][1],
            x, y
            ],
      triangle ( [3,2], [7,2], [5,5] )
    )
  )$
bilder : [bild[1]]$
for i : 2 while i < n do
  bilder : append (bilder, [bild[i]])$
set_draw_defaults(
    user_preamble = my_gnuplot_preamble,
    yrange = [0, 8],
    xrange = [0, 8],
    border = false
    )$
draw (
    delay = 80,
    pic_width  = 300,
    pic_height = 300,
    file_name = "stochastischerUebergang",
    terminal = 'animated_gif,
    bilder
    )$