数学研发论坛

 找回密码
 欢迎注册
楼主: manthanein

[提问] 最佳公式

[复制链接]
 楼主| 发表于 2020-12-21 20:10:48 | 显示全部楼层

这个可以了。

我也想到一个:

\(\D f(x)= \left[\frac{x}{2}\right]+30(x-1)-sgn \lambda\)  
其中\(\lambda=\abs{(x-1)(x-2)(x-9)(x-10)}\)

可以考虑更好的
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-12-22 08:46:59 | 显示全部楼层
lsr314 发表于 2020-12-21 16:29
这个差值不就是闰年每个月的天数吗,参照星期几的计算公式

Table[31 n - 30 - Floor[(3 n)/7] + Floor[(2 - n)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336}
Table[31 n - 30 - Round[(3 n - 3)/7] - Round[(4 n - 1)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336}
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-12-22 10:07:45 | 显示全部楼层
本帖最后由 uk702 于 2020-12-22 10:14 编辑
王守恩 发表于 2020-12-22 08:46
Table[31 n - 30 - Floor[(3 n)/7] + Floor[(2 - n)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 18 ...


赞!好像这样就可以了:31*i-30-[3*i/7]+[(2-i)/10] 或者 31*i-30-[3*i/7]-[(i+10)/13]


  1. a=[1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336]
  2. x=1; k=30; u=1; v=2
  3. for i=1:12
  4.     b=31*i-30-floor(Int, 3*i/7) + floor(Int, (2-i)/10);
  5.     println((i, b-a[i]))
  6. end
复制代码


毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-12-22 12:17:27 | 显示全部楼层
本帖最后由 王守恩 于 2020-12-22 12:19 编辑
王守恩 发表于 2020-12-22 08:46
Table[31 n - 30 - Floor[(3 n)/7] + Floor[(2 - n)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 18 ...


来个复杂的。

Table[Mod[n - 1, 12] + 29 Floor[n/12] - 323 Floor[(n - 1)/12] + 30 Floor[(n - 2)/12]
+ 28 Floor[(n - 3)/12] + 30 Floor[(n - 4)/12] + 29 Floor[(n - 5)/12]
+ 30 Floor[(n - 6)/12] + 29 Floor[(n - 7)/12] + 30 Floor[(n - 8)/12]
+ 30 Floor[(n - 9)/12] +  29 Floor[(n - 10)/12] + 30 Floor[(n - 11)/12] + 296, {n, 1, 96}]
{1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336,
  2, 33, 62, 93, 123, 154, 184, 215, 246, 276, 307, 337,
  3, 34, 63, 94, 124, 155, 185, 216, 247, 277, 308, 338,
  4, 35, 64, 95, 125, 156, 186, 217, 248, 278, 309, 339,
  5, 36, 65, 96, 126, 157, 187, 218, 249, 279, 310, 340,
  6, 37, 66, 97, 127, 158, 188, 219, 250, 280, 311, 341,
  7, 38, 67, 98, 128, 159, 189, 220, 251, 281, 312, 342,
  8, 39, 68, 99, 129, 160, 190, 221, 252, 282, 313, 343}

注:不管什么乱七八糟的都可以有(《漂亮的数字串》)。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2020-12-22 14:52:22 | 显示全部楼层
王守恩 发表于 2020-12-22 12:17
来个复杂的。

Table[Mod[n - 1, 12] + 29 Floor[n/12] - 323 Floor[(n - 1)/12] + 30 Floor[(n - 2) ...

太厉害了!
我是为了美化日期计算公式而弄这个的。
现在就是闰年的问题了

置闰规则是:
<=1582年10月4日,四年一闰,比如公元前5年、公元前1年、公元4年、公元300年都有2月29日。
>=1582年10月15日,四年一闰,以00结尾要是400的倍数才闰

很好奇有没有什么简便的公式,输入年份,就能判断+1天或者-1天的(负数表示公元前,如-11表示公元前11年)。

点评

1582年历法改革,该年10月4日的翌日就是10月15日  发表于 2020-12-22 14:57
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-12-23 09:49:15 | 显示全部楼层
manthanein 发表于 2020-12-22 14:52
太厉害了!
我是为了美化日期计算公式而弄这个的。
现在就是闰年的问题了

Table[Table[Table[Mod[Floor[(5y)/4]-Floor[y/100]+Floor[y/400]+Floor[(13m+8)/5]+d, 7],
{y, 2020, 2020}], {m, 12, 12}], {d, 23, 23}]
{{{3}}}(2020年12月23日=星期三)

点评

蔡勒公式?  发表于 2020-12-23 10:05
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-12-23 14:31:28 | 显示全部楼层
uk702 发表于 2020-12-22 10:07
赞!好像这样就可以了:31*i-30-[3*i/7]+[(2-i)/10] 或者 31*i-30-[3*i/7]-[(i+10)/13]

受 13 楼启发,这样也可以。
Table[Floor[(2 - n)/14] - Floor[(210 - 214 n)/7], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336}
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-12-23 15:53:25 | 显示全部楼层
王守恩 发表于 2020-12-23 09:49
Table[Table[Table[Mod[Floor[(5y)/4]-Floor[y/100]+Floor[y/400]+Floor[(13m+8)/5]+d, 7],
{y, 2020,  ...

这串数是什么意思?
A178054        6,2,3,6,1,4,4,6,2,5,0,3,5,1,4,4,0,2,5,5,0,3,6,1,4,6,2, 5、5、1、3、6、1、4、0、2、5、0、3、6、6、2、4、0、2、5、1、3、6、1、4、0,1,4,6,2,4,0,3,5,1,3,6,2,2,5,0,3,5,1,4,6,2,4,0,3,3, 6,1,4,6,2,5,0,3,5,1,4,4,4,2,5,5,0,3,6,1,4,4,2,5,5,6,2, 4,0,2,5,1
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-12-24 08:51:55 | 显示全部楼层
本帖最后由 王守恩 于 2020-12-24 08:53 编辑
王守恩 发表于 2020-12-23 09:49
Table[Table[Table[Mod[Floor[(5y)/4]-Floor[y/100]+Floor[y/400]+Floor[(13m+8)/5]+d, 7],
{y, 2020,  ...

1999 年 3 月——2021 年 2 月,每月 1 日星期几的排列。
Table[Table[ Mod[Floor[(5 y)/4]-Floor[y/100]+Floor[y/400]+Floor[(13(m+1))/5],7],{m,3,14}],{y,1999,2020}]
{{1, 4, 6, 2, 4, 0, 3, 5, 1, 3, 6, 2}, {3, 6, 1, 4, 6, 2, 5, 0, 3, 5, 1, 4},
{4, 0, 2, 5, 0, 3, 6, 1, 4, 6, 2, 5}, {5, 1, 3, 6, 1, 4, 0, 2, 5, 0, 3, 6},
{6, 2, 4, 0, 2, 5, 1, 3, 6, 1, 4, 0}, {1, 4, 6, 2, 4, 0, 3, 5, 1, 3, 6, 2},
{2, 5, 0, 3, 5, 1, 4, 6, 2, 4, 0, 3}, {3, 6, 1, 4, 6, 2, 5, 0, 3, 5, 1, 4},
{4, 0, 2, 5, 0, 3, 6, 1, 4, 6, 2, 5}, {6, 2, 4, 0, 2, 5, 1, 3, 6, 1, 4, 0},
{0, 3, 5, 1, 3, 6, 2, 4, 0, 2, 5, 1}, {1, 4, 6, 2, 4, 0, 3, 5, 1, 3, 6, 2},
{2, 5, 0, 3, 5, 1, 4, 6, 2, 4, 0, 3}, {4, 0, 2, 5, 0, 3, 6, 1, 4, 6, 2, 5},
{5, 1, 3, 6, 1, 4, 0, 2, 5, 0, 3, 6}, {6, 2, 4, 0, 2, 5, 1, 3, 6, 1, 4, 0},
{0, 3, 5, 1, 3, 6, 2, 4, 0, 2, 5, 1}, {2, 5, 0, 3, 5, 1, 4, 6, 2, 4, 0, 3},
{3, 6, 1, 4, 6, 2, 5, 0, 3, 5, 1, 4}, {4, 0, 2, 5, 0, 3, 6, 1, 4, 6, 2, 5},
{5, 1, 3, 6, 1, 4, 0, 2, 5, 0, 3, 6}, {0, 3, 5, 1, 3, 6, 2, 4, 0, 2, 5, 1}}
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-1-3 12:31:35 | 显示全部楼层
能否帮我验证一下:
5.png
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2021-2-27 14:35 , Processed in 0.062357 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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