Advertisement
Guest User

Untitled

a guest
Dec 3rd, 2016
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. sol = Sort@
  2. DeleteDuplicates@
  3. Cases[Table[
  4. Reduce[Floor[2 Cos[x]] == i && 0 < x < 2 Pi, x], {i, -2, 2}],
  5. _Times, Infinity]
  6.  
  7. Plot[Floor[2 Cos[x]], {x, 0, 2 Pi}, Mesh -> {Range[-2, 2]},
  8. MeshFunctions -> {#2 &}, MeshStyle -> Directive[Red, PointSize[.02]],
  9. Ticks -> {ticks, Automatic}, Filling -> Axis]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement