相关疑难解决方法(0)

以下代码创建了某个计算的图表.我的问题是,即使分母中的术语处于一个很好的顺序,在应用Plus后,它们会被任意重新排列.有关如何强制保留原始订单的任何建议吗？

http://yaroslavvb.com/upload/ind-sets-grid.png

r[i_] := Floor[(i - 1)/n] + 1;
c[i_] := Mod[i, n, 1];
adj[a_, b_] := Abs[r[a] - r[b]] + Abs[c[a] - c[b]] == 1;
indsetQ[s_] := Not[Or @@ (adj @@@ Subsets[s, {2}])];
indsets[k_] := Select[Subsets[Range[n^2], {k}], indsetQ];
twoColorGraph[g_, seen_, lbl_] := Module[{radius = .22},
   vcoords = # -> {c[#], n - r[#]} & /@ Range[n^2];
   fv = Function[{p, v}, {EdgeForm[Thick], 
      If[MemberQ[seen, v], Pink, White], Disk[p, radius]}];
   GraphPlot[g, VertexLabeling -> True, VertexRenderingFunction -> fv,
     PlotLabel -> Style[lbl, 20], LabelStyle …

在Mathematica中,您如何更改变量的重要性顺序？例如:如果我输入b + c + a + d,我得到一个+ b + c + d但我希望b和d先于其他变量.所以我得到b + d + a + c

请注意,我想在+非交换的地方使用它