现在我遇到如下的一个问题：
      知道点的密度（假设点在平面上的密度恒定）为D。现在给定一个矩形面积A = a*b，a和b为矩形的边长。现在投点在矩形上。在R中，我使用了
D <- 1.5
a <- 7.5
b <- 3
A <- a*b
n <- round(A*D, 0)

x <- runif(n, -a/2, a/2)
y <- runif(n, -b/2, b/2)

现在遇到一个头疼的问题是，如果多次取点，在矩形面积中的点数其实是34，而理论上33.75，也就是说实际上取点多了0.25每次。如何才能使投点和实际密度一致呢？

谢谢！