Otro polígono

Comprobar

Nuevo intento

 Has calculado correctamente los ocho perímetros propuestos.

Perímetro de polígonos en el geoplano.

Mueve los puntos rojos para seleccionar los valores de a,b y c.

Perímetro calculado =

+

+

·(1)

·(\sqrt{2})

·(\sqrt{5})

El perímetro del polígono es:

a \space + b\sqrt{2} \space +c\sqrt{5}

Números irracionales.

Ver ejemplo

Reiniciar construcción

A = (-10, 5)
ancho = 5 (slider from 2 to 6, step 1)
alto = 3 (slider from 2 to 5, step 1)
lista1 = Sequence(Sequence[A + (i * (1, 0)) + (j * (0, -1)), i, 0, ancho], j, 0, alto)
r = 0.3 (slider from 0 to 1, step 0.05)
E_1: A + ((-r), r)
E_3: A + ((1, 0) * ancho) + (r, (-r)) + (alto * (0, -1))
r_1 = Line(E_1, xAxis)
r_2 = Line(E_3, xAxis)
r_4 = Line(E_3, yAxis)
r_3 = Line(E_1, yAxis)
E_2 = Intersect(r_1, r_4)
E_4 = Intersect(r_2, r_3)
polígono1, b_1, d_1, c_1, e_1 = Polygon(E_1, E_2, E_3, E_4)
B = (-9, 5)
C = (-8, 5)
D = (-8, 4)
E = (-7, 4)
F = (-6, 4)
G = (-6, 3)
H = (-6, 2)
I = (-7, 2)
J = (-8, 2)
K = (-8, 3)
L = (-9, 3)
M = (-9, 4)
lista2: {B, C}
lista3: {D, E}
lista4: {F, G}
lista5: {H, I}
lista6: {J, K}
lista7: {L, M}
bc = RandomElement(lista2)
de = RandomElement(lista3)
fg = RandomElement(lista4)
hi = RandomElement(lista5)
jk = RandomElement(lista6)
lm = RandomElement(lista7)
lista8: {bc, de, fg, hi, jk, lm}
polígono2 = Polygon(lista8)
d1 = 2.23606797749979
d2 = 1
d3 = 2
d4 = 2.23606797749979
d5 = 1.4142135623730951
d6 = 1
dis = 9.886349517372675
a = Segment(bc, de)
b = Segment(de, fg)
c = Segment(fg, hi)
d = Segment(hi, jk)
e = Segment(jk, lm)
f = Segment(lm, bc)
N = (-11.5, -0.5)
O = (-9.5, -0.5)
g = Segment(N, O)
P = (-8, -0.5)
Q = (-6, -0.5)
h = Segment(P, Q)
R = (-4.5, -0.5)
S = (-2.5, -0.5)
i = Segment(R, S)
T: N + (O - N) / 8
u = Vector(N, T)
lista9 = Sequence(N + (i * u), i, 0, 8)
X = Point(lista9)
unid: Distance[N, X] / Distance[N, T]
U: P + (Q - P) / 8
lista10 = Sequence(P + (i * u), i, 0, 8)
Y = Point(lista10)
rdos: Distance[P, Y] / Distance[P, U]
V: R + (S - R) / 8
lista11 = Sequence(R + (i * u), i, 0, 8)
Z = Point(lista11)
rcin: Distance[Z, R] / Distance[R, V]
texto202: "" + (LaTeX[rdos]) + "\space \sqrt{2}"
texto102: "" + (LaTeX[unid]) + ""
texto302: "" + (LaTeX[rcin]) + " \space \sqrt{5}"
texto103 = If(unid ≟ 0, "", texto102)
dcal = 10.53663105724556
est = 0 (slider from 0 to 2, step 1)
aciertos = 0 (slider from 0 to 8, step 1)
texto203 = If(rdos ≟ 0, "", texto202)
W = (-1, -4.5)
k = Circle(W, 0.2)
v = Vector(W, W + (0.5, 0))
lista12 = Sequence(Translate[k, Vector[(i * v)]], i, 0, aciertos - 1)
texto303 = If(rcin ≟ 0, "", texto302)
texto4: "Perímetro \space calculado  : " + (LaTeX[texto102]) + "+" + (LaTeX[texto202]) + "+" + (LaTeX[texto302]) + ""
texto101: "a=" + unid + ""
texto201: "b=" + rdos + ""
texto301: "c=" + rcin + ""
texto7 = If(dis ≟ dcal, "Muy bien.", "No es correcto. Revisa los cálculos")
texto15 = LaTeX(dis)
A_1 = (-1, -2.5)
B_1 = (3, -2.5)
j = false