# MATA280 Tietokoneharjoitus
# Lasse Leskelä 2013-11-17
# Simuloidaan rulettipelin yksittäinen otospolku ja lasketaan
# sen pohjalta Valtterin pelikassa ajan funktiona.

n <- 300; # Pelikierrosten lkm
omega <- sample(0:36, n, replace=TRUE); # Rulettipelin otos
V0 <- 300; # Alkupääoma


V <- numeric(n); # Luodaan n-ulotteinen nollavektori.
V_after  <- V0; # V_after on kassan arvo t:n kierroksen jälkeen (alussa t=0)

for (t in 1:n) {
  V_before <- V_after # V_before on kassan arvo t:nnen kierroksen alussa

  if ((omega[t] >= 1) & (omega[t] <= 18)) {
    V_after <- V_before + 1
  } else {
    V_after <- V_before - 1
  }
  V[t] <- V_after
}

plot(V, type="l", main='Valtterin pelikassa', xlab='aika');