Hola!!!!
No sé que tanto sabes de R...
Pero aquí tenés lo que estás buscando.
Copia el siguiente script tal cual está...
Que lo disfrutes!!!!
David Elias
# # # GENERACION DE MATRICES # # #
# Numeros que tendrá en cuenta para generar datos...
# Por ejemplo... numeros enteros del 1 al 10.
NUMEROS <- c(1:10)
# Un objeto que tiene dos columnas...
# La 1er columna sera el 1er elemento diagonal
# La 2da columna sera el 2do elemento diagonal
DIAGONALES <- matrix(NA, 10000,2)
# Un bicle for... para las 10mil filas de "DIAGONALES".
# Toma al azar 2 numeros del objeto "NUMEROS"...
# Con el argumento replace=T da la posibilidad que un numero pueda ser
# parte de los dos elementos de la diagonal...
# Si se cambia la "T" por un "F"... los elementos de la diagonal seran diferentes...
for (n in 1:nrow(DIAGONALES)) DIAGONALES[n,] <- sample(NUMEROS, 2, replace=T)
# Cree el objeto DIAGONALES, por que no tenia datos..:
# Si vos ya tenes una matriz con numeros que queres usar...
# podes utilizar esa informacion en vez de este objeto...
# Creamos una lista que contedra las 10mil matrices con las diagonales que se sortearon
MATRICES_SALIDA <- list()
# Creamos un bucle for de nuevo...
for (k in 1:nrow(DIAGONALES)) {
# Generamos una matriz de 2 por 2, con todos ceros...
MATRICES_SALIDA[[k]] <- matrix(0,2,2)
# Le modificamos el elemento de la posicion 1,1
MATRICES_SALIDA[[k]][1,1] <- DIAGONALES[k,1]
# Le modificamos el elemento de la posicion 2,2
MATRICES_SALIDA[[k]][2,2] <- DIAGONALES[k,2]
} # Fin for k
# Visualizacion de las matrices generadas...
MATRICES_SALIDA
# QUE LO DISFRUTESSSSSSSS!!!!!!!!!!!
# David Elias