Tres amigos han puesto dinero para participar en un sorteo.

Tres trabajadores  han realizado una obra.

Tres partidos han participado en unas elecciones con los siguientes resultados:

A ha aportado

, B

y  C 

€

€

€

A ha invertido

, B

y  C

A ha obtenido

, B

y C

horas

Han tenido suerte y les han tocado

Queremos realizar un diagrama de sectores en un semicírculo

A :

Repartimos :

C :

B :

Sorteo

Sorteo

Salario

Salario

Elecciones

Elecciones

Manual

Manual

Aleatorio

Aleatorio

a lo que han aportado. ¿Cómo deben distribuir el dinero obtenido?

∈ que van a repartir con arreglo

horas

horas

Han recibido la cantidad de

∈ por el trabajo realizado y lo van a repartir

proporcionalmente a las horas que han dedicado. ¿Cuánto recibirá cada uno?

escaños

escaños

de forma que cada partido

vea reflejado su resultado en el gráfico. ¿Qué ángulo corresponde a cada partido? 

escaños.

Enunciado

Planteamiento de las proporcionalidad

Cálculos

Representación gráfica

Contexto:

Nuevos datos

Entrada de datos

Resolución del problema

j = 3 (slider from 1 to 3, step 1)
A3 = 10
A2 = 20
A1 = 30
n = 1 (slider from 0 to 1, step 1)
c1 = Random(10, 50)
c = If(n ≟ 1, c1, A3)
b1 = Random(30, 60)
b = If(n ≟ 1, b1, A2)
a1 = Random(20, 40)
a = If(n ≟ 1, a1, A1)
d: a + b + c
CasillaDeEntrada1 = Textfield(A1)
A4 = 18000
CasillaDeEntrada4 = Textfield(A4)
CasillaDeEntrada3 = Textfield(A3)
CasillaDeEntrada2 = Textfield(A2)
a2: (a * 10 / d)
a3: (a * 6 / d)
b2: (b * 6 / d)
c2: (c * 6 / d)
e1 = If(j ≟ 3, 180°, If[j ≟ 1, ((Random[12, 20] * 100) * d), (Random[5, 20] * d)])
e = If(n ≟ 1, e1, A4)
a4: (e1 * a / d)
b4: (e1 * b / d)
ca: (c * a)
c4: (e1 * c / d)
A = (0, -3)
i = 8 (slider from 1 to 12, step 1)
B: A + ((a * i / d), 0)
C: B + ((b * i / d), 0)
D: C + ((c * i / d), 0)
E = (0.2938842975206629, -3.945785123966943)
F: E + ((0.5 * i), 0)
polígono1, f, g, h, j_3, G, H = Polygon(E, F, 4)
EE: E + ((a * i / ((2 * d))), 0)
EF: EE + ((b * i / ((2 * d))), 0)
EG: EF + ((c * i / ((2 * d))), 0)
I = (2.32, -1.6697520661157021)
k = OrthogonalLine(EE, f)
l = OrthogonalLine(EF, f)
J = Intersect(k, h)
K = Intersect(l, h)
polígono4, ef_1, f_1, g_1, k_2 = Polygon(EF, F, G, K)
L = (5.533884297520668, -4.625785123966943)
M: L + ((0.5 * i), 0)
p = Circle(L, M)
LM = Rotate(M, a4, L)
LN = Rotate(LM, b4, L)
LO = Rotate(LN, c4, L)
polígono5, lm, l_1, m = Polygon(L, M, LM)
polígono6, ln_1, l_2, lm_1 = Polygon(L, LM, LN)
polígono7, lo, l_3, ln_2 = Polygon(L, LN, LO)
q = CircleArc(L, M, LM)
r = CircleArc(L, LM, LN)
s = CircleArc(L, LN, LO)
t = Segment(A, B)
i_1 = Segment(B, C)
m_1 = Segment(C, D)
de: (d * e)
texto1: "" + C1 + "
" + C2 + "  " + a + "" + C3 + " " + C4 + " " + b + "" + C5 + "  " + C6 + "" + c + "" + C7 + "
" + C8 + " " + e + " " + C9 + "
" + C10 + ""
texto2: "" + D1 + "
" + D2 + " " + a + " " + D3 + "" + D4 + " " + b + " " + D5 + "  " + D6 + " " + c + " " + D7 + "
" + D8 + " " + e + "" + D9 + "
" + D10 + ""
texto3: "" + E1 + "
" + E2 + " " + a + " " + E3 + "" + E4 + " " + b + " " + E5 + "  " + E6 + " " + c + " " + E7 + "  
" + E8 + "  " + E9 + "
" + E10 + ""
te = If(j ≟ 1, texto1, If[j ≟ 2, texto2, texto3])
ax: (a * e / d)
bx: (b * e / d)
cx: (c * e / d)
ee = If(j ≟ 3, (e1 * 180 / π), e)
texto4: "\frac{x}{" + (LaTeX[a]) + "}=\frac{y}{" + (LaTeX[b]) + "}=\frac{z}{" + (LaTeX[c]) + "}=\frac{" + (LaTeX[ee]) + "}{" + (LaTeX[d]) + "}"
polígono2, e_1, ee_2, j_1, h_1 = Polygon(E, EE, J, H)
ef: ee / d
ay: (ef * a)
texto5: "x=\frac{" + (LaTeX[ee]) + "·" + (LaTeX[a]) + "}{" + (LaTeX[d]) + "}=" + (LaTeX[ef]) + "·" + (LaTeX[a]) + "=" + (LaTeX[ay]) + ""
by: (ef * b)
cy: (ef * c)
texto7: "z=\frac{" + (LaTeX[ee]) + " ·" + (LaTeX[c]) + " }{" + (LaTeX[d]) + " }= " + (LaTeX[ef]) + "· " + (LaTeX[c]) + "= " + (LaTeX[cy]) + ""
polígono3, ee_1, ef_2, k_1, j_2 = Polygon(EE, EF, K, J)
texto6: "y=\frac{ " + (LaTeX[ee]) + "·" + (LaTeX[b]) + " }{" + (LaTeX[d]) + " }= " + (LaTeX[ef]) + "· " + (LaTeX[b]) + "= " + (LaTeX[by]) + ""
o = 4 (slider from 1 to 4, step 1)
N = (-25.654392939232025, -70.66069748597036)
te2 = If(o ≟ 1, texto9a, If[o ≟ 2, texto9b, If[o ≟ 3, texto9c, texto9d]])
texto9: "Paso " + o + ""
textoa1: "A: " + ay + "∈"
textoa3: "C: " + cy + "∈"
textoc1: "A:" + ay + "°
" + a + " esc"
textoc2: "B: " + by + "°
" + b + " esc."
textoc3: "C:" + cy + "°
" + c + " esc."
textob1: "A: " + ay + "∈"
textob2: "B: " + by + "∈"
textob3: "C: " + cy + "∈"
textoa2: "B: " + by + "∈"
textod1: "A: " + a + "€"
textod2: "A: " + a + " horas"
textod3: "A: " + a + " escaños"
textoe1: "B: " + b + "€"
textoe2: "B: " + b + " horas"
textoe3: "B: " + b + " escaños"
textof1: "C: " + c + "€"
textof2: "C: " + c + " horas"
textof3: "C: " + c + " escaños"
O = (-29.40587152311175, -23.514220135871888)
P = (-30.193082671371183, -34.53517621150404)
Q = (-29.799477097241464, -45.752935074201055)
textod = If(j ≟ 1, textod1, If[j ≟ 2, textod2, textod3])
textoe = If(j ≟ 1, textoe1, If[j ≟ 2, textoe2, textoe3])
textof = If(j ≟ 1, textof1, If[j ≟ 2, textof2, textof3])
R = (-3.034298056420651, -33.94476785030946)
textog1: "Repartimos " + ee + "€"
textog2: "Repartimos " + ee + "°"
textog = If(j ≟ 1, textog1, If[j ≟ 2, textog1, textog2])
F1 = Name(texto4)