HotWC3(V1.02)网上在线工具升级支持多种星期算法

[复制链接]
2935|16
 楼主| hotpower 发表于 2011-7-18 23:26 | 显示全部楼层 |阅读模式
本帖最后由 hotpower 于 2012-10-26 23:18 编辑

菜农为增加对各种星期算法及公式的验证,特意升级HotWC3。
点击直接网上运行http://www.hotpage.net.cn/HotAjax/HotPower_HotAjax.html

菜农有关星期网文:

菜农星期公式揭秘及蔡勒公式推想


菜农与蔡勒和基姆拉尔森三个星期公式之揭秘与推想

菜农与蔡勒和基姆拉尔森三个星期公式的继续繁衍

HotWC3有关算法程序片段:

  1. function getweek(century, year, month, day)
  2. {
  3. var week, dateval, table;
  4. if (month <= 2)//1,2月变为去年的13,14月
  5. {
  6.   year --;
  7.   if (year < 0)
  8.   {
  9.    year = 99;
  10.    century --;
  11.       if (century < 0)
  12.       {
  13.       century = 99;
  14.    }
  15.   }
  16.   month |= 4;//1,2月查5,6月表
  17. //  month += 12;//去年的13,14月
  18. }
  19. switch(weeksele.selectedIndex)
  20. {
  21.    case 0:
  22. /*
  23. 菜农星期算法
  24. 星期=(百年%4*5+年+年/4+(13*月+8)/5+日)%7
  25. */
  26.      week = ((century & 3) * 5 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;
  27.      break;
  28.    case 1:
  29. /*
  30. 蔡勒星期算法
  31. 星期=百年/4+203-2*百年+年+年/4+(13*月+8)/5+日)%7
  32. */
  33.      week = (Math.floor(century / 4) + 203 - 2 * century + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;
  34.      break;
  35.    case 2:
  36. /*
  37. 基姆星期算法
  38. 星期=(百年/4+百年*5+年+年/4+(13*月+8)/5+日)%7
  39. */
  40.      week = (Math.floor(century / 4) + century * 5 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;
  41.      break;
  42.    case 3:
  43. /*
  44. 菜农第二星期算法
  45. 星期=((百年*5)%20+年+年/4+(13*月+8)/5+日)%7
  46. */
  47.      week = ((century * 5) % 20 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;
  48.      break;
  49.    case 4:
  50. /*
  51. 菜农第二星期算法
  52. 星期=(((日期/100)*5)%20+日期%100+(日期%100)4+(13*月+8)/5+日)%7
  53. */
  54.      dateval = century * 100 + year;
  55.      week = ((Math.floor(dateval / 100) * 5) % 20 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;
  56.      break;
  57.    case 5:
  58. /*
  59. 星期算法月表
  60. 星期=(百年%4*5+年+年/4+星期月表+日)%7
  61. */
  62.    table = "2503514620";//3月为基月,3~12月,1,2月查5,6月表
  63.      week = ((century & 3) * 5 + year + (year >> 2) + parseInt(table.substr(month-3, 1), 10) + day) % 7;
  64.      break;
  65. }
  66. return week;
  67. }



HotWC3网页运行贴图:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
乡村男孩 发表于 2011-7-19 08:26 | 显示全部楼层
乡村男孩 发表于 2011-7-19 08:26 | 显示全部楼层
好好和大叔学习
大叔啥时候授课呢
 楼主| hotpower 发表于 2011-7-19 09:40 | 显示全部楼层
准备结合rtc的例程讲讲星期公式的实际应用
乡村男孩 发表于 2011-7-19 11:01 | 显示全部楼层
期待。。。
先提前学习之
 楼主| hotpower 发表于 2011-7-19 11:05 | 显示全部楼层
实际还有GPS等星期算法的必须应用。
weshiluwei6 发表于 2011-7-19 12:43 | 显示全部楼层
期待大叔讲课啊
 楼主| hotpower 发表于 2011-7-19 23:24 | 显示全部楼层
先学习基础知识
 楼主| hotpower 发表于 2011-7-20 09:39 | 显示全部楼层

  1. void rtc_t::SetWeek(uint32_t Year, uint32_t Month, uint32_t Day)
  2. {
  3.         uint32_t DayOfWeek;
  4. //月表=(13*Month+8)/5
  5.         static const char WeekTable[]="\x2\x5\x0\x3\x5\x1\x4\x6\x2\x0";
  6.         if (WriteEnable())
  7.         {
  8.                 if (Month < 2)
  9.                 {
  10. //去年
  11.                         if (Year > 0) Year --;//2000.3~2099.12
  12.                         else Year = 9999;
  13. //今年的1月2月是去年的13月14月
  14. //                        Month += 12;
  15. //今年的1月2月是去年的5月6月
  16.                         Month += 4;       
  17.                 }
  18. //世纪内星期算法
  19. //            DayOfWeek = ((Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;

  20. //菜农星期表格=(百年%4*5+年+年/4+月表+日)%7
  21. //月表=(13*Month+8)/5
  22. //工程编译长度合计3484个字节
  23.             DayOfWeek = (((Year/100)&3)*5+(Year%100)+((Year%100)>>2)+WeekTable[Month-3]+Day)%7;

  24. //菜农星期公式=((百年&3)*5+年+(年>>2)+(13*月+8)/5+日)%7
  25. //工程编译长度合计3492个字节
  26. //            DayOfWeek = (((Year/100)&3)*5+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;

  27. //基姆拉尔森星期公式=(百年/4+百年*5+年+年/4+(13*月+8)/5+日)%7
  28. //工程编译长度合计3508个字节
  29. //            DayOfWeek = (Year/400+(Year/100)*5+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;

  30. //蔡勒完整星期公式=(203+百年/4-2*百年+年+年/4+(13*月+3)/5+日+1)%7
  31. //工程编译长度合计3508个字节
  32. //            DayOfWeek = (203+Year/400-(Year/100)*2+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;

  33. //蔡勒星期公式=(百年/4-2*百年+年+年/4+(13*月+3)/5+日+1)%7
  34. //工程编译长度合计3500个字节
  35. //            DayOfWeek = (Year/400-(Year/100)*2+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;

  36. #if LOOK_H == 0
  37.                 RTCs.DWR.Bits.DWR = DayOfWeek;
  38. #else
  39.                 RTC.DWR().DWR = DayOfWeek;
  40. #endif
  41.                 rtc_t::DayOfWeek = DayOfWeek;
  42.         }
  43. }

(标准算法)
菜农星期表格编译后,3484字节
菜农星期公式编译后,3492字节
基姆拉尔森星期公式编译后,3508字节
蔡勒星期公式编译后,也是3508字节

菜农星期表格:0
菜农星期公式:+8
基姆拉尔森星期公式:+24
蔡勒星期公式编译后,+24
51小刚 发表于 2011-7-20 18:26 | 显示全部楼层
顶菜农大叔!
 楼主| hotpower 发表于 2011-7-20 19:00 | 显示全部楼层
 楼主| hotpower 发表于 2011-7-21 01:24 | 显示全部楼层
HotWC3的一个暴力行为:
http://bbs.lcdhome.net/read-htm-tid-23328.html

6楼和7楼。
注意HotWC3的网址现在为:
http://www.hotpower.org/HotAjax/HotPower_HotAjax.html
 楼主| hotpower 发表于 2011-7-22 18:38 | 显示全部楼层
本帖最后由 hotpower 于 2011-7-23 00:01 编辑

今晚群课就是LOOK之RTC,其中肯定要涉及星期公式的。
该例程中有6种星期算法
老鱼探戈 发表于 2011-7-22 20:41 | 显示全部楼层
赞一个!
xd54622 发表于 2011-7-22 20:52 | 显示全部楼层
这个必须顶
 楼主| hotpower 发表于 2011-7-24 19:28 | 显示全部楼层
哈哈,没几个人喜欢HotWC3的~~~
 楼主| hotpower 发表于 2012-10-23 19:32 | 显示全部楼层
挖墓为2012.10.25菜农个人版《HotWC3密码体系》开版搜索
您需要登录后才可以回帖 登录 | 注册

本版积分规则

个人签名:[url=http://www.21ic.com/tools/HotWC3_V1.23.html]

1460

主题

21617

帖子

508

粉丝
快速回复 在线客服 返回列表 返回顶部