This is what I have gotten to work:
drawSphereRadius = 1/8;
Graphics3D[
{
Inset[Plot[x^2, {x, -1, +1}]],
Sphere[{0, 0, 0}, drawSphereRadius],
Sphere[{1, 0, 0}, drawSphereRadius],
Sphere[{0, 1, 0}, drawSphereRadius]
}
]
But it results in the 2D plot facing the viewer dead on. That isn’t where I want the 2D plot; I want:
- the origin of the parabola coincident with the sphere at the 3D origin;
- the parabola to lie within the plane containing the three spheres;
- the line splitting the parabola should contain the spheres at 0,0,0 and 0,1,0.
I have no idea how to translate by verbal description into the correct parameters for Inset[]. I have looked at the Inset-function manual page and the inset tutorial, but still unable to do this. Thank you.