loigupikkus=100
jargmineX <- function(nurk, x){
  return(x+cos(nurk)*loigupikkus)
}
jargmineY <- function(nurk, y){
  return(y+sin(nurk)*loigupikkus)
}

jargmine(3.1416, 0)

Reduce(f=jargmineX, init = 0, accumulate = TRUE, x=c(3, 3))

Reduce(f = "+", x = 1:6, accumulate = TRUE)

http://www.tlu.ee/~jaagup/
  õppetöö -> veebiühendus aadressil