10 lines
265 B
Mathematica
10 lines
265 B
Mathematica
|
function X = ctransposefactor(X)
|
||
|
|
if ~isempty(X.midfactors)
|
||
|
|
for i = 1:length(X.midfactors)
|
||
|
|
temp = X.leftfactors{i};
|
||
|
|
X.leftfactors{i} = X.rightfactors{i}';
|
||
|
|
X.rightfactors{i} = temp';
|
||
|
|
X.midfactors{i} = X.midfactors{i}';
|
||
|
|
end
|
||
|
|
end
|