gaussescal - % PROGRAMA: ELIMINACION GAUSSIANA CON PIVOTEO...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Page 1 % PROGRAMA: ELIMINACION GAUSSIANA CON PIVOTEO ESCALONADO % Descripcion:El programa encuentra las raices de un conjunto de ecuaciones lineales de la forma % A x X = B, utilizando el metodo de eliminacion gaussiana con la estrategia de % pivoteo escalonado. % curso: Calculo Numerico % programacion: Rony Yupanqui G. % fecha: Setiembre 2006 %------------VARIABLES---------% % numero de filas nf=4 nc=nf+1 ma=zeros(nf,nc) mb=zeros(nf,nc) % matriz A con los segundos miembros B ma=[15 -1 3 5 5 %----------ALGORITMO DEL PROGRAMA-----% disp(' PROGRAMA: ELIMINACION GAUSSIANA CON PIVOTEO ESCALONADO') for col=1:(nf-1), vval=ones(1,nf) % hallar todos los cocientes de las filas for lin=col:nf, max=0 for pos=col:nf, if max<abs(ma(lin,pos)) max=abs(ma(lin,pos)) end end vval(1,lin)=vval(1,lin)/max*abs(ma(lin,col)) end valmax=0 filmax=col % encontrar el valor maximo for a=col:nf, if vval(1,a)>valmax valmax=vval(1,a) filmax=a end end % guardar una copia de la matriz for a=1:nf, for b=1:nc, mb(a,b)=ma(a,b)
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 4

gaussescal - % PROGRAMA: ELIMINACION GAUSSIANA CON PIVOTEO...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online