[第101期_1]三角形面积排列之二[已总结]

delete_007

总结帖见42楼
竞赛日期：2014-1-8至2014-2-18

---

目前最佳答案：评分1式（133/271）、评分2式（336）

题目说明：
  1.A1:F1为[2,15]的整数，G1单元格的真实值为0。
  2.从A1:F1中任选三个数字，判断其是否能形成三角形。
  3.A:F列显示所选的三个数字，G列显示三角形信息。
  4.必需列出所有可能的组合。(模拟结果见图）


答题要求：
  1.纯函数题，不允许定义名称、VBA、设置迭代等其他操作。
  2.所得结果顺序可与模拟结果不一致。
  3.公式中只允许引用A1:G1单元格区域，不允许INDIRECT等间接引用（ROW和COLUMN函数不受此限制）。
  4.公式需通过2003版EXCEL验证。
  5.请注意容错。
  6.答题时请注明你所选择的答题方式，如（评分1式）


评分：
  1.A2公式向右向下填充至F31或A2:F31多单元格数组公式（公式一）
    G2公式向下填充至G31或G2:G31多单元格数组公式（公式二）
      公式一（含=）长度小于140字符得1分
      公式二（含=）长度小于290字符得1分
  2.A2公式向右向下填充至G31或A2:G31多单元格数组公式（公式三）
      公式三（含=）长度小于380字符3分起评，精彩答案可评4分
  3.上述两种答题方式任选其一，错答、多答均不得分，请量力而行谨慎选择。


提示：
  1.海伦公式
  2.[第98期]购买玩具




总结帖见42楼

CheryBTL

题目要求改了。。。。晕
那就先选择评分一：
公式一:正好139字符(A2:F31区域数组）

1. =IF(ROW()>21,"",IF(-1^INT(SMALL((MMULT(N(-1^INT(ROW(1:99)*2/2^COLUMN())<0),ROW(1:6)^0)<>3)/1%+ROW(1:99),ROW()-1)*2/2^COLUMN())<0,A1:F1,""))

复制代码

公式二:256字符(G2下拉）

1. =TEXT(PRODUCT(-TEXT(MMULT(LARGE((-1^INT(SMALL({1;7;11;13;14;19;21;22;25;26;28;35;37;38;41;42;44;49;50;52;56},1+(ROW()<22)*ROW(A1))/2^{0,1,2,3,4,5})<0)*A$1:F$1,{1,2,3}),{1,1,1,-1;1,1,-1,1;1,-1,1,1}),"0;!0;0"))^0.5/4+(1-99^(ROW()>21)),"三角形面积为#.0??;;不能形成三角形")

复制代码

==============================================================
补充自己看的答案：340字符（A2:G31区域数组）

1. =IF(ROW()>21,"",IF(COLUMN()<7,IF(-1^INT(SMALL({7;11;13;14;19;21;22;25;26;28;35;37;38;41;42;44;49;50;52;56},ROW()-1)*2/2^COLUMN())<0,A1:F1,""),TEXT(PRODUCT(SUM(INDIRECT("RC[-"&ROW(1:6)&"]",)),--TEXT(SUM(N(INDIRECT("RC[-"&{6,5,4,3,2,1}&"]",)))-2*LARGE(N(INDIRECT("RC[-"&{6,5,4,3,2,1}&"]",)),{1,2,3}),"0;!0;0"))^0.5/4,"三角形面积为#.0??;;不能形成三角形")))

复制代码

qy1219no2

评分1.

A2:F31多单元格数组公式，135字符

1. =IF(SUBSTITUTE(LARGE((ROW()-3*INT((ROW()-2)/4)+COLUMN()<7)*(677-11*ROW()-67*INT((ROW()-2)/4)-COLUMN()),ROW()-1),COLUMN(),)%>1,A1:F1,"")

复制代码

G2:G31多单元格数组公式，252字符

1. =IF(SUM(IF(1,OFFSET(A1:F1,ROW()-1,)))>2*MAX(IF(1,OFFSET(A1:F1,ROW()-1,))),TEXT(PRODUCT(SUM(IF(1,OFFSET(A1:F1,ROW()-1,)))/2-IF({1,1,1,0},LARGE(IF(1,OFFSET(A1:F1,ROW()-1,)),{1,2,3})))^0.5,"三角形面积为0.0??"),IF(SUM(IF(1,OFFSET(A1:F1,ROW()-1,))),"不能形成三角形",""))

复制代码

第二个公式也算间接引用吗？

评分2还是不行，看来还得再琢磨琢磨！

补充内容 (2014-2-18 15:58):
帖子编辑不了了？？

opqazxc

评分2式
A2：G31多单元格数组公式

1. =TEXT(INDEX(10^MMULT(LOG(TEXT(MMULT((MOD(ROW(1:64)/2^COLUMN()*2,2)<1)*A1:G1,-1^(ROW(1:7)=COLUMN(A:H))),"[>0];999")),-1^(ROW(1:8)>6))^0.5/4*(A1:G1=0)+(MOD(ROW(1:64)/2^COLUMN()*2,2)<1)*A1:G1,LARGE((MMULT(INT(MOD(ROW(1:64)/2^COLUMN()*2,2)),ROW(1:7)^0)=3)*ROW(1:64),ROW()-1),COLUMN()),IF(ROW()>COMBIN(6,3)+1,"",IF(A1:G1,"0;;","[<99]三角形面积为.0##;不能形成三角形")))

复制代码

含等号350``

没试过不按LZ的其他顺序的是否会少点``

久了
而且公式太长也不怎么想去试了``

1. =TEXT(INDEX(10^MMULT(LOG(TEXT(MMULT((MOD(ROW(1:140)/2^COLUMN()*2,2)<1)*A1:G1,-1^(ROW(1:7)=COLUMN(A:H))),"[>0];9999")),-1^(ROW(1:8)>6))^0.5/4*(A1:G1=0)+(MOD(ROW(1:140)/2^COLUMN()*2,2)<1)*A1:G1,LARGE((MMULT(INT(MOD(ROW(1:67)/2^COLUMN()*2,2)),ROW(1:7)^0)=3)*ROW(2:68)+63,ROW()),COLUMN()),IF(A1:G1,"0;;","[<99]三角形面积为.0##;[<2E7]不能形成三角形;"))

复制代码

sharprain

先写公式1吧,呵呵
A2:F31多单元格数组公式:

1. =IF(MOD(SMALL(IF(MMULT(INT(MOD(ROW(1:64)/2^COLUMN()*2,2)),ROW(1:6)^0)=3,ROW(1:64),64),ROW()-1)/2^COLUMN()*2,2)>=1,A$1:F$1,"")

复制代码

wlc5201130

评分1式:需要加载宏分析

本来是用这个的=IF(COUNT(0/-(MID(DEC2BIN(LARGE((SUBSTITUTE(DEC2BIN(ROW($1:$63),6),1,)="000")*ROW($1:$63),ROW(A1)),6),COLUMN(A1),1))),A$1,"")
后来到03版本中测试了下。好像数组不行。没有办法就直接把出现的肯能就直接填上去了，版主没说不能这样用吧。应该符合要求吧。
A2=IF(COUNT(0/-MID(DEC2BIN(SMALL({7;11;13;14;19;21;22;25;26;28;35;37;38;41;42;44;49;50;52;56},ROW(A1)),6),7-COLUMN(A1),1)),A$1,"")
下拉128字符

上面由于手动填写数组，为赖皮行为，现改为
133字符
A2=IF(MOD(MIN(ROW(A1),20),2)-MID(TEXT(LARGE((SUBSTITUTE(ROW(1:11100),0,)="111")*ROW(1:11100),INT(ROW()/2)),"000000"),COLUMN(),1),A$1,"")
数组，右拉下拉，不知这个可算赖皮行为。主要是针对MIN(ROW(A1),20)这个公式。

要是这个同样属于赖皮行为的话，就用这个
137字符
A2=IF(MOD(ROW(),2)*(SUM(1:1)<>0)-MID(TEXT(LARGE((SUBSTITUTE(ROW(1:11100),0,)="111")*ROW(1:11100),INT(ROW()/2)),"000000"),COLUMN(),1),A$1,"")
数组右拉下拉


评分2式:
245字符
G2=IF(SUM(OFFSET(A$1,MIN(ROW(A1)),,,6))>2*MAX(OFFSET(A$1,MIN(ROW(A1)),,,6)),"三角形面积为"&ROUND(SQRT(PRODUCT(SUM(OFFSET(A$1,MIN(ROW(A1)),,,6))/2-LARGE(IF({1;0},OFFSET(A$1,ROW(A1),,,6),),{1,2,3,4}))),3),IF(SUM(OFFSET(A$1,MIN(ROW(A1)),,,6)),"不能形成三角形",""))
数组右拉下拉

swyrlbq

评分1式：
公式一
A2:F31

1. =IF(1--1^INT(SMALL(IF(MMULT(1--1^INT(ROW(1:64)*2/2^COLUMN()),ROW(1:6)^0)=6,ROW(1:64),64),ROW()-1)*2/2^COLUMN()),A1:F1,"")

复制代码

公式二：
G2:G31

1. =TEXT(MAX(PRODUCT(INDEX(MMULT(SMALL(ROW(1:64)/1%+(1+-1^INT(ROW(1:64)*2/2^COLUMN(A:F)))/2*A1:F1,6*ROW(1:64)-{0,1,2})-ROW(1:64)/1%,1-({2;3;4}={1,2,3,4})*2),LARGE(((MMULT(1+-1^INT(ROW(1:64)*2/2^COLUMN(A:F)),ROW(1:6)^0)=6)*ROW(1:64)),ROW()-1))),)^0.5/4-(ROW()>21),"三角形面积为.0##;;不能形成三角形")

复制代码

newdj

只考虑了第三个公式，第一，第二不会，不知道可否算答题！

pxiceplay

评分1式
公式1：
a2:f31数组（按模拟结果顺序）：
=IF(--MID(DEC2BIN(SMALL(IF(SUBSTITUTE(DEC2BIN(ROW(7:56)),0,)-111,64,ROW(7:56)),ROW(1:30)),7),8-COLUMN(),1),A1:F1,"")
a2:f31数组（乱序）：
=IF(-MID(DEC2BIN(LARGE((SUBSTITUTE(DEC2BIN(ROW(7:56)),0,)="111")*ROW(7:56),ROW(1:30)),6),COLUMN(),1),A1:F1,"")

公式2：
暂时没搞定……

jsxjd

评分 2 式，A2 数组公式右拉下拉(358 Chars)

1. =IF(ROW()>21,"",IF(A$1,IF(MOD(INT(SMALL({7;11;13;19;21;25;35;37;41;49}*{1,-1}+63,ROW()-1)/2^COLUMN()),2),A$1,""),TEXT(TEXT(PRODUCT(MMULT(SMALL(ROW($2:$21)/1%+(MOD({56;52;50;49;44;42;41;38;37;35;28;26;25;22;21;19;14;13;11;7},2^{1,2,3,4,5,6})<2^{0,1,2,3,4,5})*$A$1:$F$1,ROW()*6-{6,7,8})-ROW()/1%,50%-({1;2;3}={1,2,3,4}))),"[<0]\0")^50%,"三角形面积为.0##;;不能形成三角形")))

复制代码

评分1有更短的，不敢上了。