函数，排列组合求最大

象山海鲜

cinlo 发表于 2021-5-26 08:56
无论如何，large的前4大就可以吧？

没测试过，总觉得哪里不合理。等空用vba测试下。

randysjf

zhadh 发表于 2021-5-26 09:54
简单粗暴，但是演算后不是最优值

这个不是82*96*92*47吗？
B列为什么是取92不取96呢？

zhadh

randysjf 发表于 2021-5-26 10:12
这个不是82*96*92*47吗？
B列为什么是取92不取96呢？

因为
1、题目要求：数据1×数据2×数据3×数据4，最大值  
所以D列应该优先考虑60，B列选92，我是这么理解的

cinlo

象山海鲜 发表于 2021-5-26 10:07
没测试过，总觉得哪里不合理。等空用vba测试下。

恩，因为这种情况很难碰到。。。。所以用公式很难看出问题来。。。

cinlo

抄了鱼老师的一遍，前面几乎完全一样，后面略有不同：
MAX(EXP(MMULT(LN(MID(INDEX(LARGE(A2:D16/1%+{1,2,3,4}/1%%+ROW(2:16),{3,2,1,0}*15+{1;2;3;4}),N(IF(1,MOD(INT(ROW(1:256)/4^{3,2,1,0}),4)+1)),N(IF(1,{1,2,3,4}))),2,2)),{1;1;1;1}))*(MMULT(N(LEN(SUBSTITUTE(TEXT(MMULT(1*RIGHT(INDEX(LARGE(A2:D16/1%+{1,2,3,4}/1%%+ROW(2:16),{3,2,1,0}*15+{1;2;3;4}),N(IF(1,MOD(INT(ROW(1:256)/4^{3,2,1,0}),4)+1)),N(IF(1,{1,2,3,4}))),2),10^{9;6;3;0}),REPT(0,12)),TEXT(COLUMN(B:P),"000"),))<9),ROW(1:15)^0)=0))
公式很长，速度没问题！！
实在没有太好的办法来排除同行。。。后面那个MMULT就非常的长了。。。

稍微优化一点点：
MAX(EXP(MMULT(LN(MID(INDEX(LARGE(A2:D16/1%+{1,2,3,4}/1%%+ROW(2:16),{3,2,1,0}*15+{1;2;3;4}),N(IF(1,MOD(INT(ROW(1:256)/4^{3,2,1,0}),4)+1)),N(IF(1,{1,2,3,4}))),2,2)),{1;1;1;1}))*(MMULT(1-ISERR(FIND(TEXT(COLUMN(B:P),"000"),TEXT(MMULT(1*RIGHT(INDEX(LARGE(A2:D16/1%+{1,2,3,4}/1%%+ROW(2:16),{3,2,1,0}*15+{1;2;3;4}),N(IF(1,MOD(INT(ROW(1:256)/4^{3,2,1,0}),4)+1)),N(IF(1,{1,2,3,4}))),2),10^{9;6;3;0}),REPT(0,12)))),ROW(1:15)^0)=4))

crision

这公式能写出来的都得是程序员。我这小白看都看不懂。

小書生

cinlo 发表于 2021-5-26 08:56
无论如何，large的前4大就可以吧？

会有bug，不同行，不同列，四个数！！

cinlo

小書生 发表于 2021-5-26 12:04
会有bug，不同行，不同列，四个数！！

每一列取一个数，一共4个数，都不同行，最多4行就够了！？想得脑壳痛。。。搞不清楚了。。。。。

zhadh

我有一个思路，每列取最大的前4位数减去次位的值最小的被减数，再和前后列的被减数做对比，取值最小非占有行数值，再乘积。不知道思路对不对

丢丢表格

象山海鲜 发表于 2021-5-26 10:07
没测试过，总觉得哪里不合理。等空用vba测试下。

每列 取4个最大值 的结合 FACT(4)  也有 24 种，又要考虑不同行，反而更难写出来。