source("http://macosa.dima.unige.it/r.R")
#
m = c(-3, -2, -1, 1, 2, 3); i = RUNIF(1, 1,6); a = m[i]
h1 = c(-3,-2, -1, 1, 2, 3); i = RUNIF(1, 1,6); h = h1[i]
k1 = c(-5,-4,-3,-2,-1,1,2,3,4,5); i = RUNIF(1, 1,10); k = k1[i]
f = function(x) a/(x-h)+k
BF=3; HF=3
Plane(-5,5, -10,10); gridh(1:10);  gridh(-1:-10)
graph(f,-5,5, "brown")