Xah Talk Show 2023-02-21 chatGPT, WolframLang Coding, Geometric Inversion 3D Spheres

geoInv = ((With[{x662 = #.#}, If[ x662 < 0.00000001, #, #/x662] ]) &);
xb = 5;
xr = 0.1;
xr2 = 0.1;
xcoord = CoordinateBoundsArray[ {{0,xb}, {0,xb}, {0,xb}} ];
gp = Map[ ((Sphere[#, xr]) &), xcoord, {-2}];
Graphics3D[ gp, Axes -> True ]
gp2 = ReplaceAll[ gp, Sphere[x_, r_] -> Sphere[ geoInv[x] , r * xr2] ];
Graphics3D[ gp2, Axes -> True ]