Algoritmos metodos numericos

Fórmula general del método. Codificación (Programa). DIMENSION X(5), T(5) READ (5,30)N FORMAT (12) READ (5,31) (X(I), I=1,N) FORMAT (5F3.0) WRITE (6,32) (X(I),I=1,N) FORMAT (5(2X,F3.0)) READ(5,31)(X(I),I=1,N) WRITE(6,32)(X(I), I=1,N) C=0 DO 6 I=1,N C=C+X(I)*T(I) CONTINUE WRITE (6,33)C FORMAT(E15.8) CALL EXIT END Aproximaciones sucesivas. Fórmula General Codificación(Programa) READ (2,1)N 1FORMAT(I2) K=0

1

READ (2,4) A,B E1, E2 4 FORMAT (2F4.0,2F9.6) 7 X=(A+B)/2 WRITE(3,5)X 5 FORMAT (5X, 2HX=, E15.8) K=K+1 IF (ABS (X*2−25.))−E1)6,6,8 8 IF ((ABS(B−A))−E2)6,6,10 10 IF (N−K)6,6,12 12IF ((X*2−25.)*(A*2−25.)) 13,6, 15 15 A=X GO TO 7 13 B=X GO TO 7 6 CALL EXIT END Newton−Raphson Diagrama de bloques (pseudo código). Diagrama de Flujo Codificación(Programa) WRITE (3,101) FORMAT(1H1,//,10X,36H DETERMINACIÓN DE UNA RAÍZ APROXIMADA,/,10X,31 1H POR EL METODO DE NEWTON RHAPSON,//) READ (2, 102) X, E, N FORMAT (F5, 0,F10, 6, 13) K=1 FX=X**3−4.3*X*2+4.*X−17.2 2

DFX=3.*X**2−8.6*X+4 XNUEVA=X X−(FX/DFX) WRITE (3,103)XNUEVA FORMAT (10X,7HX NUEVA=E15,8) IF (ABS (XNUEVA−X)−E 8,89 IF(N−K)8,8,7 K=K+1 X=XNUEVA GO TO 3 STOP END Operaciones de Matrices SUMA Codificación (Programa)DIMENSION A(3,3), B(3,3), C(3,3) READ (5,1)M,N FORMAT(2I2) READ (5,2) ((A(I,J),J=1, N), I=1, M READ (5,2) ((B(I,J),J=1, N), I=1, M FORMAT (3F.0) WRITE (6,3)((A(I,J), J=1, N) , I=1, M) WRITE(6,3)((B(I,J), J=1, N) , I=1, M) FORMAT (3(2X,F5.0)) DO 6 I=1, M DO 6 J=1, N C(I,J)=A(I,J)+B(I,J)

3

CONTINUE WRITE (6,3)((C(I,J),J=1,N),I=1,M CALL EXIT END Multiplicación Codificación (Programa) DIMENSIONA(3,3),B(3,3),C(3,3) READ(5,10)M,N FORMAT (2I2) READ(5,1)((A(I.,J), J=1, N), I.=1, M) FORMAT (3F3.0) READ (5,1) ((B(I,J), J=1, N), I=1, M) WRITE (6,2) ((A(I,J),J=1, N) ,I=1, M WRITE (6,2)((B(I,J),J=1, N) ,I=1, M FORMAT (3(2X,F5.0)) Gauss−Jordan DIAGRAMA DE FLUJO DE GAUSS JORDAN INICIO A,B,C,D [ 1..10, 1...20] J,M,N,[INT] MATRIZ CUADRADA? 1 AL 10 N=M+1 FOR I= 1 TO M DO M>=1 FOR J = 1 TO N DO...