adjustment and sphere

add sphere(n,p)