凑数强化版【庆贺2021年5月9日母亲节】

香川群子

Q155133209 发表于 2021-6-16 21:03
香川大神，您如果有看到 看一下 !同样的一组数据，老的版本能凑出来 新的凑不出来。。。

应该是负数的处理有一点错误。附件已经更正。（因为大多数人不需要处理负数，所以不会发现问题）

山菊花

更正后的程序没有解决问题。

数据：10；8；-3；-5；-13
目标：5
存在3组解，但运行程序不能得到该解。

存在负数的数据，下面的思路存在错误，需改正。
sj(i, 0) = sj(i - 1, 0) + sj(i, 2) '凑数项的累计和

香川群子

山菊花 发表于 2021-7-31 08:41
更正后的程序没有解决问题。

数据：10；8；-3；-5；-13

哈哈，是真的有问题。

整理原始数据时，负数判断句应该分开处理的。

If sj(i, 2) < 0 Then [f11] = [f11] + 1: h1 = h1 - sj(i, 2) Else sj(i, 0) = sj(i - 1, 0) + sj(i, 2)
'凑数项的累计和(负数时扩大求和值)

这样就对了。

supest

版主您好！可以像方方格子的凑数那样，加上必选和排除的选项吗？谢谢了！！

supest

香川群子

supest 发表于 2021-8-17 12:14

排除项是可以在数据整理时，提前排除。
必选项，你可以把目标值减去这个必选元素。然后排除这个数再计算。
也可以等计算结果出来再筛选一遍排除不含有的即可。

supest

香川群子 发表于 2021-8-17 16:41
必选项没有意义。你等计算结果出来再筛选一遍排除不含有的即可。

排除项倒是可以在数据整理时，提前排 ...

因为我当前的工作需要每种组合里面的原始加数不重复的，每个数只参加一次组合，所以如果有排除功能就更方便，因为用完一次组合需要把用过的加数删除，有点不方便，或者如果能列出所有不重复参加累加的组合就更好了，比如10=1+2+3+4，10=1+9，这两组里面的1用了两次就不符合我的需要，1用过一次组合下次就不希望再进行组合了，可以做到吗？麻烦就算了，谢谢香川老师！！

dongdonggege

大师，你好：
我看过皮亚诺曲线，有2*2、3*3的正方形连接所有小正方形的中心点。
我也尝试画线，但是不会遍历，不会迭代。按照笨的办法，只画了一阶、二阶、三阶，再往后，图形更大、数据更多，就不会了。先上图
再传我的附件。做的不好，请大师出手，一睹风采。

dongdonggege

这是五阶的，麻烦大师了。

香川群子

dongdonggege 发表于 2021-9-8 11:21
这是五阶的，麻烦大师了。

这个皮亚诺曲线有啥好玩的。规律性很强，我看别人都是直接CAD复制粘贴就可以快速扩展了。

如果用Excel的话，不必用单元格中心划线，直接用单元格画框线即可。

…………
我试了一下，规律如下：
一、1阶图形开口朝上为0、逆时针旋转开口朝左为1、继续逆时针旋转开口向下为2、继续逆时针旋转开口向右为3

二、从n=2阶开始，新图形是上一阶n-1图形的如下4个的排列：
0 1
2 1  
并按0向右连接1、1向下连接1、1再向左连接2，得到左上角入口、左下角出口的基本n阶图形(转态位=1)

三、以此n阶转态位=1的图形为基础，仍旧按逆时针旋转分别得到状态为= 2,3,0 的剩余3个位图
它们的实际位图排列，按n-1阶图形的位图排列组合状态如下：
n阶0位：
1 3
0 0  
n阶1位：
0 1
2 1  
n阶2位：
2 2
1 3  
n阶3位：
3 0
3 2  
以上4个n阶的基本位图，在生成n+1下一阶图形是要用到（可以节省时间）

四、
1. 重复二：按 0,1；2,2 行列顺序得到n+1阶的位图1图形。
2. 重复三：继续按1,3；0,0生成位图0、按2,2；1,3生成位图2、按3,0；3,2生成位图3

这样就可以不断继续下去了。

…………应该可以简单地VBA编程实现。