This is a plot for Lecture 11.  spaceLikeAndLightConeFig1

<<peeters` ;
peeters`setGitDir[ "../project/figures/phy2403-quantum-field-theory" ]

ClearAll[r, wi]
r = {-5,5};
wi = 3;
Manipulate[
Show[{
Plot3D[{Sqrt[x^2 + y^2 - m^2], -Sqrt[x^2 + y^2 - m^2]} // Evaluate, {x,-wi,wi}, {y,-wi,wi}, Ticks -> None, PlotRange -> {r/3,r/3,r/2}

, 
PlotStyle->Directive[Opacity[0.5]],
AspectRatio->1
]
,
Plot3D[{Sqrt[x^2 + y^2], -Sqrt[x^2 + y^2]} ,
 {x,-wi,wi}, {y,-wi,wi},
 Ticks -> None, 
PlotRange -> {r/2,r/2,r}
, 
PlotStyle->Directive[Opacity[1]],AspectRatio->1
]
}]
, {{m,0.5},0,10}]

DynamicModule[{m=0.5`},Show[{Plot3D[{(Sqrt[(x^2)+(y^2)-(m^2)]),-(Sqrt[(x^2)+(y^2)-(m^2)])},{x,-wi,wi},{y,-wi,wi},Ticks->None,PlotRange->{(r/3),(r/3),(r/2)},PlotStyle->Directive[Blue,Opacity[0.6`]],AspectRatio->1],Plot3D[{(Sqrt[(x^2)+(y^2)]),-(Sqrt[(x^2)+(y^2)])},{x,-wi,wi},{y,-wi,wi},Ticks->None,PlotRange->{(r/2),(r/2),r},PlotStyle->Directive[Orange, Opacity[0.4]],AspectRatio->1]}]]

;

peeters`exportForLatex["spaceLikeAndLightConeFig1", p]