rsphere function

Random vectors on a sphere