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