BENDERs BRAIN    I2C    SD.load.exe 


Memory size ? 

52223 Bytes free

Enhanced BASIC 2.10

Ready

LIST

1 REM sistema de ecuaciones lineales
5 N=4
10 DATA 1,5,3,2,1, 0,0,1,1,2, 4,4,0,1,3, -2,-5,1,0,4
20 DIM A(N-1,N)
30 FOR I=0 TO N-1
40 FOR J=0 TO N
50 READ A(I,J)
60 NEXT J
70 NEXT I
80 GOSUB 9000
90 FOR I=0 TO N-1
95 REM buscamos pivote maximo
100 MAX=A(I,I)
110 IX=I
120 FOR J=I TO N-1
130 IF ABS(A(J,I))<=MAX GOTO 160 
140 MAX=ABS(A(J,I))
150 IX=J
160 NEXT J
165 REM intercambiamos fila
170 FOR J=0 TO N
180 T=A(I,J)
190 A(I,J)=A(IX,J)
200 A(IX,J)=T
210 NEXT J
220 REM GOSUB 9000
225 REM normalizamos fila
230 T=A(I,I)
240 FOR J=0 TO N
250 A(I,J)=A(I,J)/T
260 NEXT J
270 REM restamos filas escaladas
280 FOR K=0 TO N-1
290 IF K=I GOTO 340
300 T=A(K,I)
310 FOR J=0 TO N
320 A(K,J)=A(K,J)-T*A(I,J)
330 NEXT J
340 NEXT K
350 GOSUB 9000 
360 NEXT I
370 END
9000 FOR II=0 TO N-1
9010 FOR JJ=0 TO N
9020 PRINT A(II,JJ);
9025 PRINT " ";
9030 NEXT JJ
9040 PRINT
9050 NEXT II
9060 PRINT
9070 RETURN

Ready
RUN
 1  5  3  2  1 
 0  0  1  1  2 
 4  4  0  1  3 
-2 -5  1  0  4 

 1  1  0  .25  .75 
 0  0  1  1  2 
 0  4  3  1.75  .25 
 0 -3  1  .5  5.5 

 1  0 -.75 -.1875  .6875 
 0  1  .75  .4375  .0625 
 0  0  1  1  2 
 0  0  3.25  1.8125  5.6875 

 1  0  0  .230769  2 
 0  1  0  .0192308 -1.25 
 0  0  1  .557692  1.75 
 0  0  0  .442308  .25 

 1  0  0  0  1.86957 
 0  1  0  0 -1.26087 
 0  0  1  0  1.43478 
 0  0  0  1  .565217 


Ready