function [Minc]=subMinc(u)
Minc=zeros(6,4);
Minc(1,1)=-1;
Minc(2,2)=-1;
Minc(3,3)=-1; Minc(3,1)=1;
Minc(4,2)=-1; Minc(4,1)=1;
Minc(5,4)=-1; Minc(5,2)=1;
Minc(6,4)=-1; Minc(6,3)=1;
function [Minc]=subMincpm(u)
Minc=zeros(6,4);
Minc(1,1)=-1;
Minc(2,2)=-1;
Minc(3,4)=-1; Minc(3,1)=1;
Minc(4,2)=-1; Minc(4,1)=1;
Minc(5,3)=-1; Minc(5,2)=1;
Minc(6,3)=-1; Minc(6,4)=1;
function [Minc]=subMincT(u) % Red Normal. Con zsr
Minc=zeros(7,4);
Minc(1,1)=-1;
Minc(2,2)=-1;
Minc(3,3)=-1; Minc(3,1)=1;
Minc(4,2)=-1; Minc(4,1)=1;
Minc(5,4)=-1; Minc(5,2)=1;
Minc(6,4)=-1; Minc(6,3)=1;
Minc(7,1)=1; Minc(7,2)=-1; % zsr
function [Minc]=subMincpmT(u) % Red Normal. Con zsr
Minc=zeros(7,4);
Minc(1,1)=-1;
Minc(2,2)=-1;
Minc(3,4)=-1; Minc(3,1)=1;
Minc(4,2)=-1; Minc(4,1)=1;
Minc(5,3)=-1; Minc(5,2)=1;
Minc(6,3)=-1; Minc(6,4)=1;
Minc(7,1)=1; Minc(7,2)=-1; % zsr
% m
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
