calc-010-funciones-seno-genesis

Inicializar

r: 1
a = 0 (slider from -6.283185307179586 to 6.28318531, step 0.1)
P: (a, sin(a))
A = (-1.5707963267948966, 3)
B: ((r * cos(a)), (r * sin(a)))
Q: A + B
c = Circle(A, Q)
b = OrthogonalLine(A, xAxis)
d = OrthogonalLine(A, yAxis)
C = Intersect(c, b, 2)
D = Intersect(c, b, 1)
E = Intersect(c, d, 2)
F = Intersect(c, d, 1)
e = Segment(C, D)
f = Segment(E, F)
g = Segment(A, Q)
h = OrthogonalLine(Q, f)
G = Intersect(h, f)
i = Segment(Q, G)
j = OrthogonalLine(P, xAxis)
H = Intersect(j, xAxis)
k = Segment(P, H)
a_1: a / π
a_2: sin(a)
texto1: "sen(" + (LaTeX[a_1]) + " π )=" + (LaTeX[a_2]) + ""

Tool: Inc
Input: A, B, C, D, E
Output: F

c = Ellipse(A, B, C)
a = Ray(D, E)
F = Intersect(c, a, 1)

Tool: Ref
Input: A, B, C, D, E
Output: G

c = Ellipse(A, B, C)
u = Vector(D, E)
a = Ray(D, E)
F = Intersect(c, a, 1)
b = Tangent(F, c)
F' = Translate(F, u)
v = Vector(F, F')
v' = Mirror(v, b)
G: F + v'