Diagramas de sectores
Author: José Luis Álvarez

El diagrama de sectores es uno de los modelos más utilizados en las representaciones estadísticas, tanto con variables cualitativas como con variables cuantitativas, porque da una imagen muy adecuada de los datos.

En esta aplicación vamos a construir diagramas de sectores para representar diferentes conjuntos de datos. Debes seleccionar, uno a uno, un problema en la vista izquierda de la aplicación, pulsando sobre el correspondiente botón de la parte superior.

En algunos casos se mostrará la tabla de frecuencias de una distribución estadística. En otros casos tendrás que hacer antes el recuento y construir la tabla de frecuencias, antes de calcular la amplitud de los sectores.

En todos los casos representa el primer sector del diagrama a partir del punto de color blanco, que es el único que no podrás mover.

P1

P2

P3

P4

P5

P6

P1

P2

P3

P4

P5

P6

Mostrar ángulos

Comprobar

e = 1 (slider from 1 to 6, step 1)
A = (1.8, 0)
c = Circle(A, 4)
B = Point(c)
C = Point(c)
D = Point(c)
E = Point(c)
F = Point(c)
d = CircleSector(A, B, C)
f = CircleSector(A, C, D)
g = CircleSector(A, D, E)
h = CircleSector(A, E, F)
k = CircleSector(A, F, B)
α = Angle(B, A, C)
β = Angle(C, A, D)
γ = Angle(D, A, E)
δ = Angle(E, A, F)
ε = Angle(F, A, B)
ang = false
comprobar = false
P1 = 0
A1 = 22
A2 = 39
A3 = 51
A4 = 58
A5 = 60
A8 = Segment(A, Rotate[B, ((A1 / $A$5 * 360))°, A])
A9 = Segment(A, Rotate[B, ((A2 / $A$5 * 360))°, A])
A10 = Segment(A, Rotate[B, ((A3 / $A$5 * 360))°, A])
A11 = Segment(A, Rotate[B, ((A4 / $A$5 * 360))°, A])
A12 = Segment(A, Rotate[B, ((A5 / $A$5 * 360))°, A])
F1 = 4
F2 = 20
F3 = 24
F4 = 32
B1 = 32
B2 = 50
B3 = 65
B4 = 74
B5 = 90
C1 = 3
C2 = 8
C3 = 12
C4 = 17
C5 = 19
D1 = 7980
D2: 10293 + D1
D3: 2209 + D2
D4: 4682 + D3
D5: 1309 + D4
E1 = 6
E2 = 14
E3 = 22
E4 = 24
E5 = 30
F5 = 32
B8 = Segment(A, Rotate[B, ((B1 / $B$5 * 360))°, A])
B9 = Segment(A, Rotate[B, ((B2 / $B$5 * 360))°, A])
B10 = Segment(A, Rotate[B, ((B3 / $B$5 * 360))°, A])
B11 = Segment(A, Rotate[B, ((B4 / $B$5 * 360))°, A])
B12 = Segment(A, Rotate[B, ((B5 / $B$5 * 360))°, A])
C8 = Segment(A, Rotate[B, ((C1 / $C$5 * 360))°, A])
C9 = Segment(A, Rotate[B, ((C2 / $C$5 * 360))°, A])
C10 = Segment(A, Rotate[B, ((C3 / $C$5 * 360))°, A])
C11 = Segment(A, Rotate[B, ((C4 / $C$5 * 360))°, A])
C12 = Segment(A, Rotate[B, ((C5 / $C$5 * 360))°, A])
D8 = Segment(A, Rotate[B, ((D1 / $D$5 * 360))°, A])
D9 = Segment(A, Rotate[B, ((D2 / $D$5 * 360))°, A])
D10 = Segment(A, Rotate[B, ((D3 / $D$5 * 360))°, A])
D11 = Segment(A, Rotate[B, ((D4 / $D$5 * 360))°, A])
D12 = Segment(A, Rotate[B, ((D5 / $D$5 * 360))°, A])
E8 = Segment(A, Rotate[B, ((E1 / $E$5 * 360))°, A])
E9 = Segment(A, Rotate[B, ((E2 / $E$5 * 360))°, A])
E10 = Segment(A, Rotate[B, ((E3 / $E$5 * 360))°, A])
E11 = Segment(A, Rotate[B, ((E4 / $E$5 * 360))°, A])
E12 = Segment(A, Rotate[B, ((E5 / $E$5 * 360))°, A])
F8 = Segment(A, Rotate[B, ((F1 / $F$5 * 360))°, A])
F9 = Segment(A, Rotate[B, ((F2 / $F$5 * 360))°, A])
F10 = Segment(A, Rotate[B, ((F3 / $F$5 * 360))°, A])
F11 = Segment(A, Rotate[B, ((F4 / $F$5 * 360))°, A])
F12 = Segment(A, Rotate[B, ((F5 / $F$5 * 360))°, A])