My Heart Beats for you的副本
Divide a Heart (String Art)
Many students want to divide a circle for string art. For a Heart:
r(x)=sin(x) sqrt(abs(cos(x)))/(sin(x)+7/5)-2 sin(x)+2
https://pavpanchekha.com/blog/heart-polar-coordinates.html
Two sliders:
n is an interger slider 1...30
r is a real value for a radius of a circle 0...10 by 0.1
curve01=Sequence[Curve[size r(t) cos(t),size r(t) sin(t), t, i, i + 2π / n], i, 0, 2π - π / n, π / n]
points = Sequence[(radius cos(i), radius sin(i)), i, 0, 2π, π / n]