Los números felices

El 44 es un número feliz porque si sumamos los cuadrados de las cifras que lo componen 42+42=32. Repetimos el proceso con el 32 y al final se obtiene...
 
Investiga sobre números felices y números tristes

La aplicación te permite comprobar si un número es feliz. Se introduce en la casilla de entrada y al mover el deslizador hacia la derecha se desvelan los pasos hasta que se encuentra una repetición. A partir de ahí no hace falta continuar.
 
Algunas ideas para orientar la investigación
-Intenta obtener una pequeña colección de números felices y números tristes.
-Qué crees que habrá más cantidad, números felices o números tristes?
-Busca formas de generar números felices y tristes a partir de los que ya tienes. Describe con tus palabras esas reglas.
-Intenta clasificar todos los números hasta el 100 en felices o tristes.

Introduce un número

Tu número :

Desliza hacia la derecha

a: 44
CasillaDeEntrada1: a
a1: a - (10 * floor(a / 10))
a2: (a - (100 * floor(a / 100)) - a1) / 10
a3: (a - (1000 * floor(a / 1000)) - (a2 * 10) - a1) / 100
a4: (a - (100 * a3) - (10 * a2) - a1) / 1000
B2: a4
C2: a3
D2: a2
E2: a1
F2: B2^(2) + C2^(2) + D2^(2) + E2^(2)
E3: F2 - (10 * floor(F2 / 10))
D3: (F2 - (100 * floor(F2 / 100)) - E3) / 10
C3: (F2 - (1000 * floor(F2 / 1000)) - (D3 * 10) - E3) / 100
B3: (F2 - (100 * C3) - (10 * D3) - E3) / 1000
F3: B3^(2) + C3^(2) + D3^(2) + E3^(2)
E4: F3 - (10 * floor(F3 / 10))
D4: (F3 - (100 * floor(F3 / 100)) - E4) / 10
C4: (F3 - (1000 * floor(F3 / 1000)) - (D4 * 10) - E4) / 100
B4: (F3 - (100 * C4) - (10 * D4) - E4) / 1000
F4: B4^(2) + C4^(2) + D4^(2) + E4^(2)
E5: F4 - (10 * floor(F4 / 10))
D5: (F4 - (100 * floor(F4 / 100)) - E5) / 10
C5: (F4 - (1000 * floor(F4 / 1000)) - (D5 * 10) - E5) / 100
B5: (F4 - (100 * C5) - (10 * D5) - E5) / 1000
F5: B5^(2) + C5^(2) + D5^(2) + E5^(2)
E6: F5 - (10 * floor(F5 / 10))
D6: (F5 - (100 * floor(F5 / 100)) - E6) / 10
C6: (F5 - (1000 * floor(F5 / 1000)) - (D6 * 10) - E6) / 100
B6: (F5 - (100 * C6) - (10 * D6) - E6) / 1000
F6: B6^(2) + C6^(2) + D6^(2) + E6^(2)
E7: F6 - (10 * floor(F6 / 10))
D7: (F6 - (100 * floor(F6 / 100)) - E7) / 10
C7: (F6 - (1000 * floor(F6 / 1000)) - (D7 * 10) - E7) / 100
B7: (F6 - (100 * C7) - (10 * D7) - E7) / 1000
F7: B7^(2) + C7^(2) + D7^(2) + E7^(2)
E8: F7 - (10 * floor(F7 / 10))
D8: (F7 - (100 * floor(F7 / 100)) - E8) / 10
C8: (F7 - (1000 * floor(F7 / 1000)) - (D8 * 10) - E8) / 100
B8: (F7 - (100 * C8) - (10 * D8) - E8) / 1000
F8: B8^(2) + C8^(2) + D8^(2) + E8^(2)
E9: F8 - (10 * floor(F8 / 10))
D9: (F8 - (100 * floor(F8 / 100)) - E9) / 10
C9: (F8 - (1000 * floor(F8 / 1000)) - (D9 * 10) - E9) / 100
B9: (F8 - (100 * C9) - (10 * D9) - E9) / 1000
F9: B9^(2) + C9^(2) + D9^(2) + E9^(2)
E10: F9 - (10 * floor(F9 / 10))
D10: (F9 - (100 * floor(F9 / 100)) - E10) / 10
C10: (F9 - (1000 * floor(F9 / 1000)) - (D10 * 10) - E10) / 100
B10: (F9 - (100 * C10) - (10 * D10) - E10) / 1000
F10: B10^(2) + C10^(2) + D10^(2) + E10^(2)
E11: F10 - (10 * floor(F10 / 10))
D11: (F10 - (100 * floor(F10 / 100)) - E11) / 10
C11: (F10 - (1000 * floor(F10 / 1000)) - (D11 * 10) - E11) / 100
B11: (F10 - (100 * C11) - (10 * D11) - E11) / 1000
F11: B11^(2) + C11^(2) + D11^(2) + E11^(2)
E12: F11 - (10 * floor(F11 / 10))
D12: (F11 - (100 * floor(F11 / 100)) - E12) / 10
C12: (F11 - (1000 * floor(F11 / 1000)) - (D12 * 10) - E12) / 100
B12: (F11 - (100 * C12) - (10 * D12) - E12) / 1000
F12: B12^(2) + C12^(2) + D12^(2) + E12^(2)
E13: F12 - (10 * floor(F12 / 10))
D13: (F12 - (100 * floor(F12 / 100)) - E13) / 10
C13: (F12 - (1000 * floor(F12 / 1000)) - (D13 * 10) - E13) / 100
B13: (F12 - (100 * C13) - (10 * D13) - E13) / 1000
F13: B13^(2) + C13^(2) + D13^(2) + E13^(2)
E14: F13 - (10 * floor(F13 / 10))
D14: (F13 - (100 * floor(F13 / 100)) - E14) / 10
C14: (F13 - (1000 * floor(F13 / 1000)) - (D14 * 10) - E14) / 100
B14: (F13 - (100 * C14) - (10 * D14) - E14) / 1000
F14: B14^(2) + C14^(2) + D14^(2) + E14^(2)
E15: F14 - (10 * floor(F14 / 10))
D15: (F14 - (100 * floor(F14 / 100)) - E15) / 10
C15: (F14 - (1000 * floor(F14 / 1000)) - (D15 * 10) - E15) / 100
B15: (F14 - (100 * C15) - (10 * D15) - E15) / 1000
F15: B15^(2) + C15^(2) + D15^(2) + E15^(2)
E16: F15 - (10 * floor(F15 / 10))
D16: (F15 - (100 * floor(F15 / 100)) - E16) / 10
C16: (F15 - (1000 * floor(F15 / 1000)) - (D16 * 10) - E16) / 100
B16: (F15 - (100 * C16) - (10 * D16) - E16) / 1000
F16: B16^(2) + C16^(2) + D16^(2) + E16^(2)
E17: F16 - (10 * floor(F16 / 10))
D17: (F16 - (100 * floor(F16 / 100)) - E17) / 10
C17: (F16 - (1000 * floor(F16 / 1000)) - (D17 * 10) - E17) / 100
B17: (F16 - (100 * C17) - (10 * D17) - E17) / 1000
F17: B17^(2) + C17^(2) + D17^(2) + E17^(2)
G2 = If(F2 ≟ 1, 1, If[F2 ≟ 4, -1, 0])
G3: If[F3 ≟ 1, 1, If[F3 ≟ 4, -1, 0]] + G2
G4: If[F4 ≟ 1, 1, If[F4 ≟ 4, -1, 0]] + G3
G5: If[F5 ≟ 1, 1, If[F5 ≟ 4, -1, 0]] + G4
G6: If[F6 ≟ 1, 1, If[F6 ≟ 4, -1, 0]] + G5
G7: If[F7 ≟ 1, 1, If[F7 ≟ 4, -1, 0]] + G6
G8: If[F8 ≟ 1, 1, If[F8 ≟ 4, -1, 0]] + G7
G9: If[F9 ≟ 1, 1, If[F9 ≟ 4, -1, 0]] + G8
G10: If[F10 ≟ 1, 1, If[F10 ≟ 4, -1, 0]] + G9
G11: If[F11 ≟ 1, 1, If[F11 ≟ 4, -1, 0]] + G10
G12: If[F12 ≟ 1, 1, If[F12 ≟ 4, -1, 0]] + G11
G13: If[F13 ≟ 1, 1, If[F13 ≟ 4, -1, 0]] + G12
G14: If[F14 ≟ 1, 1, If[F14 ≟ 4, -1, 0]] + G13
G15: If[F15 ≟ 1, 1, If[F15 ≟ 4, -1, 0]] + G14
G16: If[F16 ≟ 1, 1, If[F16 ≟ 4, -1, 0]] + G15
G17: If[F17 ≟ 1, 1, If[F17 ≟ 4, -1, 0]] + G16
I3: F3 - F$2
I4: F4 - F$2
I5: F5 - F$2
I6: F6 - F$2
I7: F7 - F$2
I8: F8 - F$2
I9: F9 - F$2
I10: F10 - F$2
I11: F11 - F$2
I12: F12 - F$2
I13: F13 - F$2
I14: F14 - F$2
I15: F15 - F$2
I16: F16 - F$2
I17: F17 - F$2
J4: F4 - F$3
J5: F5 - F$3
J6: F6 - F$3
J7: F7 - F$3
J8: F8 - F$3
J9: F9 - F$3
J10: F10 - F$3
J11: F11 - F$3
J12: F12 - F$3
J13: F13 - F$3
J14: F14 - F$3
J15: F15 - F$3
J16: F16 - F$3
J17: F17 - F$3
J2: F2 - F$3
K2: F2 - F$4
K3: F3 - F$4
K5: F5 - F$4
K6: F6 - F$4
K7: F7 - F$4
K8: F8 - F$4
K9: F9 - F$4
K10: F10 - F$4
K11: F11 - F$4
K12: F12 - F$4
K13: F13 - F$4
K14: F14 - F$4
K15: F15 - F$4
K16: F16 - F$4
K17: F17 - F$4
L2: F2 - F$5
L3: F3 - F$5
L4: F4 - F$5
L6: F6 - F$5
L7: F7 - F$5
L8: F8 - F$5
L9: F9 - F$5
L10: F10 - F$5
L11: F11 - F$5
L12: F12 - F$5
L13: F13 - F$5
L14: F14 - F$5
L15: F15 - F$5
L16: F16 - F$5
L17: F17 - F$5
M2: F2 - F$6
M3: F3 - F$6
M4: F4 - F$6
M5: F5 - F$6
M7: F7 - F$6
M8: F8 - F$6
M9: F9 - F$6
M10: F10 - F$6
M11: F11 - F$6
M12: F12 - F$6
M13: F13 - F$6
M14: F14 - F$6
M15: F15 - F$6
M16: F16 - F$6
M17: F17 - F$6
N2: F2 - F$7
N3: F3 - F$7
N4: F4 - F$7
N5: F5 - F$7
N6: F6 - F$7
N8: F8 - F$7
N9: F9 - F$7
N10: F10 - F$7
N11: F11 - F$7
N12: F12 - F$7
N13: F13 - F$7
N14: F14 - F$7
N15: F15 - F$7
N16: F16 - F$7
N17: F17 - F$7
O2: F2 - F$8
O3: F3 - F$8
O4: F4 - F$8
O5: F5 - F$8
O6: F6 - F$8
O7: F7 - F$8
O9: F9 - F$8
O10: F10 - F$8
O11: F11 - F$8
O12: F12 - F$8
O13: F13 - F$8
O14: F14 - F$8
O15: F15 - F$8
O16: F16 - F$8
O17: F17 - F$8
P2: F2 - F$9
Q2: F2 - F$10
R2: F2 - F$11
S2: F2 - F$12
T2: F2 - F$13
U2: F2 - F$14
V2: F2 - F$15
W2: F2 - F$16
P3: F3 - F$9
Q3: F3 - F$10
R3: F3 - F$11
S3: F3 - F$12
T3: F3 - F$13
U3: F3 - F$14
V3: F3 - F$15
W3: F3 - F$16
P4: F4 - F$9
Q4: F4 - F$10
R4: F4 - F$11
S4: F4 - F$12
T4: F4 - F$13
U4: F4 - F$14
V4: F4 - F$15
W4: F4 - F$16
P5: F5 - F$9
Q5: F5 - F$10
R5: F5 - F$11
S5: F5 - F$12
T5: F5 - F$13
U5: F5 - F$14
V5: F5 - F$15
W5: F5 - F$16
P6: F6 - F$9
Q6: F6 - F$10
R6: F6 - F$11
S6: F6 - F$12
T6: F6 - F$13
U6: F6 - F$14
V6: F6 - F$15
W6: F6 - F$16
P7: F7 - F$9
Q7: F7 - F$10
R7: F7 - F$11
S7: F7 - F$12
T7: F7 - F$13
U7: F7 - F$14
V7: F7 - F$15
W7: F7 - F$16
P8: F8 - F$9
Q8: F8 - F$10
R8: F8 - F$11
S8: F8 - F$12
T8: F8 - F$13
U8: F8 - F$14
V8: F8 - F$15
W8: F8 - F$16
Q9: F9 - F$10
R9: F9 - F$11
S9: F9 - F$12
T9: F9 - F$13
U9: F9 - F$14
V9: F9 - F$15
W9: F9 - F$16
P10: F10 - F$9
R10: F10 - F$11
S10: F10 - F$12
T10: F10 - F$13
U10: F10 - F$14
V10: F10 - F$15
W10: F10 - F$16
P11: F11 - F$9
Q11: F11 - F$10
S11: F11 - F$12
T11: F11 - F$13
U11: F11 - F$14
V11: F11 - F$15
W11: F11 - F$16
P12: F12 - F$9
Q12: F12 - F$10
R12: F12 - F$11
T12: F12 - F$13
U12: F12 - F$14
V12: F12 - F$15
W12: F12 - F$16
P13: F13 - F$9
Q13: F13 - F$10
R13: F13 - F$11
S13: F13 - F$12
U13: F13 - F$14
V13: F13 - F$15
W13: F13 - F$16
P14: F14 - F$9
Q14: F14 - F$10
R14: F14 - F$11
S14: F14 - F$12
T14: F14 - F$13
V14: F14 - F$15
W14: F14 - F$16
P15: F15 - F$9
Q15: F15 - F$10
R15: F15 - F$11
S15: F15 - F$12
T15: F15 - F$13
U15: F15 - F$14
W15: F15 - F$16
P16: F16 - F$9
Q16: F16 - F$10
R16: F16 - F$11
S16: F16 - F$12
T16: F16 - F$13
U16: F16 - F$14
V16: F16 - F$15
P17: F17 - F$9
Q17: F17 - F$10
R17: F17 - F$11
S17: F17 - F$12
T17: F17 - F$13
U17: F17 - F$14
V17: F17 - F$15
W17: F17 - F$16
I2: 1000
J3: 1000
K4: 1000
L5: 1000
M6: 1000
N7: 1000
O8: 1000
P9: 1000
Q10: 1000
R11: 1000
S12: 1000
T13: 1000
U14: 1000
V15: 1000
W16: 1000
A2: 1
A3: 2
A4 = 3
A5 = 4
A6 = 5
A7 = 6
A8 = 7
A9 = 8
A10 = 9
A11 = 10
A12 = 11
A13 = 12
A14 = 13
A15 = 14
A16 = 15
A17 = 16
I1: 1
J1: 2
H2: 1
H3: 2
H4 = 3
H5 = 4
H6 = 5
H7 = 6
H8 = 7
H9 = 8
H10 = 9
H11 = 10
H12 = 11
H13 = 12
H14 = 13
H15 = 14
H16 = 15
H17 = 16
K1 = 3
L1 = 4
M1 = 5
N1 = 6
O1 = 7
P1 = 8
Q1 = 9
R1 = 10
S1 = 11
T1 = 12
U1 = 13
V1 = 14
W1 = 15
X1 = 16
X2: F2 - F$17
X3: F3 - F$17
X4: F4 - F$17
X5: F5 - F$17
X6: F6 - F$17
X7: F7 - F$17
X8: F8 - F$17
X9: F9 - F$17
X10: F10 - F$17
X11: F11 - F$17
X12: F12 - F$17
X13: F13 - F$17
X14: F14 - F$17
X15: F15 - F$17
X16: F16 - F$17
X17: 1000
m1: {{I2, J2, K2, L2, M2, N2, O2, P2, Q2, R2, S2, T2, U2, V2, W2, X2}, {I3, J3, K3, L3, M3, N3, O3, P3, Q3, R3, S3, T3, U3, V3, W3, X3}, {I4, J4, K4, L4, M4, N4, O4, P4, Q4, R4, S4, T4, U4, V4, W4, X4}, {I5, J5, K5, L5, M5, N5, O5, P5, Q5, R5, S5, T5, U5, V5, W5, X5}, {I6, J6, K6, L6, M6, N6, O6, P6, Q6, R6, S6, T6, U6, V6, W6, X6}, {I7, J7, K7, L7, M7, N7, O7, P7, Q7, R7, S7, T7, U7, V7, W7, X7}, {I8, J8, K8, L8, M8, N8, O8, P8, Q8, R8, S8, T8, U8, V8, W8, X8}, {I9, J9, K9, L9, M9, N9, O9, P9, Q9, R9, S9, T9, U9, V9, W9, X9}, {I10, J10, K10, L10, M10, N10, O10, P10, Q10, R10, S10, T10, U10, V10, W10, X10}, {I11, J11, K11, L11, M11, N11, O11, P11, Q11, R11, S11, T11, U11, V11, W11, X11}, {I12, J12, K12, L12, M12, N12, O12, P12, Q12, R12, S12, T12, U12, V12, W12, X12}, {I13, J13, K13, L13, M13, N13, O13, P13, Q13, R13, S13, T13, U13, V13, W13, X13}, {I14, J14, K14, L14, M14, N14, O14, P14, Q14, R14, S14, T14, U14, V14, W14, X14}, {I15, J15, K15, L15, M15, N15, O15, P15, Q15, R15, S15, T15, U15, V15, W15, X15}, {I16, J16, K16, L16, M16, N16, O16, P16, Q16, R16, S16, T16, U16, V16, W16, X16}, {I17, J17, K17, L17, M17, N17, O17, P17, Q17, R17, S17, T17, U17, V17, W17, X17}}
cc = Sequence(Sequence[If[Element[m1, i, j] ≟ 0, i, 0], j, 1, 16, 1], i, 1, 16, 1)
Y21: I20:X20
X21 = RemoveUndefined(Y21)
W21 = Element(X21, 1)
A1: W21
A21 = If(A2 ≠ 0, A2)
A22 = If(A3 ≠ 0, A3)
A23 = If(A4 ≠ 0, A4)
A24 = If(A5 ≠ 0, A5)
A25 = If(A6 ≠ 0, A6)
A26 = If(A7 ≠ 0, A7)
A27 = If(A8 ≠ 0, A8)
A28 = If(A9 ≠ 0, A9)
A29 = If(A10 ≠ 0, A10)
A30 = If(A11 ≠ 0, A11)
A31 = If(A12 ≠ 0, A12)
A32 = If(A13 ≠ 0, A13)
A33 = If(A14 ≠ 0, A14)
A34 = If(A15 ≠ 0, A15)
A35 = If(A16 ≠ 0, A16)
A36 = If(A17 ≠ 0, A17)
I19: I2:I18
I20 = IndexOf(0, I19)
J19: J2:J18
J20 = IndexOf(0, J19)
K19: K2:K18
K20 = IndexOf(0, K19)
L19: L2:L18
L20 = IndexOf(0, L19)
M19: M2:M18
M20 = IndexOf(0, M19)
N19: N2:N18
N20 = IndexOf(0, N19)
O19: O2:O18
O20 = IndexOf(0, O19)
P19: P2:P18
P20 = IndexOf(0, P19)
Q19: Q2:Q18
Q20 = IndexOf(0, Q19)
R19: R2:R18
R20 = IndexOf(0, R19)
S19: S2:S18
S20 = IndexOf(0, S19)
T19: T2:T18
T20 = IndexOf(0, T19)
U19: U2:U18
U20 = IndexOf(0, U19)
V19: V2:V18
V20 = IndexOf(0, V19)
W19: W2:W18
W20 = IndexOf(0, W19)
X19: X2:X18
X20 = IndexOf(0, X19)
B21 = If(A21 ≥ W$21, 1, 0)
B22 = If(A22 ≥ W$21, 1, 0)
B23 = If(A23 ≥ W$21, 1, 0)
B24 = If(A24 ≥ W$21, 1, 0)
B25 = If(A25 ≥ W$21, 1, 0)
B26 = If(A26 ≥ W$21, 1, 0)
B27 = If(A27 ≥ W$21, 1, 0)
B28 = If(A28 ≥ W$21, 1, 0)
B29 = If(A29 ≥ W$21, 1, 0)
B30 = If(A30 ≥ W$21, 1, 0)
B31 = If(A31 ≥ W$21, 1, 0)
B32 = If(A32 ≥ W$21, 1, 0)
B33 = If(A33 ≥ W$21, 1, 0)
B34 = If(A34 ≥ W$21, 1, 0)
B35 = If(A35 ≥ W$21, 1, 0)
B36 = If(A36 ≥ W$21, 1, 0)
texto2: "\left\langle2 \right\rangle  \;  \;  \; \;  \; " + (LaTeX[B3]) + " ^{2}+" + (LaTeX[C3]) + " ^{2}+ " + (LaTeX[D3]) + "^{2}+ " + (LaTeX[E3]) + "^{2}= " + (LaTeX[F3]) + ""
texto1: "\left\langle1 \right\rangle  \;  \;  \; \;  \; " + (LaTeX[B2]) + "^{2}+" + (LaTeX[C2]) + "^{2}+" + (LaTeX[D2]) + "^{2}+" + (LaTeX[E2]) + "^{2}=" + (LaTeX[F2]) + ""
texto3: "\left\langle3 \right\rangle  \;  \;  \; \;  \;" + (LaTeX[B4]) + " ^{2}+" + (LaTeX[C4]) + " ^{2}+ " + (LaTeX[D4]) + "^{2}+" + (LaTeX[E4]) + " ^{2}= " + (LaTeX[F4]) + ""
texto4: "\left\langle4 \right\rangle  \;  \;  \; \;  \;" + (LaTeX[B5]) + " ^{2}+" + (LaTeX[C5]) + " ^{2}+" + (LaTeX[D5]) + " ^{2}+ " + (LaTeX[E5]) + "^{2}= " + (LaTeX[F5]) + ""
texto5: "\left\langle5\right\rangle  \;  \;  \; \;  \;" + (LaTeX[B6]) + " ^{2}+  " + (LaTeX[C6]) + "^{2}+  " + (LaTeX[D6]) + "^{2}+ " + (LaTeX[E6]) + " ^{2}= " + (LaTeX[F6]) + " "
texto6: "\left\langle6 \right\rangle  \;  \;  \; \;  \;  " + (LaTeX[B7]) + "^{2}+ " + (LaTeX[C7]) + " ^{2}+ " + (LaTeX[D7]) + " ^{2}+  " + (LaTeX[E7]) + "^{2}=  " + (LaTeX[F7]) + ""
texto7: "\left\langle7\right\rangle  \;  \;  \; \;  \; " + (LaTeX[B7]) + " ^{2}+  " + (LaTeX[C7]) + "^{2}+  " + (LaTeX[D7]) + "^{2}+  " + (LaTeX[E7]) + "^{2}=  " + (LaTeX[F8]) + ""
texto8: "\left\langle8 \right\rangle  \;  \;  \; \;  \;  " + (LaTeX[B9]) + " ^{2}+   " + (LaTeX[C9]) + "^{2}+ " + (LaTeX[D9]) + "  ^{2}+" + (LaTeX[E9]) + "   ^{2}=   " + (LaTeX[F9]) + ""
texto9: "\left\langle9 \right\rangle  \;  \;  \; \;  \; " + (LaTeX[B10]) + "  ^{2}+ " + (LaTeX[C10]) + "  ^{2}+  " + (LaTeX[D10]) + " ^{2}+   " + (LaTeX[E10]) + "^{2}=  " + (LaTeX[F10]) + " "
texto10: "\left\langle10 \right\rangle  \;  \;  \; \;  \;  " + (LaTeX[B11]) + "  ^{2}+" + (LaTeX[C11]) + "    ^{2}+  " + (LaTeX[D11]) + "  ^{2}+   " + (LaTeX[E11]) + " ^{2}=" + (LaTeX[F11]) + "    "
texto11: "\left\langle11 \right\rangle  \;  \;  \; \;  \;  " + (LaTeX[B12]) + "  ^{2}+   " + (LaTeX[C12]) + " ^{2}+  " + (LaTeX[D12]) + "  ^{2}+   " + (LaTeX[E12]) + " ^{2}=    " + (LaTeX[F12]) + ""
texto12: " \left\langle12 \right\rangle  \;  \;  \; \;  \;  " + (LaTeX[B13]) + " ^{2}+ " + (LaTeX[C13]) + "   ^{2}+   " + (LaTeX[D13]) + " ^{2}+  " + (LaTeX[E13]) + "  ^{2}=  " + (LaTeX[F13]) + "  "
texto13: "\left\langle13 \right\rangle  \;  \;  \; \;  \;   " + (LaTeX[B14]) + "  ^{2}+   " + (LaTeX[C14]) + "  ^{2}+  " + (LaTeX[D14]) + "   ^{2}+    " + (LaTeX[E14]) + " ^{2}=    " + (LaTeX[F14]) + " "
texto14: "\left\langle14 \right\rangle  \;  \;  \; \;  \;  " + (LaTeX[B15]) + "  ^{2}+ " + (LaTeX[C15]) + "   ^{2}+  " + (LaTeX[D15]) + "  ^{2}+   " + (LaTeX[E15]) + " ^{2}=   " + (LaTeX[F15]) + " "
texto15: "\left\langle15 \right\rangle  \;  \;  \; \;  \; " + (LaTeX[B16]) + "  ^{2}+    " + (LaTeX[C16]) + " ^{2}+   " + (LaTeX[D16]) + "  ^{2}+ " + (LaTeX[E16]) + "    ^{2}=   " + (LaTeX[F16]) + "  "
texto16: "\left\langle16 \right\rangle  \;  \;  \; \;  \;   " + (LaTeX[B17]) + " ^{2}+    " + (LaTeX[C17]) + " ^{2}+   " + (LaTeX[D17]) + "  ^{2}+     " + (LaTeX[E17]) + "^{2}=     " + (LaTeX[F17]) + ""
A19 = If(E16 ≟ 1, "Feliz", "Triste")
A18 = 17
E18: F17 - (10 * floor(F17 / 10))
D18: (F17 - (100 * floor(F17 / 100)) - E18) / 10
C18: (F17 - (1000 * floor(F17 / 1000)) - (D18 * 10) - E18) / 100
B18: (F17 - (100 * C18) - (10 * D18) - E18) / 1000
F18: B18^(2) + C18^(2) + D18^(2) + E18^(2)
G18: If[F18 ≟ 1, 1, If[F18 ≟ 4, -1, 0]] + G17
H18 = 17
I18: F18 - F$2
J18: F18 - F$3
K18: F18 - F$4
L18: F18 - F$5
M18: F18 - F$6
N18: F18 - F$7
O18: F18 - F$8
P18: F18 - F$9
Q18: F18 - F$10
R18: F18 - F$11
S18: F18 - F$12
T18: F18 - F$13
U18: F18 - F$14
V18: F18 - F$15
W18: F18 - F$16
X18: G18 - G$16
Y1 = 17
Y18: 1000
Y2: F2 - F$18
Y3: F3 - F$18
Y4: F4 - F$18
Y5: F5 - F$18
Y6: F6 - F$18
Y7: F7 - F$18
Y8: F8 - F$18
Y9: F9 - F$18
Y10: F10 - F$18
Y11: F11 - F$18
Y12: F12 - F$18
Y13: F13 - F$18
Y14: F14 - F$18
Y15: F15 - F$18
Y16: F16 - F$18
Y17: F17 - F$18
Y19: Y2:Y18
texto17: "\left\langle17 \right\rangle  \;  \;  \; \;  \;    " + (LaTeX[B18]) + " ^{2}+ " + (LaTeX[C18]) + "     ^{2}+    " + (LaTeX[D18]) + "  ^{2}+ " + (LaTeX[E18]) + "     ^{2}=   " + (LaTeX[F18]) + "  "
A37 = 17
A38 = 18
B37 = If(A37 ≥ W$21, 1, 0)
B38 = If(A38 ≥ W$21, 1, 0)
CasillaDeEntrada3 = Textfield(a)
b = 6 (slider from 1 to 17, step 1)
Y20 = IndexOf(0, Y19)
textot = If(E16 ≟ 1, "Feliz", "Triste")
texto18: "El número " + (LaTeX[a]) + " es " + textot + ""