演示

复位

1

制作教程

n = 10 (slider from 1 to 10, step 1 / 3)
A = Intersect(xAxis, yAxis)
l3 = Sequence((sqrt(k), 0), k, 1, n)
l4 = Sequence(Element[l3, k] + (0, 1), k, 1, n)
l1 = Sequence(Segment[(k, 0), (k, 0.05)], k, 0, 3)
l8 = Sequence(Text["\sqrt{" + (k) + "}", Element[l3, k] + (-0.1, -0.02), true, true], k, 2, n)
u = Vector((-0.5, 0), (3.5, 0))
l2 = Sequence(Text[k, (k, 0) + (-0.03, -0.15), true, true], k, 0, 3)
l3' = Sequence((sqrt(k), 0), k, 2, n)
a: n - 1 / 3
l5 = Sequence(Segment[Element[l3, k], Element[l4, k]], k, 1, a)
b: n - 2 / 3
l6 = Sequence(Segment[A, Element[l4, k]], k, 1, b)
l7 = Sequence(CircleArc[A, Element[l3', k], Element[l4, k]], k, 1, n)
B = (1.0552901305303422, -1.3619995160979095)
C = (1.887575027294732, -1.3619995160979095)
D = (0.16807573405686016, -1.20062877078335)
E = (0.9502702575512396, -1.20062877078335)