=

a11 = 1 (slider from -5 to 5, step 0.1)
a12 = 2 (slider from -5 to 5, step 0.1)
a13 = 3 (slider from -5 to 5, step 0.1)
a14 = 4 (slider from -5 to 5, step 0.1)
a15 = 5 (slider from -5 to 5, step 0.1)
a21 = -1 (slider from -5 to 5, step 0.1)
a22 = -2 (slider from -5 to 5, step 0.1)
a23 = -3 (slider from -5 to 5, step 0.1)
a24 = -4 (slider from -5 to 5, step 0.1)
a25 = -5 (slider from -5 to 5, step 0.1)
b11 = 2 (slider from -5 to 5, step 0.1)
a31 = 2 (slider from -5 to 5, step 0.1)
a32 = 5 (slider from -5 to 5, step 0.1)
a34 = 2 (slider from -5 to 5, step 0.1)
a35 = -2 (slider from -5 to 5, step 0.1)
b21 = 1 (slider from -5 to 5, step 0.1)
b31 = 0 (slider from -5 to 5, step 0.1)
b41 = -2 (slider from -5 to 5, step 0.1)
b51 = 4 (slider from -5 to 5, step 0.1)
a33 = 1 (slider from -5 to 5, step 0.1)
mta: {{a11, a12, a13, a14, a15}, {a21, a22, a23, a24, a25}, {a31, a32, a33, a34, a35}}
Text1: "\left(" + (TableText[mta]) + "\right)"
k = NaN (slider from -50 to 50, step 0.1)
mtb: {{b11}, {b21}, {b31}, {b41}, {b51}}
Text2: "\cdot \left(" + (TableText[mtb]) + "\right)"
Text3: "\left(" + (TableText[(mta * mtb)]) + "\right)"
P = (-3.34, 0.78)
Q = (-3.1, 0.36)
R = (-3.04, -0.02)
A = (5.76, 0.44)
B = (5.9, 0.12)
C = (5.84, -0.38)
D = (2.92, 1.02)
dx = 4.8 (slider from -5 to 5, step 0.1)
dy = -0.5
Vieleck1, p, a, b, c = Polygon(P, P + (dx, 0), P + (dx, dy), P + (0, dy))
Vieleck2, q, d, e, f = Polygon(Q, Q + (dx, 0), Q + (dx, dy), Q + (0, dy))
Vieleck3, r, g, h, i = Polygon(R, R + (dx, 0), R + (dx, dy), R + (0, dy))
Vieleck4, j, l, m, a_1 = Polygon(A, A + ((-((1.5 * dy))), 0), A + ((-((1.5 * dy))), dy), A + (0, dy))
Vieleck5, n, s, t, b_1 = Polygon(B, B + ((-((1.5 * dy))), 0), B + ((-((1.5 * dy))), dy), B + (0, dy))
Vieleck6, c_1, d_1, e_1, f_1 = Polygon(C, C + ((-((1.5 * dy))), 0), C + ((-((1.5 * dy))), dy), C + (0, dy))
Vieleck7, g_1, h_1, i_1, j_1 = Polygon(D, D + ((-((1.5 * dy))), 0), D + ((-((1.5 * dy))), (4 * dy)), D + (0, (4 * dy)))
o = 2 (slider from 1 to 4, step 1)