I was trying to display an animation of two amortized sinusoids that cross each other, like in the example below:
EB[x_, t_] := Cos[2*Pi*x - t]/(1 + 0.125*x^2)
Animate[ParametricPlot3D[{{u, 0, EB[u, t]}, {5, 5 - u, EB[u, t]}}, {u,
0, 10}, PlotRange -> {{0, 10}, {-5, 5}, {-1, 1}},
ImageSize -> Scaled[0.8], AxesOrigin -> {0, 0, 0},
Boxed -> False], {t, 0, 2*Pi}]
As you can see, the first curve displays as expected, but the second (orange) one is ugly. How can I sort this out ?
Many thanks for your time.
Yohann
