This is plots for Lecture 10: constantMomentumSurfaceFig2, constantMomentumSurfaceFig1 (paraboloids vs. light cone).

<<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.8]],
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[0.3]],AspectRatio->1
]
}]
, {{m,0.5},0,10}]

DynamicModule[{m=0.5`},Show[{Plot3D[Evaluate[{(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[Opacity[1]],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[0.3`]],AspectRatio->1]}]]

p =

peeters`exportForLatex["constantMomentumSurfaceFig1", p]

Manipulate[
Show[{
ParametricPlot[ m{Sinh[t], Cosh[t]}, {t, 0, 5}, PlotRange -> {{0,2}, {0,2}}, Ticks -> None],
Plot[x,{x,0,5}]
}],
{{m,1}, 0, 2}
]

p2 = DynamicModule[{m=0.532`},Show[{ParametricPlot[m {Sinh[t],Cosh[t]},{t,0,5},PlotRange->{{0,2},{0,2}},Ticks->None],Plot[x,{x,0,5}]}]]

peeters`exportForLatex["constantMomentumSurfaceFig2", p2]