Clear[nodes]
nodes[a_] := Module[{ u1, u2, p, g}, 
u1[x_] = 3+Sin[x+a] ;
u2[x_] = -3-Sin[x+a] ;
p = Plot[{u1[x], u2[x]},{x,0,3 Pi}] ;
g = Graphics[{PointSize[Large],Pink, Point[{{0, u1[0]}, {0, u2[0]}}]
}] ;
Show[p, g]
]
Animate[nodes[a],{a,0, 2Pi},AnimationRunning->False]

<<peeters` ;
setGitDir[ "blogit" ]

peeters`exportForLatex["qmSolidsPs4QzeroFig1", nodes[0]]