Advertisement
XeBuZer0

Gauss-Seidel Linear Ecuation Solver (n interations)

Oct 2nd, 2020 (edited)
596
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 0.88 KB | None | 0 0
  1. /////////////////////////////////////////////////////
  2. // Hecho por XeBuZer0 y licenciado bajo GNU GPL v3 //
  3. // Este programa calcula las soluciones numéricas  //
  4. // de un sistema de ecuaciones arbitrario mediante //
  5. // el método de Gauss-Seidel dadas n iteraciones.  //
  6. /////////////////////////////////////////////////////
  7. /* ** // **  F v q _ U k r a N a z i s !  ** // ** */
  8. /* ** // ** // ** // ** // // ** // ** // ** // ** */
  9.  
  10. #include <stdio.h>
  11. #define n_ite 100
  12.  
  13. void main (void){
  14.  
  15.     register int    iter = 0;
  16.     long double x1=0  , x2=0 , x3=0;
  17.     long double x1t=0, x2t=0, x3t=0;
  18.  
  19.     for (iter=1; iter <= n_ite; iter++){
  20.         x1 =  ( ( 5 - (2*x2t) )        / 7 ) ;
  21.         x2 = -( ( (3*x1t) - x3t  - 4 ) / 5 ) ;
  22.         x3 =  ( ( (5*x2t) - 3)         / 6 ) ;
  23.         x3t = x3; x2t = x2; x1t = x1;
  24.         printf("Los valores son: x1=%.10Lf, x2=%.10Lf, x3=%.10Lf, Iteración %d\n", x1, x2, x3, iter);
  25.     }
  26. }
  27.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement