792046_es-ES

liliconcom

¿Hay formas de rellenar una matriz de 5x5 con valores 101..505 sin utilizar bucles?

¡Seguro que hay maneras!

Versión en bucle:

ii = 1::5; jj = 1::5;

m = j(5,5);

foreach({i}, ii,
	foreach({j}, jj,
		m[i,j] = i*100 + j
	)
);

m;

#=> [ 101 102 103 104 105, 
	201 202 203 204 205, 
	301 302 303 304 305, 
	401 402 403 404 405, 
	501 502 503 504 505];

¡Se aceptan múltiples soluciones, si las tienes! Estoy tratando de "manejar bien" las matrices.

Automatización y scriptingRe: ¿Hay formas de rellenar una matriz de 5x5 con valores 101..505 sin utilizar bucles?

Por fin lo conseguí, aunque no es bonito.

a = shape(mod(0::24, 5) + 1, 5);

#=> [1 2 3 4 5,
1 2 3 4 5,
1 2 3 4 5,
1 2 3 4 5,
1 2 3 4 5]

b = shape(floor(index(10, 58, 2) / 10), 5) * 100;

#=> [100 100 100 100 100,
200 200 200 200 200,
300 300 300 300 300,
400 400 400 400 400,
500 500 500 500 500]

a+b;

#=> [101 102 103 104 105,
201 202 203 204 205,
301 302 303 304 305,
401 402 403 404 405,
501 502 503 504 505]

Re: ¿Hay formas de rellenar una matriz de 5x5 con valores 101..505 sin utilizar bucles?

x = J( 5, 5, . );
Parallel Assign( {}, x[r, c] = 100 * r + c );
x;

[101 102 103 104 105,
201 202 203 204 205,
301 302 303 304 305,
401 402 403 404 405,
501 502 503 504 505]

o

n = 5;
x = 1 :: n;
y = 100 * x;
Repeat( x, n ) + Repeat( y, n )`;

[101 102 103 104 105,
201 202 203 204 205,
301 302 303 304 305,
401 402 403 404 405,
501 502 503 504 505]

Re: ¿Hay formas de rellenar una matriz de 5x5 con valores 101..505 sin utilizar bucles?

(101::105) |/ (201::205) |/ (301::305) |/ (401::405) |/ (501::505)

Re: ¿Hay formas de rellenar una matriz de 5x5 con valores 101..505 sin utilizar bucles?

Puede resultar lento, pero también puedes usar código JSL con la función J()

Names Default To Here(1);

n = 5;

i = 1;
m = J(n, n, 
	Ceiling(i / n) * 100 + Mod(i++ - 1, n) + 1
);<BR /><BR />Write();