Advertisement
Guest User

Untitled

a guest
Jul 31st, 2014
204
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. ListPlot[Table[n^(1/p), {p, 4}, {n, 10}],
  2. Joined -> True,
  3. PlotMarkers -> {{"[FilledSquare]", 10.9`}, None,
  4. None, {"[EmptyCircle]", 9}}]
  5.  
  6. ListPlot[Table[n^(1/p), {p, 4}, {n, 10}],
  7. Joined -> True,
  8. PlotMarkers -> {{Graphics[{EdgeForm[Directive[ColoursGoHere,Thick, Thick]], White,
  9. Disk[{0, 0}, 1]}], 0.05}}]
  10.  
  11. ListPlot[Table[n^(1/p), {p, 4}, {n, 10}], Joined -> True, PlotMarkers :>
  12. {{Graphics[{Dynamic@EdgeForm[{CurrentValue["Color"], Thick}],
  13. FaceForm[White], Disk[{0, 0}, 1]}], 0.05}}
  14. ]
  15.  
  16. ListPlot[Table[n^(1/p), {p, 4}, {n, 10}],
  17. Joined -> True, PlotMarkers -> None]
  18.  
  19. ListLinePlot[Table[n^(1/p), {p, 4}, {n, 10}],
  20. PlotMarkers -> {Graphics[{{White, Disk[]}, {Thick, Circle[]}}], 0.05}
  21. ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement