Matrix dimensions must agree.(error en la linea 133) por favor

%programa que calcula reaccones en los soportes, desplazamiento y fuerzas
%internas en los elementos de una armadura
clear;
clc;
k=zeros(6);
l=1;
disp('----------Datos para el analisis');

----------Datos para el analisis

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Vector de cargas conocidas%
CC=xlsread('Datos Armadura.xlsx','Datos','B12:B20');

Error using xlsread
Unable to open file 'Datos Armadura.xlsx'.
File '/users/mss.system.nGXagk/Datos Armadura.xlsx' not found.

%Vectores de desplazamientos conoccidos%
DC=xlsread('Datos Armadura.xlsx','Datos','D12:D17');
%Numero de grados de libertad%
GL=xlsread('Datos Armadura.xlsx','Datos','C7');
KT=zeros(GL);
%Numero de elementos%
i=xlsread('Datos Armadura.xlsx','Datos','C8');
%Numero de desplazamientos desconocidos%
d=xlsread('Datos Armadura.xlsx','Datos','C9');
%Numero de cargas conocidas%
fu=xlsread('Datos Armadura.xlsx','Datos','C10');
dceros=zeros(l,GL-d);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
disp('Lectura de datos del elemento 1---------');
%Longitud%
L=xlsread('Datos Armadura.xlsx','Datos','N4:N40');
%Modulo de elasticidas%
E=xlsread('Datos Armadura.xlsx','Datos','F4:F40');
%Area de la seccion transversal
A=xlsread('Datos Armadura.xlsx','Datos','G4:G40');
%Cosenos Directores(lambda x, lambda y, lambda z)%
Lx=xlsread('Datos Armadura.xlsx','Datos','O4:O40');
Ly=xlsread('Datos Armadura.xlsx','Datos','P4:P40');
Lz=xlsread('Datos Armadura.xlsx','Datos','Q4:Q40');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
disp('Grados de libertad nodo cercano n---------------')
Nx=xlsread('Datos Armadura.xlsx','Datos','R4:R30');
Ny=xlsread('Datos Armadura.xlsx','Datos','S4:S30');
Nz=xlsread('Datos Armadura.xlsx','Datos','T4:T30');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
disp('Grados de libertad nodo lejano F---------------')
Fx=xlsread('Datos Armadura.xlsx','Datos','U4:U30');
Fy=xlsread('Datos Armadura.xlsx','Datos','V4:V30');
Fz=xlsread('Datos Armadura.xlsx','Datos','W4:W30');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
disp('calculo de la matriz de rigidez global del elemento---------');
for n=1:i
    fprintf('Elemento %i.\n\n',n)
    disp('------------------------')
    k(1,1)=((Lx(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1);
    k(1,2)=((Lx(n,1)*Ly(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(1,3)=((Lx(n,1)*Lz(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(1,4)=-(((Lx(n,1))^2*(A(n,1)*E(n,1)))/L(n,1));
    k(1,5)=-(((Lx(n,1))*Ly(n,1)*(A(n,1)*E(n,1)))/L(n,1));
    k(1,6)=-((Lx(n,1)*Lz(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(2,1)=((Lx(n,1)*Ly(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(2,2)=((Ly(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1);
    k(2,3)=((Ly(n,1)*Lz(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(2,4)=-(((Lx(n,1)*Ly(n,1))*(A(n,1)*E(n,1)))/L(n,1));
    k(2,5)=-(((Ly(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1));
    k(2,6)=-((Ly(n,1)*Lz(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(3,1)=((Lz(n,1)*(Lx(n,1)))*(A(n,1)*E(n,1)))/L(n,1);
    k(3,2)=((Lz(n,1)*(Ly(n,1)))*(A(n,1)*E(n,1)))/L(n,1);
    k(3,3)=((Lz(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1);
    k(3,4)=-(((Lz(n,1)*(Lx(n,1)))*(A(n,1)*E(n,1)))/L(n,1));
    k(3,5)=-(((Lz(n,1)*(Ly(n,1)))*(A(n,1)*E(n,1)))/L(n,1));
    k(3,6)=-((Lz(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1);
    k(4,1)=-(((Lx(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1));
    k(4,2)=-(((Lx(n,1)*Ly(n,1))*(A(n,1)*E(n,1)))/L(n,1));
    k(4,3)=-(((Lx(n,1)*Lz(n,1))*(A(n,1)*E(n,1)))/L(n,1));
    k(4,4)=(((Lx(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1));
    k(4,5)=(((Lx(n,1)*Ly(n,1))*(A(n,1)*E(n,1)))/L(n,1));
    k(4,6)=((Lx(n,1)*Lz(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(5,1)=-(((Lx(n,1)*Ly(n,1))*(A(n,1)*E(n,1)))/L(n,1));
    k(5,2)=-(((Ly(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1));
    k(5,3)=-((Ly(n,1)*Lz(n,1)*(A(n,1)*E(n,1)))/L(n,1));
    k(5,4)=(((Lx(n,1)*Ly(n,1))*(A(n,1)*E(n,1)))/L(n,1));
    k(5,5)=(((Ly(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1));
    k(5,6)=((Ly(n,1)*Lz(n,1))*(A(n,1)*E(n,1)))/L(n,1);
    k(6,1)=-(((Lz(n,1)*(Lx(n,1)))*(A(n,1)*E(n,1)))/L(n,1));
    k(6,2)=-(((Lz(n,1)*(Ly(n,1)))*(A(n,1)*E(n,1)))/L(n,1));
    k(6,3)=-(((Lz(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1));
    k(6,4)=(((Lz(n,1)*(Lx(n,1)))*(A(n,1)*E(n,1)))/L(n,1));
    k(6,5)=(((Lz(n,1)*(Ly(n,1)))*(A(n,1)*E(n,1)))/L(n,1));
    k(6,6)=((Lz(n,1)^2)*(A(n,1)*E(n,1)))/L(n,1);
    
    
    fprintf('Matriz k%i.',n)
    k
    disp('--------------------------------------')
    K=zeros(GL);
    K(Nx(n,1),Nx(n,1))=k(1,1);
    K(Nx(n,1),Ny(n,1))=k(1,2);
    K(Nx(n,1),Nz(n,1))=k(1,3);
    K(Nx(n,1),Fx(n,1))=k(1,4);
    K(Nx(n,1),Fy(n,1))=k(1,5);
    K(Nx(n,1),Fz(n,1))=k(1,6);
    
    K(Ny(n,1),Nx(n,1))=k(2,1);
    K(Ny(n,1),Ny(n,1))=k(2,2);
    K(Ny(n,1),Nz(n,1))=k(2,3);
    K(Ny(n,1),Fx(n,1))=k(2,4);
    K(Ny(n,1),Fy(n,1))=k(2,5);
    K(Ny(n,1),Fz(n,1))=k(2,6);
    
    K(Nz(n,1),Nx(n,1))=k(3,1);
    K(Nz(n,1),Ny(n,1))=k(3,2);
    K(Nz(n,1),Nz(n,1))=k(3,3);
    K(Nz(n,1),Fx(n,1))=k(3,4);
    K(Nz(n,1),Fy(n,1))=k(3,5);
    K(Nz(n,1),Fz(n,1))=k(3,6);
    
    K(Fx(n,1),Nx(n,1))=k(4,1);
    K(Fx(n,1),Ny(n,1))=k(4,2);
    K(Fx(n,1),Nz(n,1))=k(4,3);
    K(Fx(n,1),Fx(n,1))=k(4,4);
    K(Fx(n,1),Fy(n,1))=k(4,5);
    K(Fx(n,1),Fz(n,1))=k(4,6);
    
    K(Fy(n,1),Nx(n,1))=k(5,1);
    K(Fy(n,1),Ny(n,1))=k(5,2);
    K(Fy(n,1),Nz(n,1))=k(5,3);
    K(Fy(n,1),Fx(n,1))=k(5,4);
    K(Fy(n,1),Fy(n,1))=k(5,5);
    K(Fy(n,1),Fz(n,1))=k(5,6);
    
    K(Fz(n,1),Nx(n,1))=k(6,1);
    K(Fz(n,1),Ny(n,1))=k(6,2);
    K(Fz(n,1),Nz(n,1))=k(6,3);
    K(Fz(n,1),Fx(n,1))=k(6,4);
    K(Fz(n,1),Fy(n,1))=k(6,5);
    K(Fz(n,1),Fz(n,1))=k(6,6);
    KT=K+KT; aqui es el error
end
disp('------------Matriz de rigidez de ls estructura------');
KT
disp('----------------------------');
disp('------------submatriz k11------');
K11=KT(1:d,1:d)
disp('------------submatriz k12------');
K12=KT(1:d,d+1:GL)
disp('------------submatriz k21------');
K21=KT(d+1:GL,1:d)
disp('------------submatriz k12------');
K22=KT(d+1:GL,d+1:GL)
disp('------------Solucion del Problema------');
disp('---------------------------------------');
disp('------------Vector de Cargas Conocidas------');
CC
disp('------------------------------------------');
disp('------------Solucion del Subsistema 1------');
disp('------------Desplazamientos desconocidos------');
DD=(inv(K11))*(CC-(K12*DC))
desplazamientos=[DD;DC];
disp('------------------------------------------');
disp('------------Solucion del Subsistema 2----');
disp('------------Cargas Desconocidas------');
CD=(K21*DD)+(K22*DC)
disp('------------------------------------------');
disp('------------Fuerzas Internas----');
disp('------------O Fuerzas en los elementos------');
for m=1:n
    fprintf('Elemento %i.\n\n',m)
    dp=[desplazamientos(Nx(m,1),1);desplazamientos(Ny(m,1),1);desplazamientos(Nz(m,1),1)]
    Fbar=((A(m,1)*E(m,1))/L(m,1))*[-Lx(m,1) -Ly(m,1) -Lz(m,1) Lx(m,1) Ly(m,1) Lz(m,1)];
    Fb(1,m)=Fbar(1);
    disp('------------------------------------------');
end
disp('-----------------Fuerzas en los Elementos-------------------');
fba=[[1:1:n]',fb']
disp('------------------------------------------');
disp('------------Tabla de Resultados----');
disp('------------La siguiente tabla muestra----------');
disp('------------Las cargas y los desplazamientos----');
disp('--------------En los nodos de la armadura-----------------');
fuerzas=[CC;CD];
TABLA=[[1:1:GL]',fuerzas,desplazamientos]
format long
disp('------------------------------------------');
disp('------------Final----');

[Image Analyst]

Please attach 'Datos Armadura.xlsx' after you read this:

TUTORIAL: How to ask a question (on Answers) and get a fast answer

Answer 1

[DGM]

If the data in Nx, Ny, Nz, and Fx, Fy, Fz are not in the range of [1 GL], then K will end up getting expanded. At that point K and KT won't be the same size. I don't see anything in this code that safeguards against that. You'll have to decide what it means when those indices exceed GL and take the appropriate steps. That might mean clipping those points, or discarding them. That might mean expanding KT. I don't know anything about the data or the task at hand. I'm just looking at this in a decontextualized manner.