Nueva matriz

Cuadrada

Cuadrada

Rectangular

Rectangular

Fila

Fila

Columna

Columna

Simétrica

Simétrica

Antisimétrica

Antisimétrica

Triangular inferior

Triangular inferior

Triangular superior

Triangular Superior

Diagonal

Diagonal

Identidad

Identidad

Nula

Nula

i = 0 (slider from 0 to 7, step 1)
E5 = Random(-9, 9)
E11 = If(i ≟ 7, 0, If[i ≟ 6, 1, E5])
D5 = Random(-9, 9)
C5 = Random(-9, 9)
B5 = Random(-9, 9)
A5 = Random(-9, 9)
E4 = Random(-9, 9)
E10 = If(i ≟ 7, 0, If[i ≟ 6, 1, E4])
D11 = If(i ≟ 1, E10, If[i ≟ 2, (-E10), If[i ≟ 4 ∨ i ≟ 0, D5, 0]])
E3 = Random(-9, 9)
E9 = If(i ≥ 4, 0, E3)
C11 = If(i ≟ 1, E9, If[i ≟ 2, (-E9), If[i ≟ 4 ∨ i ≟ 0, C5, 0]])
E2 = Random(-9, 9)
E8 = If(i ≥ 4, 0, E2)
B11 = If(i ≟ 1, E8, If[i ≟ 2, (-E8), If[i ≟ 4 ∨ i ≟ 0, B5, 0]])
E1 = Random(-9, 9)
E7 = If(i ≥ 4, 0, E1)
A11 = If(i ≟ 1, E7, If[i ≟ 2, (-E7), If[i ≟ 4 ∨ i ≟ 0, A5, 0]])
A1 = Random(-9, 9)
A7 = If(i ≟ 7, 0, If[i ≟ 6, 1, A1])
D4 = Random(-9, 9)
D10 = If(i ≟ 7, 0, If[i ≟ 6, 1, D4])
C4 = Random(-9, 9)
B4 = Random(-9, 9)
A4 = Random(-9, 9)
D3 = Random(-9, 9)
D9 = If(i ≥ 4, 0, D3)
C10 = If(i ≟ 1, D9, If[i ≟ 2, (-D9), If[i ≟ 4 ∨ i ≟ 0, C4, 0]])
D2 = Random(-9, 9)
D8 = If(i ≥ 4, 0, D2)
B10 = If(i ≟ 1, D8, If[i ≟ 2, (-D8), If[i ≟ 4 ∨ i ≟ 0, B4, 0]])
D1 = Random(-9, 9)
D7 = If(i ≥ 4, 0, D1)
A10 = If(i ≟ 1, D7, If[i ≟ 2, (-D7), If[i ≟ 4 ∨ i ≟ 0, A4, 0]])
B3 = Random(-9, 9)
C3 = Random(-9, 9)
C9 = If(i ≟ 7, 0, If[i ≟ 6, 1, C3])
A3 = Random(-9, 9)
C2 = Random(-9, 9)
C8 = If(i ≥ 4, 0, C2)
B9 = If(i ≟ 1, C8, If[i ≟ 2, (-C8), If[i ≟ 4 ∨ i ≟ 0, B3, 0]])
B2 = Random(-9, 9)
B8 = If(i ≟ 7, 0, If[i ≟ 6, 1, B2])
A2 = Random(-9, 9)
C1 = Random(-9, 9)
C7 = If(i ≥ 4, 0, C1)
A9 = If(i ≟ 1, C7, If[i ≟ 2, (-C7), If[i ≟ 4 ∨ i ≟ 0, A3, 0]])
B1 = Random(-9, 9)
B7 = If(i ≥ 4, 0, B1)
A8 = If(i ≟ 1, B7, If[i ≟ 2, (-B7), If[i ≟ 4 ∨ i ≟ 0, A2, 0]])
m1: {{A1, B1, C1}, {A2, B2, C2}, {A3, B3, C3}}
m = 4 (slider from 1 to 5, step 1)
nn = 4 (slider from 1 to 5, step 1)
A = (-2.36, -2.96)
k = 1 (slider from 1 to 4, step 1)
texto2a: "" + m + " Filas"
n = If(k ≟ 1, m, nn)
texto2b: "" + n + " Columnas"
matriz1: {{A7, B7, C7, D7, E7}, {A8, B8, C8, D8, E8}, {A9, B9, C9, D9, E9}, {A10, B10, C10, D10, E10}, {A11, B11, C11, D11, E11}}
m2 = Sequence(Sequence[Element[matriz1, i, j], i, 1, n], j, 1, m)
texto1: "M = " + (LaTeX[m2]) + ""
mt = Transpose(m2)
texto3: "M^{t}=" + (LaTeX[mt]) + ""
F9 = NaN
texto2: "Dimensión \;  " + (LaTeX[m]) + "×" + (LaTeX[n]) + ""