防止“加"从重新安排事物 [英] Preventing "Plus" from rearranging things

问题描述

以下代码创建了一个特定计算的图表.我的问题是，即使分母中的项的顺序很好，但在对其应用 Plus 后，它们会被任意重新排列.任何建议如何强制保留原始订单?

_{(来源:yaroslavvb.com)} <前>r[i_] := 楼层[(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 = 函数[{p, v}, {EdgeForm[Thick],If[MemberQ[seen, v], Pink, White], Disk[p, radius]}];GraphPlot[g, VertexLabeling -> True, VertexRenderingFunction -> fv,PlotLabel -> Style[lbl, 20], LabelStyle -> Directive[Bold],VertexCoordinateRules -> vcoords, ImageSize -> 80]];n = 2;g = Array[Boole[adj[#1, #2]] &, {n^2, n^2}];weight[set_] := Times @@ (Subscript[\[Lambda], c[#], r[#]] &/@ set);分母 =twoColorGraph[g, #, weight[#]] &/@加入@@ (indsets[#] &/@ Range[2]);numerator = twoColorGraph[g, {1}, weight[{1}]];样式[分子/(加@@分母)，字体大小 -> 30]

解决方案

将诸如 myPlus 之类的内容格式化为 look 之类的技巧，例如 Plus输出是使用Format.下面是一个让您入门的简单示例:

格式[myPlus[expr__]] := Row[Riffle[{expr}, "+"]]

然后，您将在笔记本中直观地看到:

In[7]:= x = myPlus[3, 2, 1]出[7]= 3+2+1

...但是 x 仍然会有头部 myPlus.

这是文档中的教程，其中介绍了有关格式的更多详细信息输出、运算符优先级等

希望有帮助！

The following code creates a diagram of a certain calculation. My problem is that even though the terms in denominator are in a nice order, after applying Plus on it, they get rearranged arbitrarily. Any suggestions how to force the original order to be kept?

_{(source: yaroslavvb.com)}

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 -> Directive[Bold], 
    VertexCoordinateRules -> vcoords, ImageSize -> 80]
   ];
n = 2;
g = Array[Boole[adj[#1, #2]] &, {n^2, n^2}];
weight[set_] := Times @@ (Subscript[\[Lambda], c[#], r[#]] & /@ set);
denominator = 
  twoColorGraph[g, #, weight[#]] & /@ 
   Join @@ (indsets[#] & /@ Range[2]);
numerator = twoColorGraph[g, {1}, weight[{1}]];
Style[numerator/(Plus @@ denominator), FontSize -> 30]

解决方案

The trick to formatting something like myPlus to look like Plus on output is to use Format. Here's a simple example to get you started:

Format[myPlus[expr__]] := Row[Riffle[{expr}, "+"]]

Then, what you will see visually in the notebook is:

In[7]:= x = myPlus[3, 2, 1]
Out[7]= 3+2+1

... but x will still have head myPlus.

Here is a tutorial from the documentation that goes into more details about formatting output, operator precedence, etc.

Hope that helps!

这篇关于防止“加"从重新安排事物的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！