manthanein 发表于 2020-12-21 20:10:48

uk702 发表于 2020-12-21 19:59


这个可以了。

我也想到一个:

\(\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 + Floor[(2 - n)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336}
Table - Round[(4 n - 1)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336}

uk702 发表于 2020-12-22 10:07:45

本帖最后由 uk702 于 2020-12-22 10:14 编辑

王守恩 发表于 2020-12-22 08:46
Table + Floor[(2 - n)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 18 ...

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


a=
x=1; k=30; u=1; v=2
for i=1:12
    b=31*i-30-floor(Int, 3*i/7) + floor(Int, (2-i)/10);
    println((i, b-a))
end

王守恩 发表于 2020-12-22 12:17:27

本帖最后由 王守恩 于 2020-12-22 12:19 编辑

王守恩 发表于 2020-12-22 08:46
Table + Floor[(2 - n)/(7 n)], {n, 1, 12}]
{1, 32, 61, 92, 122, 153, 18 ...

来个复杂的。

Table + 29 Floor - 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}

注:不管什么乱七八糟的都可以有(《漂亮的数字串》)。

manthanein 发表于 2020-12-22 14:52:22

王守恩 发表于 2020-12-22 12:17
来个复杂的。

Table + 29 Floor - 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年)。

王守恩 发表于 2020-12-23 09:49:15

manthanein 发表于 2020-12-22 14:52
太厉害了!
我是为了美化日期计算公式而弄这个的。
现在就是闰年的问题了


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

王守恩 发表于 2020-12-23 14:31:28

uk702 发表于 2020-12-22 10:07
赞!好像这样就可以了:31*i-30-+[(2-i)/10] 或者 31*i-30--[(i+10)/13]

受 13 楼启发,这样也可以。
Table - 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-Floor+Floor+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-Floor+Floor+Floor[(13m+8)/5]+d, 7],
{y, 2020,...
1999 年 3 月——2021 年 2 月,每月 1 日星期几的排列。
Table-Floor+Floor+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}}

佛小zp 发表于 2021-1-3 12:31:35

能否帮我验证一下:
页: 1 [2] 3
查看完整版本: 最佳公式