mwormleonhard

# -*- coding: utf-8 -*-
"""
Created on 2016-03-05
@author: Martin Worm-Leonhard

----------------------------------------------------------------------------
"THE BEER-WARE LICENSE" (Revision 42):
<mwormleonhard@gmail.com> wrote this file. As long as you retain this notice you
can do whatever you want with this stuff. If we meet some day, and you think
this stuff is worth it, you can buy me a beer in return.   Martin Worm-Leonhard

mwormleonhard

new.empty.grid <- function(size=1000) {
  return(matrix(data=0, nrow=size, ncol=size))
}

new.random.grid <- function(size=1000) {
  return(matrix(data=sample(c(0,1), size^2, replace=TRUE), nrow=size, ncol=size))
}

iterate <- function(inputmatrix) {
  nextgen <- inputmatrix

mwormleonhard

ln2i <-function(num_iters) {  ## Iterative version
  i <- 2
  s <- 1
  while (i < num_iters) {
    ifelse(i%%2==0, s <- s - 1/i, s <- s + 1/i)
    i <- i + 1
  }
  return(s)
}