ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 24500|回复: 74

[Excel 函数与公式] [开_137]寻找五连号

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-9-26 23:12 | 显示全部楼层 |阅读模式
本帖最后由 wangg913 于 2012-11-2 19:42 编辑

闲来无事,发个题大家玩玩。
题目不难,主要是限制了函数的长度。
暂时回帖仅本人可见,择日开贴。 找出五连号.rar (5.72 KB, 下载次数: 340)
2012-9-26 23-07-27.png

——————————————————————分割线——————————————————————

不好意思,国庆长假外出,未能及时开贴。请见谅。
此题的目的是在考察标准偏差、方差  等统计类函数的运用。
如需少于45个字符,必须利用此类函数 ,如:
STDEV、STDEVP、AVEDEV、DEVSQ、VAR、VARP
我的答案=N(VARP(-MID(A1,{1,4,7,10,13},2))=2)

大家可以参考9楼hjj0451的帖子。从原理上进行了解释。很棒!

感谢大家的参与,此题比较简单,旨在活跃气氛。谢谢大家。



评分

4

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-9-26 23:47 | 显示全部楼层
本帖最后由 qy1219no2 于 2012-9-26 23:48 编辑

凑个热闹:42字符
=N(SUM(MOD(MID(A1,{1,4,7,10,13},2),5))=10)
数组公式

点评

不正确,比如 10,09,07,03,06 不是五连号。  发表于 2012-9-27 08:56

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-9-26 23:55 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 wangg913 于 2012-9-27 11:39 编辑

口算一个:
=(devsq(-mid(a1,{1,4,7,10,13},2))=10)+0

简化一下:
=--(VAR(-MID(A1,{1,4,7,10,13},2))<3)

点评

头版威武!  发表于 2012-9-27 08:54

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-9-27 00:41 | 显示全部楼层
本帖最后由 杨小军 于 2012-10-5 13:30 编辑

  有字符限制!答案更正,见53楼!

http://club.excelhome.net/thread-925825-6-1.html

TA的精华主题

TA的得分主题

发表于 2012-9-27 08:07 | 显示全部楼层
本帖最后由 apirl2008 于 2012-9-28 17:28 编辑
  1. =(SUM(--MID(A1,{1,4,7,10,13},2))=(MEDIAN(--MID(A1,{1,4,7,10,13},2))*5))*1
复制代码
......不得了,已经73字符了
好吧,好吧,不知道是不是想错了,median的方法出错
  1. =AND((SMALL(--MID(A1,{1,4,7,10,13},2),ROW($1:$4))+1)=(SMALL(--MID(A1,{1,4,7,10,13},2),ROW($2:$5))))*1
复制代码

{:soso_e105:}更长了
  1. =AND(MEDIAN(--MID(A1,{1,4,7,10,13},2))+{-2;-1;0;1;2}=SMALL(--MID(A1,{1,4,7,10,13},2),ROW($1:$5)))*1
复制代码

省了几字符,还是很长啊
  1. =(SUM(MIN(--MID(A1,{1,4,7,10,13},2))+ROW($1:$5)-1)=SUM(--MID(A1,{1,4,7,10,13},2)))*1
复制代码

又砍掉了点,嘿嘿,继续努力,哈哈
目前想出来最短的
  1. =(SUM(LARGE(--MID(A2,{1,4,7,10,13},2),{1,5})*{1,-1})=4)*1
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-9-27 08:59 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
杨小军 发表于 2012-9-27 00:41
下拉

算是取巧了,算正确吧,但字符数没达到要求哦

TA的精华主题

TA的得分主题

发表于 2012-9-27 09:43 | 显示全部楼层
本帖最后由 kkitt 于 2012-9-27 11:21 编辑

=N(DEVSQ(--MID(A1,{1,4,7,10,13},2))=10)

再给个短点的

=N(VAR(-MID(A1,{1,4,7,10,13},2))=2.5)

点评

kk版思路正确,威武!  发表于 2012-9-27 10:21

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-9-27 10:02 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 wlc5201130 于 2012-9-27 15:43 编辑

=IF(SKEW(-MID(A1,{1,4,7,10,13},2))=0,1,)
40个字符
数组
谢谢版主的提醒,上面公式不完善。
=IF(AVEDEV(-MID(A1,{1,4,7,10,13},2))=1.2,1,)
44个字符。
数组

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-9-27 10:05 | 显示全部楼层
本帖最后由 hjj0451 于 2012-10-7 14:32 编辑

=N(SKEW(-MID(A1,{1,4,7,10,13},2))=0)
包括连偶奇等对称,不严格......
下面这些严格点:
=N(STDEV(-MID(A1,{1,4,7,10,13},2))^2=2.5)
=N(STDEVP(-MID(A1,{1,4,7,10,13},2))^2=2)
=N(AVEDEV(5*MID(A7,{1,4,7,10,13},2))=6),5个数有重复时会误判,如00,00,00,01,04
=N(DEVSQ(-MID(A1,{1,4,7,10,13},2))=10)
=N(VAR(2*MID(A1,{1,4,7,10,13},2))=10)
=N(VARP(-MID(A1,{1,4,7,10,13},2))=2)

由于四个","号分割的5个数字为0-99之间的整数,其充分必要性可证明。
充分性:
用反证法,推导5个不重复不完全连续的整数其总体方差必大于2。
假设5个不重复的不完全连续的整数,从小到大依次排列为 ,令:

=Y1
=Y1+1+
=Y1+2+
=Y1+3+
=Y1+4+

=Y1+2+(+++)/5,并有>0,>=>=>=>=0,等号不同时成立。

计算得到 与平均值偏差的平方和DEVSQ为:

[2+(+++)/5]^2+[1+(++-4)/5]^2+[(++-4)/5]^2+[1+(4---)/5]^2+[2+(4---)/5]^2
=4+1+1+4+(+++)^2/25+(++-4)^2/25+(++-4)^2/25+(4---)^2/25+(4---)^2/25+(4-2+2)

由于4-2+2>=4>0:
上式必>10
也即DEVSQ>10、VARP>2

另一方面:
的算术平均数计为 ,令:

=-
=-
=-
=-
=-

的方差与 相同,有如下关系式:

++++=0

由此得 的特解: -2、-1、0、1、2。

必要性:
5个连续整数的方差为2比较容易推导,(1^2+2^2+0^2+1^2+2^2)/5=2。




评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-9-27 10:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
{:soso_e162:}

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 09:10 , Processed in 0.043707 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表