三色七珠手链问题

markfang2050

hujunhua 发表于 2019-10-21 16:53
本坛讨论过这个问题，题目还是我给重新取的，所以还记得。
有一个初始数据表格，198在其中。
彩珠手串的 ...

chyanog

Mathematica代码，老一些的版本没有DeleteDuplicatesBy，可以用GatherBy

1. DeleteDuplicatesBy[Tuples[{0,1,2},7],Union@@(NestList[RotateLeft,#,Length[#]-1]&/@{#,Reverse@#})&]//Length//AbsoluteTiming

复制代码

输出

{0.0279719, 198}

可视化，将上面得到的列表命名为res

1. Framed@Graphics[Transpose@{#,Disk[#,0.15]&/@CirclePoints[7]}]& /@ (res /. {0->Blue,1->Green,2->Purple})

复制代码

markfang2050

chyanog 发表于 2019-10-21 17:51
Mathematica代码，老一些的版本没有DeleteDuplicatesBy，可以用GatherBy

输出

后续呢？图像显示呢？

markfang2050

markfang2050 发表于 2019-10-21 19:49
后续呢？图像显示呢？

MMA10.3没有显示出图像啊,

markfang2050

给chyang点赞

王守恩

王守恩 发表于 2019-10-21 15:20
198条独一无二的彩珠手链条码。
001=1111111
002=1111112

19楼有错，可又不能改正，重来。
198条独一无二的彩珠手链条码。
001=0000000
002=0000001
003=0000002
004=0000011
005=0000012
006=0000022
007=0000101
008=0000102
009=0000111
010=0000112
011=0000121
012=0000122
013=0000202
014=0000212
015=0000222
016=0001001
017=0001002
018=0001011
019=0001012
020=0001021
021=0001022
022=0001102
023=0001111
024=0001112
025=0001121
026=0001122
027=0001202
028=0001212
029=0001221
030=0001222
031=0002002
032=0002012
033=0002022
034=0002112
035=0002122
036=0002222
037=0010011
038=0010012
039=0010022
040=0010101
041=0010102
042=0010111
043=0010112
044=0010121
045=0010122
046=0010201
047=0010202
048=0010211
049=0010212
050=0010221
051=0010222
052=0011002
053=0011011
054=0011012
055=0011021
056=0011022
057=0011102
058=0011111
059=0011112
060=0011121
061=0011122
062=0011202
063=0011211
064=0011212
065=0011221
066=0011222
067=0012002
068=0012012
069=0012021
070=0012022
071=0012102
072=0012112
073=0012121
074=0012122
075=0012202
076=0012212
077=0012221
078=0012222
079=0020022
080=0020102
081=0020112
082=0020122
083=0020202
084=0020212
085=0020222
086=0021012
087=0021022
088=0021112
089=0021122
090=0021212
091=0021222
092=0022022
093=0022122
094=0022222
095=0101011
096=0101012
097=0101022
098=0101102
099=0101111
100=0101112
101=0101121
102=0101122
103=0101202
104=0101212
105=0101221
106=0101222
107=0102012
108=0102022
109=0102112
110=0102122
111=0102222
112=0110111
113=0110112
114=0110121
115=0110122
116=0110202
117=0110212
118=0110222
119=0111012
120=0111022
121=0111102
122=0111111
123=0111112
124=0111121
125=0111122
126=0111202
127=0111211
128=0111212
129=0111221
130=0111222
131=0112012
132=0112021
133=0112022
134=0112102
135=0112112
136=0112121
137=0112122
138=0112202
139=0112211
140=0112212
141=0112221
142=0112222
143=0120121
144=0120122
145=0120202
146=0120212
147=0120221
148=0120222
149=0121022
150=0121112
151=0121121
152=0121122
153=0121202
154=0121212
155=0121221
156=0121222
157=0122022
158=0122102
159=0122112
160=0122122
161=0122202
162=0122212
163=0122221
164=0122222
165=0202022
166=0202112
167=0202122
168=0202222
169=0211112
170=0211122
171=0211212
172=0211222
173=0212022
174=0212122
175=0212212
176=0212222
177=0220222
178=0221122
179=0221222
180=0222222
181=1111111
182=1111112
183=1111122
184=1111212
185=1111222
186=1112112
187=1112122
188=1112222
189=1121122
190=1121212
191=1121222
192=1122122
193=1122222
194=1212122
195=1212222
196=1221222
197=1222222
198=2222222

dlpg070

chyanog 发表于 2019-10-21 17:51
Mathematica代码，老一些的版本没有DeleteDuplicatesBy，可以用GatherBy

输出

为了研究数据和图形的对应关系，对chyang的绘图代码，稍作改进，
增加 title（序号：色彩列表）
       图像大小 x ：根据显示器分辨率和MMA设置，用户可改变
----------------------------------------------------------------------

1. (* chyang 改进绘图*)
   
2. AbsoluteTiming[
   
3. res=DeleteDuplicatesBy[Tuples[{0,1,2},7],Union@@(NestList[RotateLeft,#,Length[#]-1]&/@{#,Reverse@#})&];
   
4. res//Length]
   
5. x=100;
   
6. out=Table[
   
7. res1=Table[res[[i]],{i,k,k}];
   
8. Graphics[Transpose@{#,Disk[#,0.15]&/@CirclePoints[7]},ImageSize->x,Frame->True,FrameTicks->None,PlotLabel->Style[Framed[ToString[k]<>":\n"<>ToString[res[[k]]]],10,Blue,Background->Yellow]]&/@(res1/.{0->Red,1->Green,2->Blue}),
   
9. {k,1,Length[res]}]
   
10. Export["3colorx7.png",out]
    

复制代码

3colorx7.png:

王守恩

dlpg070 发表于 2019-10-23 16:50
为了研究数据和图形的对应关系，对chyang的绘图代码，稍作改进，
增加 title（序号：色彩列表）
       ...

此(类)题可以这样想：在一个满意的答案中，
每种颜色的珠子颗数都是一样的，我们只要侧重找某种颜色即可。
某种颜色所需的颗数×颜色的种数÷每串手链的颗数就是满意的答案。