Kugel einpacken

r=10;p[0]=ParametricPlot3D[r{Cos[α] Sin[β],Sin[α] Sin[β],Cos[β]},{α,0,2Pi},{β,0,Pi}]

p[1]=ParametricPlot3D[r{x,-1,z},{x,-Tan[Pi/8],Tan[Pi/8]},{z,-Tan[Pi/8],Tan[Pi/8]}]

p[7]=ParametricPlot3D[r{x,1-x,z},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}]

r=10;p[0]=ParametricPlot3D[r{Cos[α] Sin[β],Sin[α] Sin[β],Cos[β]},{α,0,2Pi},{β,0,Pi}];
p[1]=ParametricPlot3D[r{x,-1,z},{x,-Tan[Pi/8],Tan[Pi/8]},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[2]=ParametricPlot3D[r{x,1,z},{x,-Tan[Pi/8],Tan[Pi/8]},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[3]=ParametricPlot3D[r{-1,y,z},{y,-Tan[Pi/8],Tan[Pi/8]},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[4]=ParametricPlot3D[r{1,y,z},{y,-Tan[Pi/8],Tan[Pi/8]},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[5]=ParametricPlot3D[r{x,y,-1},{x,-Tan[Pi/8],Tan[Pi/8]},{y,-Tan[Pi/8],Tan[Pi/8]}];
p[6]=ParametricPlot3D[r{x,y,1},{x,-Tan[Pi/8],Tan[Pi/8]},{y,-Tan[Pi/8],Tan[Pi/8]}];
p[7]=ParametricPlot3D[r{x,1+Tan[Pi/8]-x,z},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[8]=ParametricPlot3D[r{1+Tan[Pi/8]-x,-x,z},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[9]=ParametricPlot3D[r{-x,-1-Tan[Pi/8]+x,z},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[10]=ParametricPlot3D[r{-1-Tan[Pi/8]+x,x,z},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];


p[11]=ParametricPlot3D[r{z,x,1+Tan[Pi/8]-x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[12]=ParametricPlot3D[r{z,1+Tan[Pi/8]-x,-x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[13]=ParametricPlot3D[r{z,-x,-1-Tan[Pi/8]+x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[14]=ParametricPlot3D[r{z,-1-Tan[Pi/8]+x,x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];

p[15]=ParametricPlot3D[r{x,z,1+Tan[Pi/8]-x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[16]=ParametricPlot3D[r{1+Tan[Pi/8]-x,z,-x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[17]=ParametricPlot3D[r{-x,z,-1-Tan[Pi/8]+x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];
p[18]=ParametricPlot3D[r{-1-Tan[Pi/8]+x,z,x},{x,Tan[Pi/8],1},{z,-Tan[Pi/8],Tan[Pi/8]}];

e=6;
Show[Table[p[k],{k,0,e}]]

e=10;
Show[Table[p[k],{k,0,e}]]

e=18;
Show[Table[p[k],{k,0,e}]]