How can I fill the blue space between two curves, for example $\sin$ and $\cos$, with random points? What if they are two BezierCurves instead of functions?
Asked
Active
Viewed 297 times
5
J. M.'s missing motivation
- 124,525
- 11
- 401
- 574
baumannr
- 787
- 3
- 10
1 Answers
5
Here is a solution equivalent to the one posted in the comments:
With[{n = 1*^4},
Graphics[{Directive[Blue, AbsolutePointSize[1]],
Point[RandomPoint[ImplicitRegion[Between[y, {{Cos[x], Sin[x]},
{Sin[x], Cos[x]}}],
{{x, 0, 2 π}, {y, -1, 1}}], n]]},
Frame -> True]]

(Note that this throws a redundant RandomPoint::unbndreg message, even tho bounds have been explicitly specified in ImplicitRegion[]. You can ignore it here.)
J. M.'s missing motivation
- 124,525
- 11
- 401
- 574

Graphics[Point[RandomPoint[ImplicitRegion[Cos[x] <= y <= Sin[x] || Sin[x] <= y <= Cos[x], {{x, 0, 2 π}, {y, -1, 1}}], 1*^4]]]. – J. M.'s missing motivation Apr 18 '17 at 17:28