ELGA.rar_Elimination

clc;clear all;close all; fprintf(' Universidad Autónoma de Nuevo León \n'); fprintf(' Facultad de Ingeniería Mecánica y Eléctrica\n'); fprintf('M.C. de la Ing. Electrica con Orientacion en S.E.P. \n'); fprintf(' ANALISIS DE SISTEMAS ELECTRICOS DE POTENCIA \n'); fprintf(' Salvador Alvarez Caballero \n'); fprintf('Solucion de Matriz Cuadrada por Eliminación Gaussiana \n') N=input('Orden de la Matriz='); for m=1:N for n=1:N fprintf('Valor del Elemento A(%d,%d)=' , m,n ) %Matriz Primaria A(m,n)=input(''); end end A for m=1:N fprintf('Valor del Elemento B(%d)=' , m ); %Matriz Resultados B(m,1)=input(''); end B fprintf('Matriz a Calcular: \n'); %Muestra la Matriz Final C=[A,B]; C for m=1:N-1 fprintf(' PASO #%d',m); for n=m+1:N Z=C(n,m)/C(m,m); C(n,:)=C(n,:)-Z*C(m,:); end C pause end V(N)=C(N,N+1)/C(N,N); % Cálculo de la última incógnita for i=N-1:-1:1 Suma=0; for j=i+1:N Suma=Suma+C(i,j)*V(j); end V(i)=(C(i,N+1)-Suma)/C(i,i); % Cálculo de las incógnitas end fprintf(' RESPUESTAS \n') for i=1:N fprintf('V(%d) = %d \n',i,V(i)); % Presentación de resultados end