Braided sines
Script
speed = 0.6
t = Slider(-9, 9, 0.01, speed, 200)
f(x, y) = If(x<t, sin(x-y), cos(t-y)(x-t)+sin(t-y))
Ln = 1...10
Execute(Zip("B"+k+" = Curve( f(t, 2*pi*"+k+"/10), -t, t, -20, 20)", k, Ln))
Execute(Zip("SetDynamicColor(B"+k+", "+k+"/10, 0.23, 0.78)", k, Ln))
Execute(Zip("ShowLabel(B"+k+", false)", k, Ln))
ShowGrid(false)
ShowAxes(false)
SetBackgroundColor("black")
CenterView((0, 0))
StartAnimation(t, true)Inspired from this post by Kowsto:
https://www.reddit.com/r/desmos/comments/1gm644d/re_inspired_by_another_post_on_this_sub/
Support
If you like my work, you can support me in Patreon:
https://www.patreon.com/jcponce
Get my recent Mathematical Art with GeoGebra ebook:
https://www.patreon.com/jcponce/shop/mathematical-art-with-geogebra-577631
∞ Thanks fro your support!