---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
 
# RunIf(N,S) generates N random elements from a generic collection S of elements
 
RunIf(15, c("A","B","C"))
# "C" "A" "A" "C" "C" "C" "B" "A" "B" "A" "C" "C" "B" "B" "A"
#
RunIf(15, 1:3)
# 3 2 1 2 1 3 1 1 2 1 2 3 2 3 1
#
PLANE(-1,1, -1,1)
traccia <- function(n) for(i in 1:n)
          { s = RunIf(1,c(-1,1)); x = runif(1,-1,1)
              line(x,0, 0,s*(sign(x)-x),  i)     }
           # l'ultima variabile - qui "i" - è il colore
traccia(1000)
              


Back