User Portlet
Discussions |
---|
Please try this is code:Triliste[a_] := Module[{x = a}, m = Length[a]; For[i = 1, i x[[j]], x[[{i, j}]] = x[[{j, i}]]]]]; x] |
Discussions |
---|
Please try this is code:Triliste[a_] := Module[{x = a}, m = Length[a]; For[i = 1, i x[[j]], x[[{i, j}]] = x[[{j, i}]]]]]; x] |