Hallar Distancias Entre Dos Nodos o Mas Nodos!.%Se debe hallar la distancia de cada nodo de una subestación (S1), con los %de las otras subestaciones (S2 y S3)Se debe hallar la distancia de cada %nodo de una subestación (S1), con los de las otras

distancias.m

%Distancia Nodal,Subestaciones
%Feedback:hfjimenez@utp.edu.co
%Gpl V2
%date=10/09/2013
%Hallar Distancias Entre Dos Nodos o Mas Nodos!.
%Se debe hallar la distancia de cada nodo de una subestación (S1), con los
%de las otras subestaciones (S2 y S3)Se debe hallar la distancia de cada
%nodo de una subestación (S1), con los de las otras subestaciones (S2 y S3)
clc
clear all
clear ans 

disp('Calculo Para Dos Nodos Estaticos')
Nrefx=1;
Nrefy=3;
Nodos=input('Ingrese la Cantidad de Nodos de La S1:');
%NodoRef=input('Ingrese Coordenadas de Nodos Referencia(X,Y)');
xs1=[ ];%Inicializo  todo el vector de las cordenadas x
% 
% $$e^{\pi i} + 1 = 0$$
% 
ys1=[ ];%Inicializo vector que contendra las posiciones en y

disp('Nota:Recuerde  que la insercion de las cordenadas lleva espacio');
clc;
disp('NODOS EN  SUBESTACION Nº1');
for j=1:Nodos
    xs1(j)=input('Ingrese Todas Las Cordenas de X'); 
    %me crea un vector con las componentes de X
    ys1(j)=input('Ingrese Todas Las Cordenas de Y');
    %me crea  un vector con las componentes de Y
end 
disp('Las Coordenadas en X de S1 son :')
disp(xs1)
disp('Las Coordenadas en Y de S1 son :')

% 
% $$e^{\pi i} + 1 = 0$$
% 
disp(ys1)
disp('Calculando las Distancias...')
d1=sqrt(((xs1(:,2))-Nrefx).^2+((ys1(:,2))-Nrefy).^2);%realizado para posicion absoluta
%
disp('La Distancia de Nodo 2 al Nodo de Referencia es')
disp(d1)
pause(5) %espera 5 segundos para liberar memoria.

%Parte para realizar la grafica  
hold off %Limpia Graficas anteriores  
grid on  %Habilita la cuadricula en la grafica
xlabel('Plano X'),ylabel('Plano Y')%Renombro Planos X, Y 
title('Distancia Nodal--SUBESTACIONES')%Titulo de Grafica 
plot(xs1,ys1,'+')