Tangentes e secantes
Author: OBMEP_SRDG
Date: 13 Junho 2014

$ c $

Reta secante à circunferência.
Observe que a reta s intersecta
a circunferência em dois pontos distintos

Você pode movimentar a reta s clicando sobre ela e movendo-a 
ou clicando sobre um dos pontos P ou Q e movendo-os.

A reta t será sempre tangente à circunferência,
você poderá movimentá-la movendo o ponto de tangência T.
Observe que a reta t intersecta a circunferência em apenas um ponto.

Viva! 
Você conseguiu uma reta tangente!

Escolha uma  reta  para movimentar:

Esta reta não é tangente e nem secante à circunferência.

Reta s

Reta t

D = (11.79856, 0.8657)
O = (4.791196505589186, -5.256864372455167)
c = Circle(O, 4)
F = Point(c)
G = Point(c)
T = Point(Circle[O, 4])
a = Segment(O, T)
P = (-2.607201788281327, -1.0043100617429266)
Q = (10.493733882901136, -4.828806810473222)
s = Line(P, Q)
d = Distance(O, s)
TextoOb: "\overline{" + (Name[O]) + (Name[s]) + "} \, = \, " + d
S_1, S_2 = Intersect(c, s)
A = (-4, -12)
B = (6, -12)
C = (-4.0022360052944075, -15.156882005248534)
t = Tangent(T, c)
b = false
e = false
tt = If(d < 3.999, t2, If[d > 4.001, t9, t5])