1

演示

复位

制作教程

n = 27 (slider from 0 to 27, step 1)
u = Vector((-0.5, 0), (3.5, 0))
l1 = Sequence(Segment[(k, 0), (k, 0.05)], k, 0, 3)
l3 = Sequence((sqrt(k), 0), k, 1, 10)
l4 = Sequence((sqrt(k), 1), k, 1, 10)
l2 = Sequence(Text[k, (k, 0) + (-0.03, -0.15), true, true], k, 0, 3)
A = Intersect(xAxis, yAxis)
l5 = Sequence(Segment[Element[l3, k], Element[l4, k]], k, 1, 10)
l6 = Sequence(Segment[A, Element[l4, k]], k, 1, 10)
l7 = Sequence(CircleArc[A, Element[l3, k], Element[l4, k - 1]], k, 2, 10)
l8 = Sequence(Text["\sqrt{" + (k) + "}", Element[l3, k] + (-0.1, -0.02), true, true], k, 2, 10)
A1: 1
A2: 2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
B1 = If(n ≥ (3 * A1) - 2, Element[l5, A1])
B2 = If(n ≥ (3 * A2) - 2, Element[l5, A2])
B3 = If(n ≥ (3 * A3) - 2, Element[l5, A3])
B4 = If(n ≥ (3 * A4) - 2, Element[l5, A4])
B5 = If(n ≥ (3 * A5) - 2, Element[l5, A5])
B6 = If(n ≥ (3 * A6) - 2, Element[l5, A6])
B7 = If(n ≥ (3 * A7) - 2, Element[l5, A7])
B8 = If(n ≥ (3 * A8) - 2, Element[l5, A8])
B9 = If(n ≥ (3 * A9) - 2, Element[l5, A9])
C1 = If(n ≥ (3 * A1) - 1, Element[l6, A1])
C2 = If(n ≥ (3 * A2) - 1, Element[l6, A2])
C3 = If(n ≥ (3 * A3) - 1, Element[l6, A3])
C4 = If(n ≥ (3 * A4) - 1, Element[l6, A4])
C5 = If(n ≥ (3 * A5) - 1, Element[l6, A5])
C6 = If(n ≥ (3 * A6) - 1, Element[l6, A6])
C7 = If(n ≥ (3 * A7) - 1, Element[l6, A7])
C8 = If(n ≥ (3 * A8) - 1, Element[l6, A8])
C9 = If(n ≥ (3 * A9) - 1, Element[l6, A9])
D1 = If(n ≥ (3 * A1), Element[l7, A1])
D2 = If(n ≥ (3 * A2), Element[l7, A2])
D3 = If(n ≥ (3 * A3), Element[l7, A3])
D4 = If(n ≥ (3 * A4), Element[l7, A4])
D5 = If(n ≥ (3 * A5), Element[l7, A5])
D6 = If(n ≥ (3 * A6), Element[l7, A6])
D7 = If(n ≥ (3 * A7), Element[l7, A7])
D8 = If(n ≥ (3 * A8), Element[l7, A8])
D9 = If(n ≥ (3 * A9), Element[l7, A9])
E1 = If(n ≥ (3 * A1), Element[l8, A1])
E2 = If(n ≥ (3 * A2), Element[l8, A2])
E3 = If(n ≥ (3 * A3), Element[l8, A3])
E5 = If(n ≥ (3 * A5), Element[l8, A5])
E6 = If(n ≥ (3 * A6), Element[l8, A6])
E7 = If(n ≥ (3 * A7), Element[l8, A7])
E8 = If(n ≥ (3 * A8), Element[l8, A8])
E9 = If(n ≥ (3 * A9), Element[l8, A9])
E4 = If(n ≥ (3 * A4), Element[l8, A4])
l3' = Sequence((sqrt(k), 0), k, 2, 10)
F1 = If(n ≥ (3 * A1), Element[l3', A1])
F2 = If(n ≥ (3 * A2), Element[l3', A2])
F3 = If(n ≥ (3 * A3), Element[l3', A3])
F4 = If(n ≥ (3 * A4), Element[l3', A4])
F5 = If(n ≥ (3 * A5), Element[l3', A5])
F6 = If(n ≥ (3 * A6), Element[l3', A6])
F7 = If(n ≥ (3 * A7), Element[l3', A7])
F8 = If(n ≥ (3 * A8), Element[l3', A8])
F9 = If(n ≥ (3 * A9), Element[l3', A9])
B = (1.4324075487794934, -1.514879873097997)
C = (2.323408368295361, -1.514879873097997)
D = (0.4429932190157122, -1.3448561579755227)
E = (1.2863921653650259, -1.3448561579755227)

Tool: 坐标系
x最小、最大，y最小、最大，0.23
Input: m, n, q, p, a
Output: A, B, O, l1, l2, list3, list4, list5, list6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector((m - 1, 0), (n + 1, 0))
l1 = Sequence(Segment[(k, 0), (k, a)], k, m, n)
A: (n + 1, 0)
list4 = Sequence(Text[k, Element[Sequence[(t - 0.15, 0), t, 1, n], k], true, true], k, 1, n)
list3 = Sequence(Text[k, Element[Sequence[(t - 0.5, 0), t, m, -1], k + abs(m) + 1], true, true], k, m, -1)
l2 = Sequence(Segment[(0, k), (a, k)], k, q, p)
list5 = Sequence(Text[k, Element[Sequence[(-0.9, t + 0.2), t, q, -1], k + abs(q) + 1], true, true], k, q, -1)
v = Vector((0, q - 1), (0, p + 1))
B: (0, p + 1)
list6 = Sequence(Text[k, Element[Sequence[(-0.6, t + 0.2), t, 1, p], k], true, true], k, 1, p)
O: B - (0, p + 1)