matr={{0,0,0},{0,1,0.5},{1,0,0.5},{1,1,1.5}};
pplane1=ListPlot3D[matr,PlotRange->{-0.5,3},PlotStyle->Opacity[0.0],Mesh->3,MeshStyle->Black,
Filling->-0.5,FillingStyle->Opacity[0.3],Axes->False,BoxRatios->{1,1,1.5},Boxed->False,ViewPoint->{1,-2,0.6}];

psphere0=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,0,0},0.1]}];
psphere1=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,1,0.5},0.1]}];
psphere2=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,0,0.5},0.1]}];
psphere12=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,1,1.5},0.1]}];

Show[pplane1,psphere0,psphere1,psphere2,psphere12,PlotRange->{{-0.2,1.2},{-0.2,1.2},{-0.7,1.6}},ImageSize->300]

matr={{0,0,0},{0,1,0.5},{1,0,0.5},{1,1,1.5}};
pplane1=ListPlot3D[matr,PlotRange->{-0.5,3},PlotStyle->Opacity[0.0],Mesh->3,MeshStyle->Black,
Filling->-0.5,FillingStyle->Opacity[0.3],Axes->False,BoxRatios->{1,1,1.5},Boxed->False,ViewPoint->{1,-2,0.6}];

matr={{0,0,0},{0,1,0.5},{1,0,0.5},{1,1,1.0}};
pplane2=ListPlot3D[matr,PlotRange->{-0.5,3},Mesh->0,PlotStyle->{Black,Glow[RGBColor[1,0.1,0.1]]}];

psphere0=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,0,0},0.1]}];
psphere1=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,1,0.5},0.1]}];
psphere2=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,0,0.5},0.1]}];
psphere12=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,1,1.5},0.1]}];
psphereguess=Graphics3D[{Red,Sphere[{1,1,1.0},0.1]}];

pline=Graphics3D[{Red,Thick,Arrow[{{1,1,1.0},{1,1,1.4}}]}];
Show[pplane1,pplane2,psphere0,psphere1,psphere2,psphere12,psphereguess,pline,PlotRange->{{-0.2,1.2},{-0.2,1.2},{-0.7,1.6}},ImageSize->300]

matr={{0,0,0},{0,1,0.5},{1,0,0.5},{1,1,1.5}};
pplane1=ListPlot3D[matr,PlotRange->{-0.5,3},PlotStyle->Opacity[0.0],Mesh->3,MeshStyle->Black,
Filling->-0.5,FillingStyle->Opacity[0.3],Axes->False,BoxRatios->{1,1,1.5},Boxed->False,ViewPoint->{1,-2,0.6}];

matr={{0,0,-0.5},{0,1,0.5},{1,0,0.5},{1,1,1.5}};
pplane2=ListPlot3D[matr,PlotRange->{-0.5,3},Mesh->0,PlotStyle->{Black,Glow[RGBColor[1,0.1,0.1]]}];

psphere0=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,0,0},0.1]}];
psphere1=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,1,0.5},0.1]}];
psphere2=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,0,0.5},0.1]}];
psphere12=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,1,1.5},0.1]}];
psphereguess=Graphics3D[{Red,Sphere[{0,0,-0.5},0.1]}];

pline=Graphics3D[{Red,Thick,Arrow[{{0,0,-0.5},{0,0,-0.1}}]}];
Show[pplane1,pplane2,psphere0,psphere1,psphere2,psphere12,psphereguess,pline,PlotRange->{{-0.2,1.2},{-0.2,1.2},{-0.7,1.6}},ImageSize->300]

matr={{0,0,0},{0,1,0.5},{1,0,0.5},{1,1,1.5}};
pplane1=ListPlot3D[matr,PlotRange->{-0.5,3},PlotStyle->Opacity[0.0],Mesh->3,MeshStyle->Black,
Filling->-0.5,FillingStyle->Opacity[0.3],Axes->False,BoxRatios->{1,1,1.5},Boxed->False,ViewPoint->{1,-2,0.6}];

matr={{0,0,0},{0,1,0.5},{1,0,1},{1,1,1.5}};
pplane2=ListPlot3D[matr,PlotRange->{-0.5,3},Mesh->0,PlotStyle->{Black,Glow[RGBColor[1,0.1,0.1]]}];

psphere0=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,0,0},0.1]}];
psphere1=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{0,1,0.5},0.1]}];
psphere2=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,0,0.5},0.1]}];
psphere12=Graphics3D[{RGBColor[0.2,0.2,0.2],Sphere[{1,1,1.5},0.1]}];
psphereguess=Graphics3D[{Red,Sphere[{1,0,1},0.1]}];

pline=Graphics3D[{Red,Thick,Arrow[{{1,0,1.0},{1,0,0.6}}]}];
Show[pplane1,pplane2,psphere0,psphere1,psphere2,psphere12,psphereguess,pline,PlotRange->{{-0.2,1.2},{-0.2,1.2},{-0.7,1.6}},ImageSize->300]

Export[StringJoin[path,"FinalFIGS/1b1.pdf"],,ImageResolution->600]
Export[StringJoin[path,"FinalFIGS/1b2.pdf"],,ImageResolution->600]
Export[StringJoin[path,"FinalFIGS/1b3.pdf"],,ImageResolution->600]
Export[StringJoin[path,"FinalFIGS/1b4.pdf"],,ImageResolution->600]