Mostrar graduación (6°)

 Modelo A 

 Modelo B 

 Modelo C 

 Modelo D 

Elección

N.º de unidades

%

Modelo A

Modelo B

Modelo C

Modelo D

Total

Comprobar

Cambiar datos

A = (1, 0)
n1 = Random(1, 12)
n2 = Random(n1 + 1, 18)
n3 = Random(n2 + 1, 19)
P0: A + (4, 0)
sec1 = CircleSector(A, P0, Rotate[P0, ((n1 * 360) * ° / 20), A])
sec2 = CircleSector(A, Rotate[P0, ((n1 * 360) * ° / 20), A], Rotate[P0, ((n2 * 360) * ° / 20), A])
sec3 = CircleSector(A, Rotate[P0, ((n2 * 360) * ° / 20), A], Rotate[P0, ((n3 * 360) * ° / 20), A])
sec4 = CircleSector(A, Rotate[P0, ((n3 * 360) * ° / 20), A], A)
lista1 = Sequence(Segment[A, Rotate[P0, ((k * 360) * ° / 60), A]], k, 1, 60)
graduacion = false
C6 = 100
Listatotales: {20, 40, 60, 80, 120, 160}
B6 = Element(Listatotales, Random[1, 6])
B3 = 0
B4 = 0
B5 = 0
B2 = 0
C2 = 0
C3 = 0
C4 = 0
C5 = 0
comprobar = false
D2 = If(¬comprobar, "  ", If[B2 ≟ (n1 * B6 / 20) ∧ C2 ≟ (5 * n1), "Ok", "Revisa"])
D3 = If(¬comprobar, "  ", If[B3 ≟ ((n2 - n1) * B6 / 20) ∧ C3 ≟ (5 * (n2 - n1)), "Ok", "Revisa"])
D4 = If(¬comprobar, "  ", If[B4 ≟ ((n3 - n2) * B6 / 20) ∧ C4 ≟ (5 * (n3 - n2)), "Ok", "Revisa"])
D5 = If(¬comprobar, "  ", If[B5 ≟ ((20 - n3) * B6 / 20) ∧ C5 ≟ (5 * (20 - n3)), "Ok", "Revisa"])