Mostrar graduación (5°)

 Modelo A 

 Modelo B 

 Modelo C 

 Modelo D 

Elección

Nº de unidades

%

Modelo A

Modelo B

Modelo C

Modelo D

Modelo E

Comprobar

Cambiar datos

Total

Modelo F

 Modelo E 

 Modelo F 

A = (1, 0)
n1 = Random(1, 12)
n2 = Random(n1 + 1, 18)
n3 = Random(n2 + 1, 19)
P0: A + (4, 0)
graduacion = false
C6 = 0
Listatotales: {36, 72, 108, 144, 180, 720}
B3 = 0
B4 = 0
B5 = 0
B2 = 0
B6 = 0
C2 = 0
C3 = 0
C4 = 0
C5 = 0
comprobar = false
n4 = Random(n3 + 1, 25)
sec1 = CircleSector(A, P0, Rotate[P0, ((n1 * 360) * ° / 36), A])
sec2 = CircleSector(A, Rotate[P0, ((n1 * 360) * ° / 36), A], Rotate[P0, ((n2 * 360) * ° / 36), A])
sec3 = CircleSector(A, Rotate[P0, ((n2 * 360) * ° / 36), A], Rotate[P0, ((n3 * 360) * ° / 36), A])
n5 = Random(n4 + 1, 35)
sec6 = CircleSector(A, Rotate[P0, ((n5 * 360) * ° / 36), A], A)
sec4 = CircleSector(A, Rotate[P0, ((n3 * 360) * ° / 36), A], Rotate[P0, ((n4 * 360) * ° / 36), A])
sec5 = CircleSector(A, Rotate[P0, ((n4 * 360) * ° / 36), A], Rotate[P0, ((n5 * 360) * ° / 36), A])
lista1 = Sequence(Segment[A, Rotate[P0, ((k * 360) * ° / 72), A]], k, 1, 72)
B8 = Element(Listatotales, Random[1, 6])
C8 = 100
B7 = 0
C7 = 0
D2 = If(¬comprobar, "  ", If[B2 ≟ (n1 * B8 / 36) ∧ C2 ≟ (n1 * 100 / 36), "Ok", "Revisa"])
D3 = If(¬comprobar, "  ", If[B3 ≟ ((n2 - n1) * B8 / 36) ∧ C3 ≟ ((n2 - n1) * 100 / 36), "Ok", "Revisa"])
D4 = If(¬comprobar, "  ", If[B4 ≟ ((n3 - n2) * B8 / 36) ∧ C4 ≟ round(((10 * (n3 - n2)) * 100 / 36)) / 10, "Ok", "Revisa"])
D5 = If(¬comprobar, "  ", If[B5 ≟ ((n4 - n3) * B8 / 36) ∧ C5 ≟ round(((10 * (n4 - n3)) * 100 / 36)) / 10, "Ok", "Revisa"])
D6 = If(¬comprobar, "  ", If[B6 ≟ ((n5 - n4) * B8 / 36) ∧ C6 ≟ round(((10 * (n5 - n4)) * 100 / 36)) / 10, "Ok", "Revisa"])
D7 = If(¬comprobar, "  ", If[B7 ≟ ((36 - n5) * B8 / 36) ∧ C7 ≟ round(((10 * (36 - n5)) * 100 / 36)) / 10, "Ok", "Revisa"])