Return to Answer

deleted 11 characters in body

Source Link

edited Nov 10, 2013 at 21:47

I think you need something like this

Total[#1 - #2] & @@ Partition[#, Length[#]/2] &[
 Times @@@@@ MapIndexed[Subscript[x, #2[[2]]]^##2[[1]]]^# &, Transpose@Boole[MCSs]Boole[MCSs], {2}]]

enter image description here

I think you need something like this

Total[#1 - #2] & @@ Partition[#, Length[#]/2] &[
 Times @@@ MapIndexed[Subscript[x, #2[[2]]]^# &, Transpose@Boole[MCSs], {2}]]

enter image description here

I think you need something like this

Total[#1 - #2] & @@ Partition[#, Length[#]/2] &[
 Times @@ MapIndexed[Subscript[x, #2[[1]]]^# &, Boole[MCSs], {2}]]

enter image description here

Source Link

created Nov 10, 2013 at 20:03

I think you need something like this

Total[#1 - #2] & @@ Partition[#, Length[#]/2] &[
 Times @@@ MapIndexed[Subscript[x, #2[[2]]]^# &, Transpose@Boole[MCSs], {2}]]

enter image description here