Recta-Circunferencia (R-C)

Rectas (R-R)

Punto-Circunferencia (P-C)

Punto-Recta (P-R)

Puntos (P-P)

Comprobar

Circunferencias (C-C)

 d' d^q = k 

Casos

Curvas

Óvalos de Cassini (P-P q=1)

Lemniscata (P-P q=1, k=OA²/4)

Circunferencia (P-P q=0)

Circunferencia (P-P q=-1, k≠1)

Mediatriz (P-P q=-1, k=1)

Cuárticas (P-R q=1)

El grado de estas curvas
depende del valor de q elegido

Activar offset

O': (5.4118, -0.69087)
t': 2
op5 = false
op4 = false
op3 = false
t = 3
O: (0, 0)
c = Circle(O, t)
I: (1, 0)
s = Line(O, I)
r = Line(O, (3, 4))
op2 = false
op1 = true
C: (1.4, 3.8)
c' = Circle(O', t')
Pc' = ClosestPoint(c', C)
Pc = ClosestPoint(c, C)
Pd = ClosestPoint(r, C)
A: (3.25, -1)
Ps = ClosestPoint(s, C)
q = 1.5 (slider from -3 to 3, step 0.1)
h = 6 (slider from 0 to 6, step 0.02)
k = 7 (slider from 0 to 8, step 0.1)
comprobar = false
s1 = Segment(C, A)
i = OrthogonalLine(C, r)
s3 = Segment(C, Pd)
kk: (Distance[C, If[op1 ∨ op2 ∨ op3, A, If[op4, Ps, Pc']]] * Distance[C, If[op1, O, If[op2 ∨ op4 ∨ op5, Pd, Pc]]]^(q))
textoComprueba: "k = " + kk + ""
s4 = Segment(C, Pc)
s2 = Segment(O, C)
op6 = false
s5 = Segment(C, Pc')
opCasos = true
opCurvas = false
opCurva2 = false
opCurva3 = false
opCurva1 = false
opCurva4 = false
opCurva5 = false
opCurva6 = false
ci1:=(XA * XO^(q)) = k
ci2:=(XA * Xr^(q)) = k
ci3:=(XA * (abs(XO - t))^(q)) = k
ci4:=(Xs * Xr^(q)) = k
ci5:=(abs(XO' - t') * Xr^(q)) = k
ci6:=(abs(XO' - t') * (abs(XO - t))^(q)) = k
op7 = false
h': 6 - h
c1 = Circle(O, t + h')
c2 = Circle(O, t - h')
c1' = Circle(O', t' + k / h'^(q))
c2' = Circle(O', t' - k / h'^(q))
sA = Circle(A, k / h'^(q))
sO = Circle(O, h')
d1a = Translate(r, Vector[(h' * UnitOrthogonalVector[r])])
d1b = Translate(r, Vector[((-h') * UnitOrthogonalVector[r])])
d2a = Translate(s, Vector[(k / h'^(q) * UnitOrthogonalVector[s])])
d2b = Translate(s, Vector[(((-k)) / h'^(q) * UnitOrthogonalVector[s])])

Tool: OpSuma
Elige O y luego dos puntos
Input: O, A, B
Output: O'

C = Midpoint(A, B)
O' = Mirror(O, C)

Tool: OpResta
Elige O, el primer punto y el segundo punto
Input: O, A, B
Output: O'

B' = Mirror(B, O)
C = Midpoint(A, B')
O' = Mirror(O, C)

Tool: OpProducto
Elige O e I, y luego dos puntos
Input: O, I, A, B
Output: E

I' = Mirror(I, O)
B' = Mirror(B, O)
c = Semicircle(I', I)
d = Semicircle(B', B)
f = Line(O, I)
g = OrthogonalLine(O, f)
C = Intersect(c, g, 1)
h = Line(C, A)
D = Intersect(d, g, 1)
i = Line(D, h)
E = Intersect(f, i)

Tool: OpDivisión
Elige O e I, y luego el primer punto y el segundo punto
Input: O, I, A, B
Output: E

f = Line(O, I)
g = OrthogonalLine(O, f)
I' = Mirror(I, O)
c = Semicircle(I', I)
Binv = Mirror(B, c)
Binv' = Mirror(Binv, O)
e = Semicircle(Binv', Binv)
F = Intersect(e, g, 1)
C = Intersect(c, g, 1)
h = Line(C, A)
i = Line(F, h)
E = Intersect(f, i)