Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- W = Array[RandomChoice[{-1, 0, 1}] &, {n, n}];
- W // MatrixForm
- W[[j]][[i]] (*used part command*)
- g = RandomGraph[{v, e}, DirectedEdges -> True]
- am = AdjacencyMatrix[g]
- pos = am["NonzeroPositions"];
- am2 = SparseArray[
- pos -> RandomSample@Join[ConstantArray[-1, n], ConstantArray[1, Length[pos] - n]]
- ]
- RandomSample@Join[ConstantArray[1, k], ConstantArray[0, v - k]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement