数学——求解“幻圆”问题

micch

中间可以是147，剩下6个数分两组。总共144种组合？？

dongdonggege

时间的音符 发表于 2023-2-27 11:23

老师，能否发个文件？

dongdonggege

micch 发表于 2023-2-27 11:30
中间可以是147，剩下6个数分两组。总共144种组合？？

上面的grf1973有108种，你有144种，搞的我头晕，老师，发个文件看看你的。

dongdonggege

grf1973 发表于 2023-2-27 11:22
暴搜即可。

我觉得老师的答案能接受

micch

dongdonggege 发表于 2023-2-27 11:36
上面的grf1973有108种，你有144种，搞的我头晕，老师，发个文件看看你的。

多算了，是108吧。直接暴力循环吧

1. Option Base 1
   
2. Function Permut7()
   
3.     Dim ar(200, 1), br()
   
4.     ReDim br(1 To 7)
   
5.     For i = 1 To 7
   
6.     For j = 1 To 7
   
7.     For k = 1 To 7
   
8.     For l = 1 To 7
   
9.     For m = 1 To 7
   
10.     For n = 1 To 7
    
11.     For o = 1 To 7
    
12.         br(i) = 1: br(j) = 1: br(k) = 1
    
13.         br(l) = 1: br(m) = 1: br(n) = 1: br(o) = 1
    
14.         s = Join(br, "")
    
15.         If Len(s) = 7 Then
    
16.         If i + k = m + n And i + j = n + o And j + m = k + o Then
    
17.             cnt = cnt + 1
    
18.             ar(cnt, 1) = i & "|" & j & "|" & k & "|" & l & "|" & m & "|" & n & "|" & o
    
19.         End If
    
20.         End If
    
21.         ReDim br(1 To 7)
    
22.     Next o, n, m, l, k, j, i
    
23.     [b2].Resize(UBound(ar)) = ar
    
24. End Function
    

复制代码

grf1973

应该可以去重的，因为a.b,c三个圆是等价的，所以结果只有108/3=36种

grf1973

去重后共18组结果。

清风竹-

请看附件。

micch

哪位老师能写一个直接递归填数的代码学习一下。感觉可以7个位置直接递归