Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- y = 5
- n = 0
- While[n < y, Print[n]; n = n + 0.5]
- While[n < y,
- Show[Graphics3D[{PointSize[0.1],
- Point[{n, 0, 0}, VertexColors -> {Green}]}]]; n++]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement