MÚLTIPLOS DE 2

MÚLTIPLOS DE 3

MÚLTIPLOS DE 5

MÚLTIPLOS DE 7

MÚLTIPLOS DE 11

z0: 12
r: 4
h: 0.15
primos = Sequence(If[IsPrime[k], 1, 0], k, 2, 100)
A1: 1
A2: 2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
A12 = 12
A13 = 13
A14 = 14
A15 = 15
A16 = 16
A17 = 17
A18 = 18
A19 = 19
A20 = 20
A21 = 21
A22 = 22
A23 = 23
A24 = 24
A25 = 25
A26 = 26
A27 = 27
A28 = 28
A29 = 29
A30 = 30
A31 = 31
A32 = 32
A33 = 33
A34 = 34
A35 = 35
A36 = 36
A37 = 37
A38 = 38
A39 = 39
A40 = 40
A41 = 41
A42 = 42
A43 = 43
A44 = 44
A45 = 45
A46 = 46
A47 = 47
A48 = 48
A49 = 49
A50 = 50
A51 = 51
A52 = 52
A53 = 53
A54 = 54
A55 = 55
A56 = 56
A57 = 57
A58 = 58
A59 = 59
A60 = 60
A61 = 61
A62 = 62
A63 = 63
A64 = 64
A65 = 65
A66 = 66
A67 = 67
A68 = 68
A69 = 69
A70 = 70
A71 = 71
A72 = 72
A73 = 73
A74 = 74
A75 = 75
A76 = 76
A77 = 77
A78 = 78
A79 = 79
A80 = 80
A81 = 81
A82 = 82
A83 = 83
A84 = 84
A85 = 85
A86 = 86
A87 = 87
A88 = 88
A89 = 89
A90 = 90
A91 = 91
A92 = 92
A93 = 93
A94 = 94
A95 = 95
A96 = 96
A97 = 97
A98 = 98
A99 = 99
A100 = 100
helice5 = CurveCartesian((r * cos((π / 3 * t) - (4 * π / 3))), ((-r) * sin((π / 3 * t) - (4 * π / 3))), (-4 * h) - ((5 * h) * t) + 0.1, t, 0, 20)
helice7 = CurveCartesian((r * cos((π / 3 * t))), (r * sin((π / 3 * t))), (-6 * h) - ((7 * h) * t) + 0.15, t, 0, 14)
helice11 = CurveCartesian((r * cos((π / 3 * t) - (4 * π / 3))), ((-r) * sin((π / 3 * t) - (4 * π / 3))), (-10 * h) - ((11 * h) * t), t, 0, 8)
B2 = Text(A3, ((r * cos((A2 * π / 3))), (r * sin((A2 * π / 3))), ((-A2) * h)))
B1 = Text(A2, ((r * cos((A1 * π / 3))), (r * sin((A1 * π / 3))), ((-A1) * h)))
B3 = Text(A4, ((r * cos((A3 * π / 3))), (r * sin((A3 * π / 3))), ((-A3) * h)))
B4 = Text(A5, ((r * cos((A4 * π / 3))), (r * sin((A4 * π / 3))), ((-A4) * h)))
B5 = Text(A6, ((r * cos((A5 * π / 3))), (r * sin((A5 * π / 3))), ((-A5) * h)))
B6 = Text(A7, ((r * cos((A6 * π / 3))), (r * sin((A6 * π / 3))), ((-A6) * h)))
B7 = Text(A8, ((r * cos((A7 * π / 3))), (r * sin((A7 * π / 3))), ((-A7) * h)))
B8 = Text(A9, ((r * cos((A8 * π / 3))), (r * sin((A8 * π / 3))), ((-A8) * h)))
B9 = Text(A10, ((r * cos((A9 * π / 3))), (r * sin((A9 * π / 3))), ((-A9) * h)))
B10 = Text(A11, ((r * cos((A10 * π / 3))), (r * sin((A10 * π / 3))), ((-A10) * h)))
B11 = Text(A12, ((r * cos((A11 * π / 3))), (r * sin((A11 * π / 3))), ((-A11) * h)))
B12 = Text(A13, ((r * cos((A12 * π / 3))), (r * sin((A12 * π / 3))), ((-A12) * h)))
B13 = Text(A14, ((r * cos((A13 * π / 3))), (r * sin((A13 * π / 3))), ((-A13) * h)))
B14 = Text(A15, ((r * cos((A14 * π / 3))), (r * sin((A14 * π / 3))), ((-A14) * h)))
B15 = Text(A16, ((r * cos((A15 * π / 3))), (r * sin((A15 * π / 3))), ((-A15) * h)))
B16 = Text(A17, ((r * cos((A16 * π / 3))), (r * sin((A16 * π / 3))), ((-A16) * h)))
B17 = Text(A18, ((r * cos((A17 * π / 3))), (r * sin((A17 * π / 3))), ((-A17) * h)))
B18 = Text(A19, ((r * cos((A18 * π / 3))), (r * sin((A18 * π / 3))), ((-A18) * h)))
B19 = Text(A20, ((r * cos((A19 * π / 3))), (r * sin((A19 * π / 3))), ((-A19) * h)))
B20 = Text(A21, ((r * cos((A20 * π / 3))), (r * sin((A20 * π / 3))), ((-A20) * h)))
B21 = Text(A22, ((r * cos((A21 * π / 3))), (r * sin((A21 * π / 3))), ((-A21) * h)))
B22 = Text(A23, ((r * cos((A22 * π / 3))), (r * sin((A22 * π / 3))), ((-A22) * h)))
B23 = Text(A24, ((r * cos((A23 * π / 3))), (r * sin((A23 * π / 3))), ((-A23) * h)))
B24 = Text(A25, ((r * cos((A24 * π / 3))), (r * sin((A24 * π / 3))), ((-A24) * h)))
B25 = Text(A26, ((r * cos((A25 * π / 3))), (r * sin((A25 * π / 3))), ((-A25) * h)))
B26 = Text(A27, ((r * cos((A26 * π / 3))), (r * sin((A26 * π / 3))), ((-A26) * h)))
B27 = Text(A28, ((r * cos((A27 * π / 3))), (r * sin((A27 * π / 3))), ((-A27) * h)))
B28 = Text(A29, ((r * cos((A28 * π / 3))), (r * sin((A28 * π / 3))), ((-A28) * h)))
B29 = Text(A30, ((r * cos((A29 * π / 3))), (r * sin((A29 * π / 3))), ((-A29) * h)))
B30 = Text(A31, ((r * cos((A30 * π / 3))), (r * sin((A30 * π / 3))), ((-A30) * h)))
B31 = Text(A32, ((r * cos((A31 * π / 3))), (r * sin((A31 * π / 3))), ((-A31) * h)))
B32 = Text(A33, ((r * cos((A32 * π / 3))), (r * sin((A32 * π / 3))), ((-A32) * h)))
B33 = Text(A34, ((r * cos((A33 * π / 3))), (r * sin((A33 * π / 3))), ((-A33) * h)))
B34 = Text(A35, ((r * cos((A34 * π / 3))), (r * sin((A34 * π / 3))), ((-A34) * h)))
B35 = Text(A36, ((r * cos((A35 * π / 3))), (r * sin((A35 * π / 3))), ((-A35) * h)))
B36 = Text(A37, ((r * cos((A36 * π / 3))), (r * sin((A36 * π / 3))), ((-A36) * h)))
B37 = Text(A38, ((r * cos((A37 * π / 3))), (r * sin((A37 * π / 3))), ((-A37) * h)))
B38 = Text(A39, ((r * cos((A38 * π / 3))), (r * sin((A38 * π / 3))), ((-A38) * h)))
B39 = Text(A40, ((r * cos((A39 * π / 3))), (r * sin((A39 * π / 3))), ((-A39) * h)))
B40 = Text(A41, ((r * cos((A40 * π / 3))), (r * sin((A40 * π / 3))), ((-A40) * h)))
B41 = Text(A42, ((r * cos((A41 * π / 3))), (r * sin((A41 * π / 3))), ((-A41) * h)))
B42 = Text(A43, ((r * cos((A42 * π / 3))), (r * sin((A42 * π / 3))), ((-A42) * h)))
B43 = Text(A44, ((r * cos((A43 * π / 3))), (r * sin((A43 * π / 3))), ((-A43) * h)))
B44 = Text(A45, ((r * cos((A44 * π / 3))), (r * sin((A44 * π / 3))), ((-A44) * h)))
B45 = Text(A46, ((r * cos((A45 * π / 3))), (r * sin((A45 * π / 3))), ((-A45) * h)))
B46 = Text(A47, ((r * cos((A46 * π / 3))), (r * sin((A46 * π / 3))), ((-A46) * h)))
B47 = Text(A48, ((r * cos((A47 * π / 3))), (r * sin((A47 * π / 3))), ((-A47) * h)))
B48 = Text(A49, ((r * cos((A48 * π / 3))), (r * sin((A48 * π / 3))), ((-A48) * h)))
B49 = Text(A50, ((r * cos((A49 * π / 3))), (r * sin((A49 * π / 3))), ((-A49) * h)))
B50 = Text(A51, ((r * cos((A50 * π / 3))), (r * sin((A50 * π / 3))), ((-A50) * h)))
B51 = Text(A52, ((r * cos((A51 * π / 3))), (r * sin((A51 * π / 3))), ((-A51) * h)))
B52 = Text(A53, ((r * cos((A52 * π / 3))), (r * sin((A52 * π / 3))), ((-A52) * h)))
B53 = Text(A54, ((r * cos((A53 * π / 3))), (r * sin((A53 * π / 3))), ((-A53) * h)))
B54 = Text(A55, ((r * cos((A54 * π / 3))), (r * sin((A54 * π / 3))), ((-A54) * h)))
B55 = Text(A56, ((r * cos((A55 * π / 3))), (r * sin((A55 * π / 3))), ((-A55) * h)))
B56 = Text(A57, ((r * cos((A56 * π / 3))), (r * sin((A56 * π / 3))), ((-A56) * h)))
B57 = Text(A58, ((r * cos((A57 * π / 3))), (r * sin((A57 * π / 3))), ((-A57) * h)))
B58 = Text(A59, ((r * cos((A58 * π / 3))), (r * sin((A58 * π / 3))), ((-A58) * h)))
B59 = Text(A60, ((r * cos((A59 * π / 3))), (r * sin((A59 * π / 3))), ((-A59) * h)))
B60 = Text(A61, ((r * cos((A60 * π / 3))), (r * sin((A60 * π / 3))), ((-A60) * h)))
B61 = Text(A62, ((r * cos((A61 * π / 3))), (r * sin((A61 * π / 3))), ((-A61) * h)))
B62 = Text(A63, ((r * cos((A62 * π / 3))), (r * sin((A62 * π / 3))), ((-A62) * h)))
B63 = Text(A64, ((r * cos((A63 * π / 3))), (r * sin((A63 * π / 3))), ((-A63) * h)))
B64 = Text(A65, ((r * cos((A64 * π / 3))), (r * sin((A64 * π / 3))), ((-A64) * h)))
B65 = Text(A66, ((r * cos((A65 * π / 3))), (r * sin((A65 * π / 3))), ((-A65) * h)))
B66 = Text(A67, ((r * cos((A66 * π / 3))), (r * sin((A66 * π / 3))), ((-A66) * h)))
B67 = Text(A68, ((r * cos((A67 * π / 3))), (r * sin((A67 * π / 3))), ((-A67) * h)))
B68 = Text(A69, ((r * cos((A68 * π / 3))), (r * sin((A68 * π / 3))), ((-A68) * h)))
B69 = Text(A70, ((r * cos((A69 * π / 3))), (r * sin((A69 * π / 3))), ((-A69) * h)))
B70 = Text(A71, ((r * cos((A70 * π / 3))), (r * sin((A70 * π / 3))), ((-A70) * h)))
B71 = Text(A72, ((r * cos((A71 * π / 3))), (r * sin((A71 * π / 3))), ((-A71) * h)))
B72 = Text(A73, ((r * cos((A72 * π / 3))), (r * sin((A72 * π / 3))), ((-A72) * h)))
B73 = Text(A74, ((r * cos((A73 * π / 3))), (r * sin((A73 * π / 3))), ((-A73) * h)))
B74 = Text(A75, ((r * cos((A74 * π / 3))), (r * sin((A74 * π / 3))), ((-A74) * h)))
B75 = Text(A76, ((r * cos((A75 * π / 3))), (r * sin((A75 * π / 3))), ((-A75) * h)))
B76 = Text(A77, ((r * cos((A76 * π / 3))), (r * sin((A76 * π / 3))), ((-A76) * h)))
B77 = Text(A78, ((r * cos((A77 * π / 3))), (r * sin((A77 * π / 3))), ((-A77) * h)))
B78 = Text(A79, ((r * cos((A78 * π / 3))), (r * sin((A78 * π / 3))), ((-A78) * h)))
B79 = Text(A80, ((r * cos((A79 * π / 3))), (r * sin((A79 * π / 3))), ((-A79) * h)))
B80 = Text(A81, ((r * cos((A80 * π / 3))), (r * sin((A80 * π / 3))), ((-A80) * h)))
B81 = Text(A82, ((r * cos((A81 * π / 3))), (r * sin((A81 * π / 3))), ((-A81) * h)))
B82 = Text(A83, ((r * cos((A82 * π / 3))), (r * sin((A82 * π / 3))), ((-A82) * h)))
B83 = Text(A84, ((r * cos((A83 * π / 3))), (r * sin((A83 * π / 3))), ((-A83) * h)))
B84 = Text(A85, ((r * cos((A84 * π / 3))), (r * sin((A84 * π / 3))), ((-A84) * h)))
B85 = Text(A86, ((r * cos((A85 * π / 3))), (r * sin((A85 * π / 3))), ((-A85) * h)))
B86 = Text(A87, ((r * cos((A86 * π / 3))), (r * sin((A86 * π / 3))), ((-A86) * h)))
B87 = Text(A88, ((r * cos((A87 * π / 3))), (r * sin((A87 * π / 3))), ((-A87) * h)))
B88 = Text(A89, ((r * cos((A88 * π / 3))), (r * sin((A88 * π / 3))), ((-A88) * h)))
B89 = Text(A90, ((r * cos((A89 * π / 3))), (r * sin((A89 * π / 3))), ((-A89) * h)))
B90 = Text(A91, ((r * cos((A90 * π / 3))), (r * sin((A90 * π / 3))), ((-A90) * h)))
B91 = Text(A92, ((r * cos((A91 * π / 3))), (r * sin((A91 * π / 3))), ((-A91) * h)))
B92 = Text(A93, ((r * cos((A92 * π / 3))), (r * sin((A92 * π / 3))), ((-A92) * h)))
B93 = Text(A94, ((r * cos((A93 * π / 3))), (r * sin((A93 * π / 3))), ((-A93) * h)))
B94 = Text(A95, ((r * cos((A94 * π / 3))), (r * sin((A94 * π / 3))), ((-A94) * h)))
B95 = Text(A96, ((r * cos((A95 * π / 3))), (r * sin((A95 * π / 3))), ((-A95) * h)))
B96 = Text(A97, ((r * cos((A96 * π / 3))), (r * sin((A96 * π / 3))), ((-A96) * h)))
B97 = Text(A98, ((r * cos((A97 * π / 3))), (r * sin((A97 * π / 3))), ((-A97) * h)))
B98 = Text(A99, ((r * cos((A98 * π / 3))), (r * sin((A98 * π / 3))), ((-A98) * h)))
B99 = Text(A100, ((r * cos((A99 * π / 3))), (r * sin((A99 * π / 3))), ((-A99) * h)))
m2 = false
m3 = false
m5 = false
m7 = false
m11 = false
r': r - h
par1 = Segment(((r * cos(π / 3)), (r * sin(π / 3)), (-h)), ((r * cos((97 * π / 3))), (r * sin((97 * π / 3))), (-98 * h)))
par2 = Segment(((r * cos((3 * π / 3))), (r * sin((3 * π / 3))), (-h)), ((r * cos((99 * π / 3))), (r * sin((99 * π / 3))), (-100 * h)))
par3 = Segment(((r * cos((5 * π / 3))), (r * sin((5 * π / 3))), (-h)), ((r * cos((95 * π / 3))), (r * sin((95 * π / 3))), (-96 * h)))
rectas2: {Segment[((r * cos(π / 3)), (r * sin(π / 3)), (-h)), ((r * cos((97 * π / 3))), (r * sin((97 * π / 3))), (-98 * h))], Segment[((r * cos((3 * π / 3))), (r * sin((3 * π / 3))), (-h)), ((r * cos((99 * π / 3))), (r * sin((99 * π / 3))), (-100 * h))], Segment[((r * cos((5 * π / 3))), (r * sin((5 * π / 3))), (-h)), ((r * cos((95 * π / 3))), (r * sin((95 * π / 3))), (-96 * h))]}
rectas3: {Segment[((r * cos((2 * π / 3))), (r * sin((2 * π / 3))), (-h)), ((r * cos((98 * π / 3))), (r * sin((98 * π / 3))), (-99 * h))], Segment[((r * cos((5 * π / 3))), (r * sin((5 * π / 3))), (-h)), ((r * cos((95 * π / 3))), (r * sin((95 * π / 3))), (-96 * h))]}