请问如何实现矩阵指定列按行随机打乱位置，感谢！

busahuang

. |5 b$ d, J' P8 }如何实现矩阵指定列按行随机打乱位置，有一矩阵，如A=[1 2 3 4;8 4 5 6 ;8 9 3 0;5 7 6 9]，我想实现除A(:,1)不变，其余各列按行随机打乱元素位置。打乱后的矩阵有可能是A=[1 4 2 3;8 5 4 6 ;8 3 0 9;5 9 7 6]等。请教大神，非常感谢！

Zedd

A = [1 2 3 4;8 4 5 6 ;8 9 3 0;5 7 6 9];
$ U+ s0 p" n2 b8 O+ j; B& X! E* |[n,m] = size(A);
- M8 G- k7 C: j* c( etemp = arrayfun(@(ii) A(ii,[randperm( size(A,2)-1 )+1]),[1:1:n],'UniformOutput',false);
, @! a7 o5 X. n8 @, S' G8 p8 ]B = [A(:,1),vertcat( temp{:} )];
' L& f4 u! U- p: Z: e0 n' A3 A5 U4 wdisp( B )