Date: 1 Marzo 2014

Distancia de A a la recta

O

(r, 0)

P

Q

Animación

Animación

L

r

θ

2θ

(a, 0)

(2r,0)

r = 5 (slider from 0 to 5, step 0.1)
aa = 11.401 (slider from 0.001 to 25, step 0.1)
A = (0, 0)
M: (x(A) + r, 0)
c = Circle(M, r)
a: x = aa
B = Point(a)
b = Line(A, B)
C, D = Intersect(c, b)
e = false
u = Vector(D, B)
A' = Translate(A, u)
v = Vector(A, A')
lugar1 = Locus(A', B)
dr: aa / r
d = Segment(M, A)
α = Angle(M, A, B)
N: (aa - r - (r * cos((2 * α))), (aa * tan(α)) - (r * sin((2 * α))))
P: ((-sqrt(((2 * r^(2)) * (1 + cos((2 * α)))))) + sqrt((aa^(2) * (1 + tan(α)^(2)))); α)
f: (y^(2) * (aa - x)) = (x^(2) * ((2 * r) + x - aa))
texto1: "Distancia recta - punto A = " + dr + "r"
β = Angle(M, A, A')
g = Line(A, M)
E = Point(g)
γ = Angle(E, M, D)
h = Segment(M, D)
i = Segment(M, E)
F = Intersect(a, g)
j = Segment(A, F)
G = Intersect(c, g, 2)
k = Segment(D, G)