Im8

Im7

Im6

Im5

Im4

Im3

Im2

Im1

Horario

Antihorario

Sentido

Tipo de espiral

Arquimediana

Involuta del círculo

Logarítmica

Parámetros

Imágenes

Mostrar un punto

NAUTILUS

LÁPIDA BERNOUILLI

ESCULTURA

PERISPHINCTES

VOLUTA

CERÁMICA

CICLÓN

GALAXIA

im8 = false
im7 = false
im6 = false
im5 = false
im4 = false
im3 = false
im2 = false
im1 = false
giro = If(im1 ≟ true ∨ im2 ≟ true ∨ im3 ≟ true ∨ im4 ≟ true ∨ im5 ≟ true ∨ im6 ≟ true ∨ im7 ≟ true ∨ im8 ≟ true, 1.0, 0.0)
Crot = (-3.2600000000000002, -4.94)
q = Circle(Crot, 0.5)
J = Point(q)
Crot1: Crot + (0.5, 0.0)
n = 38.6 (slider from 0 to 100, step 0.1)
A = (6.44, -0.06)
α: giro * Angle[Crot1, Crot, J]
a = 0.25 (slider from 0 to 1.2, step 0.01)
c_1 = Circle(A, a)
invo0 = CurveCartesian(x(A) + (a * cos(t) + a * t * sin(t)) * cos(α) - (a * sin(t) - a * t * cos(t)) * sin(α), y(A) + (a * cos(t) + a * t * sin(t)) * sin(α) + (a * sin(t) - a * t * cos(t)) * cos(α), t, 0.0, n)
b = 0.13 (slider from 0 to 1, step 0.01)
arq0 = CurveCartesian(x(A) - a * t * cos(t) * cos(α) + a * t * sin(t) * sin(α), y(A) - a * t * cos(t) * sin(α) - a * t * sin(t) * cos(α), t, 0.0, n)
e = 2.718281828459045
loga0 = CurveCartesian(x(A) + a * exp(b * t) * cos(t) * cos(α) - a * e^(b * t) * sin(t) * sin(α), y(A) + a * exp(b * t) * cos(t) * sin(α) + a * e^(b * t) * sin(t) * cos(α), t, 0.0, n)
arq2 = CurveCartesian(x(A) + a * t * cos(t), y(A) + a * t * sin(t), t, 0.0, n)
invo1 = CurveCartesian(x(A) + (a * cos(t) + a * t * sin(t)) * cos(α) - (-(a) * sin(t) + a * t * cos(t)) * sin(α), y(A) + (a * cos(t) + a * t * sin(t)) * sin(α) + (-(a) * sin(t) + a * t * cos(t)) * cos(α), t, 0.0, n)
loga1 = CurveCartesian(x(A) + a * exp(b * t) * cos(t) * cos(α) + a * e^(b * t) * sin(t) * sin(α), y(A) + a * exp(b * t) * cos(t) * sin(α) - a * e^(b * t) * sin(t) * cos(α), t, 0.0, n)
menu = 2 (slider from 0 to 2, step 1)
sen = 1 (slider from 0 to 1, step 1)
texto11: "n = " + n
B = (3.02, -3.68)
C = Point(loga0)
a_2 = Tangent(C, loga0)
b_2 = Segment(A, C)
D = Point(loga1)
c = Tangent(D, loga1)
d = Segment(A, D)
E = Point(invo1)
f, g = Tangent(E, c_1)
F = Intersect(c_1, g)
h = Segment(F, E)
G = Point(invo0)
i, j = Tangent(G, c_1)
H = Intersect(c_1, i)
l = Segment(H, G)
ver = false
α1 = Angle(Crot1, Crot, J)
arq1 = CurveCartesian(x(A) + a * t * cos(t) * cos(α) + a * t * sin(t) * sin(α), y(A) + a * t * cos(t) * sin(α) - a * t * sin(t) * cos(α), t, 0.0, n)
I = Point(arq0)
m = Tangent(I, arq0)
p = Circle(I, 2.0 * 3.141592653589793 * a)
s = OrthogonalLine(I, m)
K, L = Intersect(p, s)
t = Segment(K, I)
texto21: "l = " + t + " cm"
M = Point(arq1)
a_1 = Tangent(M, arq1)
d_1 = Circle(M, 2.0 * 3.141592653589793 * a)
b_1 = OrthogonalLine(M, a_1)
N, O = Intersect(d_1, b_1)
e_1 = Segment(M, O)
c_2: c_1
P = Point(b_2)
Q = Point(a_2)
β = Angle(Q, C, P)
R = Point(d)
S = Point(c)
γ = Angle(R, D, S)
texto22: "α = " + α1
texto9: "a = " + a
texto10: "b = " + (exp(b))