# MATA271 Tietokoneharjoitus 1
# Lasse Leskelä 2011-10-02
# Simuloidaan Billin pelikassan yksittäinen otospolku.

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

V <- numeric(n+1); # Luodaan n+1 alkion nollavektori.
V[1] <- V0;        # V[t] on Billin pääoma ennen t:nnettä kierrosta.
for (t in 1:n) {
  if ((omega[t] >= 1) & (omega[t] <= 18)) {
    V[t+1] <- V[t] + 1;
  } else {
    V[t+1] <- V[t] - 1;
  }
}

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