Figure: ps3p1TRFig1.  Plots T e^{-R}/R for T near R and T gg R

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

f[t_, r_] := t E^(-r)/r

ClearAll[rl, rh]
rl = 0.1;
rh = 1;
(*Plot[ f[#, r] &/@ {5} // Evaluate, {r,rl, rh}, PlotRange -> Full]
Plot[ f[#, r] &/@ {20} // Evaluate, {r, rl, rh}, PlotRange -> Full]*)
p = Plot[ f[#, r] &/@ {1, 5} // Evaluate, {r, rl, rh}, PlotRange -> Full, Ticks -> None,
PlotLabels -> {"T ~ R", "T ≫ R"}]

peeters`exportForLatex["ps3p1TRFig1", p]