gauss seidel abs rel compat

2014-11-01 19:25:34 +01:00
parent 8c6af09b7c
commit 0aff089106
3 changed files with 132 additions and 1 deletions
--- a/functions/jacobi_abs_compact.m
+++ b/functions/jacobi_abs_compact.m
@@ -26,7 +26,6 @@ function [x0,err,niter,ier] = jacobi_abs_compact (U,b,x0,toll,nmax)
    %detect right and left
    x=1;
    y=1;
-    left= 0;
    right= 0;
    while U(x,y)==0
        right = right + 1;