<<peeters` ;
peeters`setGitDir[ "blogit" ]

Clear[ f, g, h, l, a ] ;
f[ r_ ] = -Sqrt[ 1/r^2 ] ;
a = 10 ;
l = 20 a ;
g[ r_, m_, n_] := Sum[ f[r + k ], {k, m, n, a}] ;

h[ r_ ] = g[ r, -l, l ] ;
v[ r_ ] = g[ r, -l, -a] + g[ r, a, l ] ;

Clear[p1, p2, p3]

p1 = Plot[ f[r], {r, -2 a, 2 a}, PlotRange -> {Automatic, {-2, 0}} ]
p2 = Plot[ h[r], {r, -l/4, l/4}, PlotRange -> {Automatic, {-2, 0}}]
p3 = Plot[ v[r], {r, -l/4, l/4}, PlotRange -> {Automatic, {-2, 0}}]

peeters`exportForLatex["tightBindingInverseRadialPotentialFig1", p1]
peeters`exportForLatex["tightBindingInverseRadialPotentialPeriodicFig2", p2]
peeters`exportForLatex["tightBindingInverseRadialPotentialPeriodicOneMissingFig3", p3]