% The name of the M-file: eigeb_vec
% This M-file creates a figure window and plots the absolute magnitudes of
%left and right eigenvector of the load flow Jacobian matrix at the point 
% of collapse.

figure(grph_fig);
set(grph_fig,...
   'NumberTitle','off',...
   'Name','VST-Sensitivity and Remedial Information',...
   'DefaultAxesPosition',[0.12 0.1 0.55 0.8],...
   'Color',[0.7 0.8 0.9],...
   'ReSize','off');

%Plot the right eigenvector
subplot(2,1,1);
stem(abs(vpoc),'r');
title(['Right and Left Eigenvector:',CurrentSystem]);
ylabel('Null Space Vector');
xlabel('State Variables');
grid;

%plot the left eigenvector
subplot(2,1,2);
stem(abs(wpoc),'r');
ylabel('Remedial Action Vector');
xlabel('State Variables');
grid;
gcontrol1;