Thank you S M Blinder; however now I'm working with three dimensional functions and trying to find the the exact intersections how would I do that
This is the graph of the wave equations i want to find the intersections of
Manipulate[SphericalPlot3D[{(1/(8Sqrt[Pi])(1/a0)^(3/2)(r/a0)Exp[-r /(2 a0)]Sin[[Theta]]Cos[[Phi]])^2,(1/(Sqrt[81Pi])(1/a0)^(3/2)(6-(r/a0))(r/a0)Exp[-r /(3a0)]Sin[[Theta]]Cos[[Phi]])^2,(1/(4Sqrt[2Pi])(1/a0)^(3/2)(r/a0)Exp[-r /(2 a0)]Cos[[Theta]])^2},{[Theta],0,2Pi},{[Phi],0,2Pi}],{r,0.001,1}]
a0=1
Sincerely, Zachary Nichols