Advertisement
Guest User

Untitled

a guest
Sep 23rd, 2014
166
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. Show[
  2. ParametricPlot[{x, t Sin[x]}, {x, -2 Pi, 2 Pi}, {t, 0, 1},
  3. MeshFunctions -> {Sin[#1] &}, Mesh -> {Range[-2, 2]/3},
  4. MeshShading -> {{Opacity[0.4], Blue}, {Opacity[0.4], Orange}}],
  5. Plot[Sin[x], {x, -2 Pi, 2 Pi},
  6. MeshFunctions -> {Sin[#1] &}, Mesh -> {Range[-2, 2]/3},
  7. MeshShading -> {Blue, Orange}],
  8. Plot[Sign[Sin[x]] Ceiling[Abs[Sin[x]], 1/3], {x, -2 Pi, 2 Pi},
  9. PlotStyle -> Red],
  10. AspectRatio -> 1/GoldenRatio, Frame -> False
  11. ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement