SetDirectory["~/Dropbox/jakies-rzeczy-moje/Biblioteczka/SL2R/"];
rising={(1/(Sqrt[2])),0,(1/(Sqrt[2]))};
lowering={(1/(Sqrt[2])),0,-(1/(Sqrt[2]))};
number={0,(1/(Sqrt[2])),0};

Minkowski space

Lightcone

ContourPlot3D[(x^2)+(y^2)-(z^(2 ))==0,{x,-3,3},{y,-3,3},{z,-3,3},PlotLabel->"-(t^2)+(s^2)+(w^2)=0",AxesLabel->{"s","w","t"},BaseStyle->{FontWeight->"Bold",FontSize->14}]

Export["minkowski.eps",]

Show[{ContourPlot3D[(x^2)+(y^2)-(z^(2 ))==0,{x,-3,3},{y,-3,3},{z,-3,3},PlotLabel->"-(t^2)+(s^2)+(w^2)=0",AxesLabel->{"s","w","t"},BaseStyle->{FontWeight->"Bold",FontSize->14},Mesh->None,ContourStyle->Opacity[0.75]],
Graphics3D[{PointSize[0.020],Point[{rising}]}],
Graphics3D[Text["(SubPlus[A])",rising+{0.5,0,0}]]
}]

Export["minkowski-rising.eps",];

Show[{ContourPlot3D[(x^2)+(y^2)-(z^(2 ))==0,{x,-3,3},{y,-3,3},{z,-3,3},PlotLabel->"-(t^2)+(s^2)+(w^2)=0",AxesLabel->{"s","w","t"},BaseStyle->{FontWeight->"Bold",FontSize->14},Mesh->None,ContourStyle->Opacity[0.75]],
Graphics3D[{PointSize[0.020],Point[{rising}]}],
Graphics3D[{PointSize[0.020],Purple,Point[{lowering}]}],
Graphics3D[{Purple,Text["(SubMinus[A])",lowering+{0.5,0.0,0.0}]}]
}]

Export["minkowski-lowering.eps",];

Show[{ContourPlot3D[(x^2)+(y^2)-(z^(2 ))==0,{x,-3,3},{y,-3,3},{z,-3,3},PlotLabel->"-(t^2)+(s^2)+(w^2)=0",AxesLabel->{"s","w","t"},BaseStyle->{FontWeight->"Bold",FontSize->14},Mesh->None,ContourStyle->Opacity[0.75]],
Graphics3D[{PointSize[0.020],Point[{rising}]}],
Graphics3D[{PointSize[0.020],Purple,Point[{lowering}]}],
Graphics3D[{PointSize[0.020],Blue,Point[{number}]}],
Graphics3D[{Blue,Text["N",number+{0.0,0.5,0}]}]
}]

Export["minkowski-number.eps",];