Complementary Wave

Script

a = Slider(0, 2 pi , 0.01, 1, 160, false, true, false,false) SetVisibleInView(a, 1, false) #Set slider repeat=Increasing# f(t) = 0.92 *cos(t-a)+1 diff = 0.06 Ln = Sequence((k, 0), k, 0, 2 pi, 2pi/40) L0 = Zip(Segment( P, (x(P), f(x(P))-diff )), P, Ln) L1 = Zip(Segment( (x(P), f(x(P))+diff), (x(P), 2)), P, Ln) SetVisibleInView(Ln, 1, false) SetVisibleInView(f, 1, false) SetColor(L0, "Red") SetColor(L1, "Blue") ShowGrid(false) ShowAxes(false) CenterView((pi,1)) StartAnimation(a)