This question was asked before (here), but I couldn't get the answers to work. I have a list of values
List1=Table[{theta,phi,f1[theta,phi]},{theta,0,Pi,Pi/10},{phi,0,2Pi,2Pi/10}]
List2=Table[{theta,phi,f2[theta,phi]},{theta,0,Pi,Pi/10},{phi,0,2Pi,2Pi/10}]
f=Table[{List1[[i,j,1]],List1[[i,j,2]],List1[[i,j,3]]^2+List2[[i,j,3]]^2},{i,1,Length[List1]},{j,1,Length[List1[[1]]]}]
Sample functions for f1 and f2:
f1[theta,phi]=Sin[3 theta]Cos[phi];
f2[theta,phi]=Cos[theta] Sin[phi];
How do I get SphericalPlot3D of f from this list? Any help would be appreciated. TIA!
f1
andf2
? $\endgroup$ – Bob Hanlon Feb 22 at 15:48