%Skalerer C og D matrisene i ss-modellen
%Generer matrisene upuan og ypuan som hhv er pådrags- og utgangs-
%retningen til de ustabile polene.

%evg;         % Genererer skaleringsmatrisen for Y
Cs=C;      % Beregner de skalerrte C&D-matrisene
Ds=D;

% Beregner polretningene etter skalering

[t,ans]=eig(A);
[q,ans]=eig(A');

yp=Cs*t;        %Retninsmatrise for utgangsretningen til polene
up=B'*q;        %Retninsmatrise for inngangsretningen til polene

ypu=[yp(:,17) yp(:,18) yp(:,25) yp(:,26) yp(:,29) yp(:,30) yp(:,31)];

upu=[up(:,17) up(:,18) up(:,25) up(:,26) up(:,29) up(:,30) up(:,31)];

ypua=abs(ypu);
upua=abs(upu);

ny=norm(ypua,1);
nu=norm(upua,1);

for i=1:7
  
 k=sum(upua(:,i));
 upuan(:,i)=upua(:,i)/k;
 
 k=sum(ypua(:,i));
 ypuan(:,i)=ypua(:,i)/k;
 
end

ypuan
upuan







