I am working with a list of points on the plane, to each of them a natural number is assigned. It will be responsinble for the points' colors.
1) My first question is very easy: at initial moment I create list of random points and assign number 1 to all of them. I am doing this, probably, too ugly:
listOfPoints = RandomReal[{0,10}, {1000, 2}];
listOfPoints = Map[Append[#, 1] &, listOfPoints];
ListPlot[Map[Take[#, 2] &, listOfPoints]]
(Here colors still does not play.) Does exist a more elegant way?
2) And after I make some manipulations with some elements of the list, each manipulation will increase the number assigned to the element, i.e. its last coordinate. And then I would like to produce ListPlot in such a way that the color of a point {x,y,n} from the list will be, say,
Blend[{{Blue}, {Red}}, 1/n]
How do realize this?