Author: José A. Mora

Experimenta

Experimenta

Ejercicios

Nueva situación

\frac{ED}{HG}=\frac{DJ}{GI}

Los \;  triángulos \;  semejantes \;  son \;  EDJ  \; y  \; HGI

Ver

Ocultar

Solución

ED = x

Ejercicios

l1 = 2.3 (slider from 1.8 to 2.6, step 0.2)
A5: Random[15, 25] / 8
p1 = 0 (slider from 0 to 1, step 1)
l = If(p1 ≟ 0, l1, A5)
A = (-4.107873771021756, -10.049601649413376)
B = (25.892126228978242, -10.049601649413376)
a = Line(A, B)
G = Point(a)
G1: G + (0, l)
h1 = 20 (slider from 15 to 25, step 0.5)
D = Point(a)
A4: Random[150, 250] / 10
h: A4
D1: D + (0, h)
A3 = Random(20, 50)
B3: (A3 * π / 180)
M = (-1.44, 1.26)
L = (-1.44, 3.26)
O1 = Rotate(M, B3, L)
p = Circle(L, M)
N = Point(p)
q = CircleArc(L, M, N)
O2 = Point(q)
g = OrthogonalLine(G, a)
H: G1
O = If(p1 ≟ 0, O2, O1)
t = Segment(L, O)
i_1 = Line(H, t)
Q = Intersect(i_1, a)
b = OrthogonalLine(D, a)
E: D1
f_1 = Line(E, t)
P = Intersect(a, f_1)
C = Point(a)
c = OrthogonalLine(C, a)
d = OrthogonalLine(E, b)
F = Intersect(c, d)
polígono1, f, c_1, d_1, e = Polygon(F, C, D, E)
K = Point(a)
j = Segment(E, K)
α = Angle(E, K, D)
distanciaED = Distance(E, D)
TextoED: Name[E] + (Name[D]) + " \, = \, " + distanciaED
distanciaGH = Distance(G, H)
TextoGH: Name[G] + (Name[H]) + " \, = \, " + distanciaGH
I: Q
distanciaGI = Distance(G, I)
TextoGI: Name[G] + (Name[I]) + " \, = \, " + distanciaGI
polígono2, h_1, g_1, i = Polygon(G, I, H)
k = Line(E, g_1)
J: P
polígono3, j_1, e_1, d_2 = Polygon(E, D, J)
distanciaJD = Distance(J, D)
TextoJD: Name[J] + (Name[D]) + " \, = \, " + distanciaJD
m = Segment(L, M)
n = Segment(L, N)
r = Segment(M, L)
s = CircleArc(L, M, O)
polígono4, l_1, m_1, o = Polygon(M, O, L)
R = Intersect(q, s, 1)
β = Angle(M, L, O)
texto4: "Altura del edificio " + h1 + " m"
texto5: "Altura del palo " + l1 + "  m"
k_1 = Ray(I, G1)
n_1 = Ray(J, D1)
n2 = 0 (slider from 0 to 4, step 1)
texto6: "\frac{x}{" + (LaTeX[distanciaGH]) + "}=\frac{" + (LaTeX[distanciaJD]) + "}{" + (LaTeX[distanciaGI]) + "}"
texto2: "x = \frac{" + (LaTeX[distanciaGH]) + "·" + (LaTeX[distanciaJD]) + "}{" + (LaTeX[distanciaGI]) + "}= " + (LaTeX[(Distance[H, G] * Distance[D, J] / Distance[G, I])]) + ""
n1 = 0 (slider from 0 to 1, step 1)
texto7: "Paso " + n2 + ""
texto9: "Inclinación de los 
rayos solares
     " + β + ""