一 > choose(10,2)/choose(16,2) [1] 0.375 a=c(1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0) val = 0 cnt = 1 while (cnt <= 100000) { x = sample(16, 2) y = a[x] if(y[1] + y[2] == 2) { val = val + 1 } cnt = cnt + 1 } print(val / cnt) 二 x=c(0,1) plot(x, x, type='o') abline(v = 0) abline(v = 1) abline(h = 0) a...
