p1:=plot::Circle3d(sqrt(6),[1,1,1],[1,1,1])

p2:=plot::Circle3d(sqrt(6),[1,-1,-1],[1,-1,-1])

p3:=plot::Circle3d(sqrt(6),[-1,1,-1],[-1,1,-1])

p4:=plot::Circle3d(sqrt(6),[-1,-1,1],[-1,-1,1])

p5:=plot::Spherical([3,u,v],u=0..2*PI,v=0..PI,Color=[0,1,0])

plot(p1,p2,p3,p4,p5,Axes=None)