Matlab исправления ошибки

[Valush]

Здравствуйте
Нужно исправить ошибки:
- Произведение матриц реализовано неверно, единичная матрица сформирована неверно.
- То же самое относится и ко второму варианту работы.
- То же самое относится и к третьему варианту работы. У Вас по варианту нет индексов для суммирования, а Вы в программе умножения суммирование почему-то выполняете? Первое, что нужно знать про единичную матрицу, так это то, что она мерная!
-Произведение рассчитано неверно. Повторяю, у Вас по заданию нет никакого суммирования,
Задание
1.3.1. Сформировать p-мерную матрицу A n-го порядка и q-мерную матрицу B n-го порядка.

clc;
clear;
 
A(:,:,1,1)=[1,2,3;    4,5,6;    7,8,9];
A(:,:,2,1)=[10,11,12; 13,14,15 ;16,17,18];
A(:,:,3,1)=[19,20,21; 22 23,24; 25,26,27];
A(:,:,:,2)=4;
A(:,:,:,3)=5;
A
 
B=[1,2,3;1,2,3;1,2,3];
B(:,:,2)=[10,11,12; 13,14,15 ;16,17,18];
B(:,:,3)=[19,20,21; 22 23,24; 25,26,27];
B

1.3.2. Получить матрицу , транспонированную относительно A соответственно подстановке T
Код Matlab M

clc
clear

p=4
q=3
n=3
lambda=0
mu=0

A(:,:,1,1)=[1,2,3; 4,5,6; 7,8,9];
A(:,:,2,1)=[10,11,12; 13,14,15 ;16,17,18];
A(:,:,3,1)=[19,20,21; 22 23,24; 25,26,27];
A(:,:,:,2)=4;
A(:,:,:,3)=5;

B=[1,2,3;1,2,3;1,2,3];
B(:,:,2)=[10,11,12; 13,14,15 ;16,17,18];
B(:,:,3)=[19,20,21; 22 23,24; 25,26,27];

k = p - lambda - mu;
v = q - lambda - mu;

L = k
S = lambda
C = mu
M = v

for l=1:n
for c1=1:n
D(l) = 0;
for c2=1:n
for c3=1:n
D(l) = D(l) + A(l,c1,c2,c3) * B(c1,c2,c3);
end
end
end
end
D
1.3.4. Сформировать -единичную матрицу E n-го порядка и найти произведение F
clc
clear

p=4
q=3
n=3
lambda=0
mu=0

B=[1,2,3; 1,2,3; 1,2,3];
B(:,:,2)=[10,11,12; 13,14,15; 16,17,18];
B(:,:,3)=[19,20,21; 22 23,24; 25,26,27];
B

C = mu; %0
s = lambda; %0
M = mu; %0

% единичная матрица e(c,s,m)
% для (0,0) E - скаляр
E=1;
disp('edinichnaya')
E


F=E*B;
disp('proizvedenie')
F