792046_zh-TW

liliconcom

有沒有辦法在不使用迴圈的情況下用值 101..505 填滿 5x5 矩陣？

辦法肯定有！

循環版本：

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];

鼓勵多種解決方案（如果有的話）！我正在努力“精通”矩陣。

自動化和腳本編寫回覆：有沒有辦法在不使用循環的情況下用值 101..505 填滿 5x5 矩陣？

終於有一個了雖然它並不漂亮

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]

回覆：有沒有辦法在不使用循環的情況下用值 101..505 填滿 5x5 矩陣？

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]

或者

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]

回覆：有沒有辦法在不使用循環的情況下用值 101..505 填滿 5x5 矩陣？

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

回覆：有沒有辦法在不使用循環的情況下用值 101..505 填滿 5x5 矩陣？

可能會變慢，但您也可以將 JSL 程式碼與 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();