Excavadora 3d

Utilización de GeoGebra 3D para simular una excavadora. Los brazos se encuentran sobre un plano perpendicular al suelo que puede girar alrededor de una recta con un deslizador de ángulo
La construcción de los cilindros hidráulicos se puede mostrar. Los círculos se obtienen mediante la intersección de esferas con el plano de la pala

Podemos modificar el ángulo de giro y las longitudes de los tres émbolos, activar la animación y el rastro del extremo de la pluma

Limpia rastros

Limpia rastros

Ver construcción de cilindros

Ninguno

Todos los cilindros

Longitud de los cilindros

Cilindro 1

 Cilindro2

Cilindro 3

NO

NO

SI

SI

Activa rastro

Has localizado P1

Has localizado P2

Has localizado P3

w_1 = 0.5 (slider from -5 to 5, step 0.1)
u1 = 1.5 (slider from 1 to 2.5, step 0.1)
b1 = 1.34 (slider from 0.8 to 1.8, step 0.01)
q_1 = 1.25 (slider from 1 to 1.5, step 0.05)
n = 0.2 (slider from -5 to 5, step 0.1)
a = 0.2 (slider from 0.1 to 1, step 0.1)
A: (0, 0, a)
A1: A + (0, 0, 1)
B: (0.5, 0, a)
α = 1.3439035240356338 rad (slider from 0° to 6.283185307179586, step °)
B1 = Rotate(B, α, A)
O = (0, 0, 0)
d = Plane(O, A, B1)
a1 = 2.21 (slider from 1.5 to 2.4, step 0.01)
k_1 = Sphere(B1, a1)
f_1 = IntersectPath(d, k_1)
e_1 = 1.4 (slider from 0 to 5, step 0.01)
k_2 = Sphere(A1, e_1)
f_2 = IntersectPath(d, k_2)
A2, B2 = Intersect(f_1, f_2)
n1 = 2 (slider from -5 to 5, step 0.1)
E: A1 + (n1 * (A2 - A1))
l_2 = Sphere(E, q_1)
g_2 = IntersectPath(d, l_2)
E1: E + (n * (A1 - E))
l_1 = Sphere(E1, b1)
g_1 = IntersectPath(d, l_1)
F, G = Intersect(g_1, g_2)
H1: E + ((F - E) * u1)
b: z = a
c = IntersectPath(b, xOyPlane)
C = Point(zAxis)
i = Ray(A1, A2)
j = Segment(B1, A2)
l = 3 (slider from 0 to 5, step 0.1)
t = Ray(E, F)
a_1 = Segment(E1, F)
u = 1.95 (slider from 1 to 2.5, step 0.05)
b_1 = Segment(O, A1)
H: E + ((F - E) * u)
c_1 = Segment(B1, H)
polígono1, h, p, r = Polygon(O, A1, B1)
m = Segment(A1, C)
d_1 = Segment(A1, E)
e_2 = Segment(E, H)
c1 = 0.95 (slider from 0.4 to 1, step 0.01)
m_2 = Sphere(H, w_1)
h_2 = IntersectPath(d, m_2)
m_1 = Sphere(H1, c1)
h_1 = IntersectPath(d, m_1)
D, I = Intersect(h_1, h_2)
f = Ray(H, D)
g = Segment(D, H1)
k = 1.8 (slider from 1.2 to 2, step 0.1)
J: H + (k * (D - H))
s = Segment(H, J)
e = 0 (slider from 0 to 4, step 1)
J1: J
ve = 0 (slider from 0 to 1, step 0.1)
texto1b: "Clindro " + e + ""
texto3: "Ángulo de giro:  " + α + ""
ve1: (10 * ve)
texto4: "Velocidad de animación " + ve1 + ""
q = 0 (slider from 0 to 1, step 1)
P1 = (3.1301901004656028, 1.2386108252952504, 1.5)
d1 = Distance(P1, J)
P2: (1.37998, -4.07457, 4)
P3: (-2, 2, -1)
d2 = Distance(P2, J)
d3 = Distance(P3, J)