| 1 |
iStochasticityAssumptions [sm_List] := |
| 2 |
SquareMatrixQ[sm] && Element[DeleteDuplicates[Flatten[sm]], Reals] && |
| 3 |
Apply [And, Map[#>=0&, sm, {2}], {0, 1}] && Apply [And, Thread[Total[sm, {2}] == 1]] |
| 4 |
|
| 5 |
iStochasticityAssumptions[sm_SparseArray] := SquareMatrixQ[sm] && |
| 6 |
Apply[And, Thread[ DeleteDuplicates [ sm["NonzeroValues"] ~Join~ {sm["Background"]} ] >= 0 ] ] && |
| 7 |
Apply[And, Thread [Total [sm, {2}] = 1]] |
| 8 |
|
| 9 |
(* https://github.com/WolframResearch/vscode-wolfram/blob/master/docs/highlighting.png *) |
| 10 |
|
