最佳公式

manthanein

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)}\)

可以考虑更好的

王守恩

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}

uk702

王守恩 发表于 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 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}

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

manthanein

王守恩 发表于 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年）。

王守恩

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日=星期三)

王守恩

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 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-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}}

佛小zp

能否帮我验证一下：