चीजों को पुनर्व्यवस्थित करने से "प्लस" को रोकना

Question

निम्न कोड एक निश्चित गणना का आरेख बनाता है। मेरी समस्या यह है कि भले ही इन्हें प्लस लगाने के बाद, संप्रदाय में नियम अच्छे क्रम में हैं, फिर भी वे मनमाने ढंग से पुन: व्यवस्थित हो जाते हैं। कोई सुझाव है कि मूल आदेश को कैसे रखा जाए?

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 -> 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] 

Answer 1

myPlusकरने की तरह कुछ स्वरूपण के लिए चाल उत्पादन पर Plus तरह देखने Format उपयोग करने के लिए है। यहाँ प्राप्त करने के लिए एक सरल उदाहरण आप आरंभ है:

फिर, क्या आप नोटबुक में नेत्रहीन देखेंगे:

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

... लेकिन x अभी भी सिर myPlus होगा।

यहाँ प्रलेखन कि उत्पादन, ऑपरेटर पूर्वता प्रारूपित करने के बारे में अधिक जानकारी के में चला जाता है से एक tutorial, आदि

आशा है कि मदद करता है!