Graphing the Sine Function

x

y

\theta

f(\theta)

Show Graph

a = 0 (slider from 0 to 12.56637061, step 0.1)
f = If(0 < x < a, sin(x))
A = (-2, 0)
c = Circle(A, 1)
B = (-1, 0)
b = Segment(A, B)
B' = Rotate(B, a, A)
α = Angle(B, A, B')
C: (a, sin(a))
d = Segment(B', C)
e = Segment(A, B')
D = (-2, 1.2)
E = (-2, -1.2)
F = (-3.2, 0)
G = (-0.8, 0)
g = Segment(D, E)
h = Segment(F, G)
H = (-0.5, 0)
H' = Rotate(H, a, A)
i: x(B') + 2
j: y(B')
k: x(C)
l: y(C)
text5: "\theta=" + (LaTeX[a]) + ""
text8: "\theta = " + (LaTeX[a]) + ""
m = true
text6: "(" + (LaTeX[cos(a)]) + "," + (LaTeX[sin(a)]) + ")"
text7: "(" + (LaTeX[a]) + "," + (LaTeX[sin(a)]) + ")"