α

sin(α)

cos(α)

tg(α)

cotg(α)

$α=...$

$%x$

sin(x)

cos(x)

tg(x)

cotg(x)

args: {0, 0.5235987755982988, 0.7853981633974483, 1.0471975511965976, 1.5707963267948966, 2.0943951023931953, 2.356194490192345, 2.6179938779914944, 3.141592653589793, 3.6651914291880923, 3.9269908169872414, 4.1887902047863905, 4.71238898038469, 5.235987755982989, 5.497787143782138, 5.759586531581287, 6.283185307179586}
d = 17
B1 = 1 (slider from -5 to 5, step 1)
C1 = 2 (slider from -5 to 5, step 1)
D1 = 3 (slider from -5 to 5, step 1)
E1 = 4 (slider from -5 to 5, step 1)
F1 = 5 (slider from -5 to 5, step 1)
A3 = 1
A4 = 2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
B3 = SurdText(Element[pp, $A3, B$1], {3.141592653589793})
B4 = SurdText(Element[pp, $A4, B$1], {3.141592653589793})
B5 = SurdText(Element[pp, $A5, B$1], {3.141592653589793})
B6 = SurdText(Element[pp, $A6, B$1], {3.141592653589793})
B7 = SurdText(Element[pp, $A7, B$1], {3.141592653589793})
B8 = SurdText(Element[pp, $A8, B$1], {3.141592653589793})
B9 = SurdText(Element[pp, $A9, B$1], {3.141592653589793})
B10 = SurdText(Element[pp, $A10, B$1], {3.141592653589793})
B11 = SurdText(Element[pp, $A11, B$1], {3.141592653589793})
B12 = SurdText(Element[pp, $A12, B$1], {3.141592653589793})
B13 = SurdText(Element[pp, $A13, B$1], {3.141592653589793})
B14 = SurdText(Element[pp, $A14, B$1], {3.141592653589793})
B15 = SurdText(Element[pp, $A15, B$1], {3.141592653589793})
B16 = SurdText(Element[pp, $A16, B$1], {3.141592653589793})
B17 = SurdText(Element[pp, $A17, B$1], {3.141592653589793})
B18 = SurdText(Element[pp, $A18, B$1], {3.141592653589793})
B19 = SurdText(Element[pp, $A19, B$1], {3.141592653589793})
C3 = SurdText(Element[pp, $A3, C$1], {1.4142135623730951, 1.7320508075688772})
C4 = SurdText(Element[pp, $A4, C$1], {1.4142135623731, 1.73205080756888})
C5 = SurdText(Element[pp, $A5, C$1], {1.4142135623731, 1.73205080756888})
C6 = SurdText(Element[pp, $A6, C$1], {1.4142135623731, 1.73205080756888})
C7 = SurdText(Element[pp, $A7, C$1], {1.4142135623731, 1.73205080756888})
C8 = SurdText(Element[pp, $A8, C$1], {1.4142135623731, 1.73205080756888})
C9 = SurdText(Element[pp, $A9, C$1], {1.4142135623731, 1.73205080756888})
C10 = SurdText(Element[pp, $A10, C$1], {1.4142135623731, 1.73205080756888})
C11 = SurdText(Element[pp, $A11, C$1], {1.4142135623731, 1.73205080756888})
C12 = SurdText(Element[pp, $A12, C$1], {1.4142135623731, 1.73205080756888})
C13 = SurdText(Element[pp, $A13, C$1], {1.4142135623731, 1.73205080756888})
C14 = SurdText(Element[pp, $A14, C$1], {1.4142135623731, 1.73205080756888})
C15 = SurdText(Element[pp, $A15, C$1], {1.4142135623731, 1.73205080756888})
C16 = SurdText(Element[pp, $A16, C$1], {1.4142135623731, 1.73205080756888})
C17 = SurdText(Element[pp, $A17, C$1], {1.4142135623731, 1.73205080756888})
C18 = SurdText(Element[pp, $A18, C$1], {1.4142135623731, 1.73205080756888})
C19 = SurdText(Element[pp, $A19, C$1], {1.4142135623731, 1.73205080756888})
D3 = SurdText(Element[pp, $A3, D$1], {1.4142135623731, 1.73205080756888})
D4 = SurdText(Element[pp, $A4, D$1], {1.4142135623731, 1.73205080756888})
D5 = SurdText(Element[pp, $A5, D$1], {1.4142135623731, 1.73205080756888})
D6 = SurdText(Element[pp, $A6, D$1], {1.4142135623731, 1.73205080756888})
D7 = SurdText(Element[pp, $A7, D$1], {1.4142135623731, 1.73205080756888})
D8 = SurdText(Element[pp, $A8, D$1], {1.4142135623731, 1.73205080756888})
D9 = SurdText(Element[pp, $A9, D$1], {1.4142135623731, 1.73205080756888})
D10 = SurdText(Element[pp, $A10, D$1], {1.4142135623731, 1.73205080756888})
D11 = SurdText(Element[pp, $A11, D$1], {1.4142135623731, 1.73205080756888})
D12 = SurdText(Element[pp, $A12, D$1], {1.4142135623731, 1.73205080756888})
D13 = SurdText(Element[pp, $A13, D$1], {1.4142135623731, 1.73205080756888})
D14 = SurdText(Element[pp, $A14, D$1], {1.4142135623731, 1.73205080756888})
D15 = SurdText(Element[pp, $A15, D$1], {1.4142135623731, 1.73205080756888})
D16 = SurdText(Element[pp, $A16, D$1], {1.4142135623731, 1.73205080756888})
D17 = SurdText(Element[pp, $A17, D$1], {1.4142135623731, 1.73205080756888})
D18 = SurdText(Element[pp, $A18, D$1], {1.4142135623731, 1.73205080756888})
D19 = SurdText(Element[pp, $A19, D$1], {1.4142135623731, 1.73205080756888})
E3 = SurdText(Element[pp, $A3, E$1], {1.4142135623731, 1.73205080756888})
E4 = SurdText(Element[pp, $A4, E$1], {1.4142135623731, 1.73205080756888})
E5 = SurdText(Element[pp, $A5, E$1], {1.4142135623731, 1.73205080756888})
E6 = SurdText(Element[pp, $A6, E$1], {1.4142135623731, 1.73205080756888})
E7 = SurdText(Element[pp, $A7, E$1], {1.4142135623731, 1.73205080756888})
E8 = SurdText(Element[pp, $A8, E$1], {1.4142135623731, 1.73205080756888})
E9 = SurdText(Element[pp, $A9, E$1], {1.4142135623731, 1.73205080756888})
E10 = SurdText(Element[pp, $A10, E$1], {1.4142135623731, 1.73205080756888})
E11 = SurdText(Element[pp, $A11, E$1], {1.4142135623731, 1.73205080756888})
E12 = SurdText(Element[pp, $A12, E$1], {1.4142135623731, 1.73205080756888})
E13 = SurdText(Element[pp, $A13, E$1], {1.4142135623731, 1.73205080756888})
E14 = SurdText(Element[pp, $A14, E$1], {1.4142135623731, 1.73205080756888})
E15 = SurdText(Element[pp, $A15, E$1], {1.4142135623731, 1.73205080756888})
E16 = SurdText(Element[pp, $A16, E$1], {1.4142135623731, 1.73205080756888})
E17 = SurdText(Element[pp, $A17, E$1], {1.4142135623731, 1.73205080756888})
E18 = SurdText(Element[pp, $A18, E$1], {1.4142135623731, 1.73205080756888})
E19 = SurdText(Element[pp, $A19, E$1], {1.4142135623731, 1.73205080756888})
F3 = SurdText(Element[pp, $A3, F$1], {1.4142135623731, 1.73205080756888})
F4 = SurdText(Element[pp, $A4, F$1], {1.4142135623731, 1.73205080756888})
F5 = SurdText(Element[pp, $A5, F$1], {1.4142135623731, 1.73205080756888})
F6 = SurdText(Element[pp, $A6, F$1], {1.4142135623731, 1.73205080756888})
F7 = SurdText(Element[pp, $A7, F$1], {1.4142135623731, 1.73205080756888})
F8 = SurdText(Element[pp, $A8, F$1], {1.4142135623731, 1.73205080756888})
F9 = SurdText(Element[pp, $A9, F$1], {1.4142135623731, 1.73205080756888})
F10 = SurdText(Element[pp, $A10, F$1], {1.4142135623731, 1.73205080756888})
F11 = SurdText(Element[pp, $A11, F$1], {1.4142135623731, 1.73205080756888})
F12 = SurdText(Element[pp, $A12, F$1], {1.4142135623731, 1.73205080756888})
F13 = SurdText(Element[pp, $A13, F$1], {1.4142135623731, 1.73205080756888})
F14 = SurdText(Element[pp, $A14, F$1], {1.4142135623731, 1.73205080756888})
F15 = SurdText(Element[pp, $A15, F$1], {1.4142135623731, 1.73205080756888})
F16 = SurdText(Element[pp, $A16, F$1], {1.4142135623731, 1.73205080756888})
F17 = SurdText(Element[pp, $A17, F$1], {1.4142135623731, 1.73205080756888})
F18 = SurdText(Element[pp, $A18, F$1], {1.4142135623731, 1.73205080756888})
F19 = SurdText(Element[pp, $A19, F$1], {1.4142135623731, 1.73205080756888})
text1 = TableText({{B2, C2, D2, E2, F2}, {B3, C3, D3, E3, F3}, {B4, C4, D4, E4, F4}, {B5, C5, D5, E5, F5}, {B6, C6, D6, E6, F6}, {B7, C7, D7, E7, F7}, {B8, C8, D8, E8, F8}, {B9, C9, D9, E9, F9}, {B10, C10, D10, E10, F10}, {B11, C11, D11, E11, F11}, {B12, C12, D12, E12, F12}, {B13, C13, D13, E13, F13}, {B14, C14, D14, E14, F14}, {B15, C15, D15, E15, F15}, {B16, C16, D16, E16, F16}, {B17, C17, D17, E17, F17}, {B18, C18, D18, E18, F18}, {B19, C19, D19, E19, F19}}, "c_|h")
n = 17 (slider from 1 to 17, step 1)
text2: "\alpha=" + (LaTeX[SurdText[Element[args, 18 - n], {3.141592653589793}]]) + ""
uhel0 = Element(args, 18 - n)
f(x) = If[(-6.28319) ≤ x ≤ 6.28319, sin(x)]
a: x = uhel0
A = Intersect(a, xAxis)
text3: "" + (LaTeX[SurdText[x(A), {3.141592653589793}]]) + ""
g(x) = If[(-6.28319) ≤ x ≤ 6.28319, cos(x)]
h(x) = If[(-6.28319) ≤ x ≤ 6.28319, tan(x)]
p(x) = If[(-6.28319) ≤ x ≤ 6.28319, cot(x)]
B = Intersect(h, a, (0, 0))
C = Intersect(f, a, (0, 0))
D = Intersect(g, a, (0, 1))
E = Intersect(p, a, (0.5235987755982988, 1.7320508075688776))
text4: "" + (LaTeX[SurdText[sin(uhel0), {1.4142135623730951, 1.7320508075688772}]]) + ""
text5: "" + (LaTeX[SurdText[cos(uhel0), {1.4142135623730951, 1.7320508075688772}]]) + ""
text6: "" + (LaTeX[SurdText[tan(uhel0), {1.4142135623730951, 1.7320508075688772}]]) + ""
text7: "" + (LaTeX[SurdText[cot(uhel0), {1.4142135623730951, 1.7320508075688772}]]) + ""
b = true
c = true
e = true
i = true