Reciprocal Score Voting: Difference between revisions
→Implementation
Line 125:
<syntaxhighlight lang="Mathematica" line='line'>
RSV[ballots_] := Module[{i, factionmask, factionratings, fif, ffi, nc, nv, fr},
{nv, nc} = Dimensions[ballots];
factionmask = KroneckerDelta /@ (# - Max[#]) & /@ ballots;
| |||