Skip to main content
se añadió 1 carácter en el cuerpo
Origen Enlace
HMSP
  • 248
  • 1
  • 6

A continuación, se restarestan la matriz que indica el numero de fila ay la matriz que indica el número de columna. Ambas matrices se generan a partir de la matriz auxiliar. Al restar se obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

A continuación, se resta la matriz que indica el numero de fila a la matriz que indica el número de columna. Ambas matrices se generan a partir de la matriz auxiliar. Al restar se obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

A continuación, se restan la matriz que indica el numero de fila y la matriz que indica el número de columna. Ambas matrices se generan a partir de la matriz auxiliar. Al restar se obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

se eliminaron 533 caracteres en el cuerpo
Origen Enlace
HMSP
  • 248
  • 1
  • 6

Primero se crea una matriz auxiliar como la siguientecon las dimensiones deseadas

# dimension
n <- 10

# creamos matriz auxiliar con valores de 1 a n^2cualesquiera
auxiliar <- matrix(seq_len(n ^ 2)0, ncol = n)
>auxiliar
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1   11   21   31   41   51   61   71   81    91
 [2,]    2   12   22   32   42   52   62   72   82    92
 [3,]    3   13   23   33   43   53   63   73   83    93
 [4,]    4   14   24   34   44   54   64   74   84    94
 [5,]    5   15   25   35   45   55   65   75   85    95
 [6,]    6   16   26   36   46   56   66   76   86    96
 [7,]    7   17   27   37   47   57   67   77   87    97
 [8,]    8   18   28   38   48   58   68   78   88    98
 [9,]    9   19   29   39   49   59   69   79   89    99
[10,]   10   20   30   40   50   60   70   80   90   100nrow=n)

A continuación, se resta la matriz auxiliar consigo misma y se obtiene una matriz en la que hay valor -1 por encimaindica el numero de fila a la diagonal y 1 por debajomatriz que indica el número de columna. Ambas matrices se generan a partir de la matriz auxiliar. Al restar se obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

# restamos las auxiliaresmatrices fila y columna obtenidas de la auxiliar
A<- row(auxiliar) - col(auxiliar)
 
# Ahora tenemos valor -1 por encima de la diagonal y valor 1 por debajo
> A
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    0   -1   -2   -3   -4   -5   -6   -7   -8    -9
 [2,]    1    0   -1   -2   -3   -4   -5   -6   -7    -8
 [3,]    2    1    0   -1   -2   -3   -4   -5   -6    -7
 [4,]    3    2    1    0   -1   -2   -3   -4   -5    -6
 [5,]    4    3    2    1    0   -1   -2   -3   -4    -5
 [6,]    5    4    3    2    1    0   -1   -2   -3    -4
 [7,]    6    5    4    3    2    1    0   -1   -2    -3
 [8,]    7    6    5    4    3    2    1    0   -1    -2
 [9,]    8    7    6    5    4    3    2    1    0    -1
[10,]    9    8    7    6    5    4    3    2    1     0

Primero se crea una matriz auxiliar como la siguiente

# dimension
n <- 10

# creamos matriz auxiliar con valores de 1 a n^2
auxiliar <- matrix(seq_len(n ^ 2), ncol = n)
>auxiliar
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1   11   21   31   41   51   61   71   81    91
 [2,]    2   12   22   32   42   52   62   72   82    92
 [3,]    3   13   23   33   43   53   63   73   83    93
 [4,]    4   14   24   34   44   54   64   74   84    94
 [5,]    5   15   25   35   45   55   65   75   85    95
 [6,]    6   16   26   36   46   56   66   76   86    96
 [7,]    7   17   27   37   47   57   67   77   87    97
 [8,]    8   18   28   38   48   58   68   78   88    98
 [9,]    9   19   29   39   49   59   69   79   89    99
[10,]   10   20   30   40   50   60   70   80   90   100

A continuación, se resta la matriz auxiliar consigo misma y se obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

# restamos las auxiliares
A<- row(auxiliar) - col(auxiliar)
 
# Ahora tenemos valor -1 por encima de la diagonal y valor 1 por debajo
> A
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    0   -1   -2   -3   -4   -5   -6   -7   -8    -9
 [2,]    1    0   -1   -2   -3   -4   -5   -6   -7    -8
 [3,]    2    1    0   -1   -2   -3   -4   -5   -6    -7
 [4,]    3    2    1    0   -1   -2   -3   -4   -5    -6
 [5,]    4    3    2    1    0   -1   -2   -3   -4    -5
 [6,]    5    4    3    2    1    0   -1   -2   -3    -4
 [7,]    6    5    4    3    2    1    0   -1   -2    -3
 [8,]    7    6    5    4    3    2    1    0   -1    -2
 [9,]    8    7    6    5    4    3    2    1    0    -1
[10,]    9    8    7    6    5    4    3    2    1     0

Primero se crea una matriz auxiliar con las dimensiones deseadas

# dimension
n <- 10

# creamos matriz auxiliar con valores cualesquiera
auxiliar <- matrix(0, ncol = n, nrow=n)

A continuación, se resta la matriz que indica el numero de fila a la matriz que indica el número de columna. Ambas matrices se generan a partir de la matriz auxiliar. Al restar se obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

# restamos las matrices fila y columna obtenidas de la auxiliar
A<- row(auxiliar) - col(auxiliar)
 
# Ahora tenemos valor -1 por encima de la diagonal y valor 1 por debajo
> A
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    0   -1   -2   -3   -4   -5   -6   -7   -8    -9
 [2,]    1    0   -1   -2   -3   -4   -5   -6   -7    -8
 [3,]    2    1    0   -1   -2   -3   -4   -5   -6    -7
 [4,]    3    2    1    0   -1   -2   -3   -4   -5    -6
 [5,]    4    3    2    1    0   -1   -2   -3   -4    -5
 [6,]    5    4    3    2    1    0   -1   -2   -3    -4
 [7,]    6    5    4    3    2    1    0   -1   -2    -3
 [8,]    7    6    5    4    3    2    1    0   -1    -2
 [9,]    8    7    6    5    4    3    2    1    0    -1
[10,]    9    8    7    6    5    4    3    2    1     0
se añadieron 7 caracteres en el cuerpo
Origen Enlace
HMSP
  • 248
  • 1
  • 6

Basándome en https://stackoverflow.com/questions/11759503/extracting-off-diagonal-slice-of-large-matrix/11759744#11759744 te propongo esta metodología. Funciona que funciona para matrices cuadradas.

Primero creasse crea una matriz auxiliar como la siguiente

A continuación, restasse resta la matriz auxiliar consigo misma y obtienesse obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

# sustituimos valores
A[A>1]<-0
A[A<(-1)]<-0

# valor por debajo de la diagonal
A[A==1]<-3

# valor por encima de la diagonldiagonal
A[A==(-1)]<-4

# por último ponemos diagonal igual a 1
diag(A)<-1

> A
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1    4    0    0    0    0    0    0    0     0
 [2,]    3    1    4    0    0    0    0    0    0     0
 [3,]    0    3    1    4    0    0    0    0    0     0
 [4,]    0    0    3    1    4    0    0    0    0     0
 [5,]    0    0    0    3    1    4    0    0    0     0
 [6,]    0    0    0    0    3    1    4    0    0     0
 [7,]    0    0    0    0    0    3    1    4    0     0
 [8,]    0    0    0    0    0    0    3    1    4     0
 [9,]    0    0    0    0    0    0    0    3    1     4
[10,]    0    0    0    0    0    0    0    0    3     1

Basándome en https://stackoverflow.com/questions/11759503/extracting-off-diagonal-slice-of-large-matrix/11759744#11759744 te propongo esta metodología. Funciona para matrices cuadradas.

Primero creas una matriz auxiliar como la siguiente

A continuación, restas la matriz auxiliar consigo misma y obtienes una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

# sustituimos valores
A[A>1]<-0
A[A<(-1)]<-0

# valor por debajo de la diagonal
A[A==1]<-3

# valor por encima de la diagonl
A[A==(-1)]<-4

# por último ponemos diagonal igual a 1
diag(A)<-1

> A
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1    4    0    0    0    0    0    0    0     0
 [2,]    3    1    4    0    0    0    0    0    0     0
 [3,]    0    3    1    4    0    0    0    0    0     0
 [4,]    0    0    3    1    4    0    0    0    0     0
 [5,]    0    0    0    3    1    4    0    0    0     0
 [6,]    0    0    0    0    3    1    4    0    0     0
 [7,]    0    0    0    0    0    3    1    4    0     0
 [8,]    0    0    0    0    0    0    3    1    4     0
 [9,]    0    0    0    0    0    0    0    3    1     4
[10,]    0    0    0    0    0    0    0    0    3     1

Basándome en https://stackoverflow.com/questions/11759503/extracting-off-diagonal-slice-of-large-matrix/11759744#11759744 propongo esta metodología que funciona para matrices cuadradas.

Primero se crea una matriz auxiliar como la siguiente

A continuación, se resta la matriz auxiliar consigo misma y se obtiene una matriz en la que hay valor -1 por encima de la diagonal y 1 por debajo.

# sustituimos valores
A[A>1]<-0
A[A<(-1)]<-0

# valor por debajo de la diagonal
A[A==1]<-3

# valor por encima de la diagonal
A[A==(-1)]<-4

# por último ponemos diagonal igual a 1
diag(A)<-1

> A
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1    4    0    0    0    0    0    0    0     0
 [2,]    3    1    4    0    0    0    0    0    0     0
 [3,]    0    3    1    4    0    0    0    0    0     0
 [4,]    0    0    3    1    4    0    0    0    0     0
 [5,]    0    0    0    3    1    4    0    0    0     0
 [6,]    0    0    0    0    3    1    4    0    0     0
 [7,]    0    0    0    0    0    3    1    4    0     0
 [8,]    0    0    0    0    0    0    3    1    4     0
 [9,]    0    0    0    0    0    0    0    3    1     4
[10,]    0    0    0    0    0    0    0    0    3     1
Origen Enlace
HMSP
  • 248
  • 1
  • 6
Loading