添加万年历

Author: englianhu

.directory

@@ -1,4 +1,4 @@
 [Dolphin]
 SortRole=type
-Timestamp=2024,5,1,16,25,36
+Timestamp=2024,10,27,6,56,9
 Version=4

binary-Q1Inter-HFT-RV3E.Rmd

@@ -1098,6 +1098,8 @@ rm(程序包)
 
 #### 通古知今
 
+##### 中国简史
+
 > <iframe width="400" height="225" src="https://youtube.com/embed/ndCUxQB0kzg" title="「抖音」大秦赋 - 时光机器农历二零零二年" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" allowfullscreen></iframe>
 > 
 > *出处：[「油管」大秦赋 - 时光机器农历二零零二年](https://youtu.be/ndCUxQB0kzg)*
@@ -1206,6 +1208,8 @@ rm(天朝, 周朝, 西周, 东周, 春秋, 战国)
 ## 公元841年 农历干支：辛酉，生肖：鸡，朝代：唐朝，在位皇帝：唐武宗李炎，年号：会昌元年
 ```
 
+##### 周史
+
 ```{r 读取朝代年号, results = 'asis', error = TRUE}
 ## 秦国 China，秦人 Chinese
 ## 司马错得蜀既得楚
@@ -1304,6 +1308,12 @@ source('函数/集成年号.R')
 
 以上中国年号通史数据，採撷于[「词典网」首页>>年号](https://www.cidianwang.com/nianhao)。有关文本记载古称，请查阅[文本纪元](#文本纪元)，而“计数或机数，国之大事是也”请查阅[春秋战国名人](#春秋战国名人)。
 
+##### 万年历
+
+![](诸子百家考工记/万年历（一八二八年至二一二八年珍藏版）.png)
+
+随便到神料店或书局即可购买到诸子百家各版本的《万年历》而年份会五花八门、百家争艳，而愚生在二零零三年在书店随意所购的是内蒙古出版社发行的**《万年历》（珍藏版）**上注释着**公元一八二八年至二一二八年**，作者是李福俊的一九九九年之作（而愚生之外祖父是书法家李福，一般上咱们道家民间信仰的玉皇大帝和王母娘娘乃外祖父与外祖母。母亲之母称之为“王母”而母亲之父称之为“王父”。一九九九年是愚生在地南再也中学报读初中三，有关初中三历史好哥儿们陈友良与[阿里彩票](https://github.com/englianhu/ali-zonghui)工作时认识个长相似陈友良的斯蒂芬乔布斯/《大秦赋》中饰演赢政的艺人张鲁一/韩星张东健，更多详情请查阅：[「文派」《赢家黄氏江夏堂》 – 始祖赢政ΞΗG TΕΗG·黄永春家谱](https://englianhu.wordpress.com/2022/02/22/《雪隆江夏堂》-家谱)和[]()）。
+
 ![](诸子百家考工记/鄀语言 - 制作干支对照表.png){width=400}
 
 ```{r 天干地支, error = TRUE}
@@ -1321,11 +1331,11 @@ if (!exists('干支')) 干支 <- paste0(rep(天干, 6), rep(地支, 5))
 cat('天干：', 天干, '\n地支：', 地支, '\n干支：', 干支, '\n')
 
 ## 辑写此篇论文的时间二零二四年为甲辰年
-## 从公元前七七零年到公元前二二一年
-## 2024 - (-770) = 2794
-## 2024 - (-221) = 2245
+## 从公元前七七零年到公元前二二一年，由于公元第一年为元年，故此扣除元年前的零年
+## 2024 - (-770) - 1 = 2793
+## 2024 - (-221) - 1 = 2244
 
-天下简史 <- data.frame(年份 = -5000:2024, 纪年法 = rep(干支, 118)[37:7061], 朝代 = NA, 年号 = NA, 国事 = NA, 钱谷 = NA, 战役 = NA, 战果 = NA)
+天下简史 <- data.frame(年份 = -5000:2024, 纪年法 = rep(干支, 118)[37:7061], 朝代 = NA, 年号 = NA, 国事 = NA, 钱谷 = NA, 战役 = NA, 战果 = NA) %>% dplyr::filter(年份 != 0)
 
 朝代 <- c('夏朝' = -2070, '商朝' = -1600, '西周' = -1046, '春秋' = -770, '战国' = -475, '秦朝' = -221, '西汉' = -202, '新朝' = 9, '东汉' = 25, '三国' = 220, '西晋' = 266, '十六国' = 304, '南北朝' = 420, '隋朝' = 581, '唐朝' = 618, '五代十国' = 907, '宋朝' = 690, '辽国' = 907, '金国' = 1115, '西夏' = 1038, '元朝' = 1271, '明朝' = 1368, '清朝' = 1636, '阿美利坚共和国' = 1776, '中华民国' = 1912, '中华人民共和国' = 1949)
 朝代 <- data.frame(年份 = 朝代, 朝代 = names(朝代)) %>% 
@@ -1335,7 +1345,7 @@ cat('天干：', 天干, '\n地支：', 地支, '\n干支：', 干支, '\n')
 年号 <- data.frame(年份 = 年号, 年号 = names(年号)) %>% 
     as_tibble()
 
-国事 <- c('姜太公钓鱼' = -1100, '周平王即位，东周开始' = -771, '齐相道法/管子/管仲临盆' = -723, '齐恒公姜小白临盆' = -716, '秦穆公嬴任好临盆' = -705, '晋文公姬重耳临盆' = -697, '齐恒公姜小白即位' = -685, '齐恒公称霸：尊王攘夷，九合诸侯。' = -681, '秦穆公嬴任好即位' = -659, '宋襄公子兹甫即位' = -651, '楚庄王熊旅临盆' = -650, '宋襄公称霸：春秋大义' = -639, '晋文公姬重耳即位' = -636, '晋文公称霸：践土会盟，称霸诸侯。' = -632, '楚庄王熊旅即位' = -631, '秦穆公称霸：称霸西戎' = -623, '楚庄王熊旅问鼎' = -613, '楚襄王称霸：饮马黄河，问鼎中原。' = -597, '齐相晏婴/晏子/晏仲临盆' = -578, '道家/老子/李耳临盆' = -571, '儒家/孔子/孔丘临盆' = -551, '墨家/墨子/墨翟临盆' = -476, '纵横家/鬼谷子/王诩/王禅临盆' = -400, '商鞅/卫鞅临盆' = -390, '田氏代齐' = 386, '秦孝公赢渠梁临盆' = -381, '儒家/孟子/孟轲临盆' = -372, '道家/庄子/庄周临盆' = -369, '秦孝公赢渠梁求贤令' = -361, '商鞅变法' = -359, '齐威王即位' = -356, '秦惠文王赢驷临盆' = -354, '齐宣王田辟疆临盆' = -350, '秦惠文王赢驷即位' = -337, '法家/荀子/荀卿临盆' = -331, '秦惠文王诛商君，除巫裔，改元年。称秦王，誓东出' = -325, '齐宣王田辟疆即位' = -319, '燕王哙见废姬平' = -316, '长史李斯临盆' = -280, '燕惠王即位' = -279, '秦始皇嬴政登基' = -221, '司马迁临盆' = -145, '司马迁进言改历《汉历》' = -104, '司马迁完成《史纪》' = -91, '基督耶稣临盆' = 0, '曹操崛起' = 194, '陈群仕魏' = 198, '卧龙出渊' = 207, '曹丕魏文帝登基' = 220, '刘备汉烈祖登基' = 221, '孙权吴大帝登基' = 222, '晋武帝司马炎登基' = 266, '晋元帝司马睿登基' = 317, '美国国父瓦盛顿临盆' = 1732, '瓦盛顿任命为大陆军总司令' = 1776, '袁世凯称帝' = 1859, '中华民国国父孙中山临盆' = 1866, '明治维新' = 1868, '岩仓使欧' = 1871, '蒋介石临盆' = 1887, '孙中山立国' = 1912)
+国事 <- c('姜太公钓鱼' = -1100, '周平王即位，东周开始' = -771, '齐相道法/管子/管仲临盆' = -723, '齐恒公姜小白临盆' = -716, '秦穆公嬴任好临盆' = -705, '晋文公姬重耳临盆' = -697, '齐恒公姜小白即位' = -685, '齐恒公称霸：尊王攘夷，九合诸侯。' = -681, '秦穆公嬴任好即位' = -659, '宋襄公子兹甫即位' = -651, '楚庄王熊旅临盆' = -650, '宋襄公称霸：春秋大义' = -639, '晋文公姬重耳即位' = -636, '晋文公称霸：践土会盟，称霸诸侯。' = -632, '楚庄王熊旅即位' = -631, '秦穆公称霸：称霸西戎' = -623, '楚庄王熊旅问鼎' = -613, '楚襄王称霸：饮马黄河，问鼎中原。' = -597, '齐相晏婴/晏子/晏仲临盆' = -578, '道家/老子/李耳临盆' = -571, '儒家/孔子/孔丘临盆' = -551, '墨家/墨子/墨翟临盆' = -476, '纵横家/鬼谷子/王诩/王禅临盆' = -400, '商鞅/卫鞅临盆' = -390, '田氏代齐' = 386, '秦孝公赢渠梁临盆' = -381, '儒家/孟子/孟轲临盆' = -372, '道家/庄子/庄周临盆' = -369, '秦孝公赢渠梁求贤令' = -361, '商鞅变法' = -359, '齐威王即位' = -356, '秦惠文王赢驷临盆' = -354, '齐宣王田辟疆临盆' = -350, '秦惠文王赢驷即位' = -337, '法家/荀子/荀卿临盆' = -331, '秦惠文王诛商君，除巫裔，改元年。称秦王，誓东出' = -325, '齐宣王田辟疆即位' = -319, '燕王哙见废姬平' = -316, '长史李斯临盆' = -280, '燕惠王即位' = -279, '秦始皇嬴政登基' = -221, '司马迁临盆' = -145, '司马迁进言改历《汉历》' = -104, '司马迁完成《史纪》' = -91, '基督耶稣临盆' = 1, '曹操崛起' = 194, '陈群仕魏' = 198, '卧龙出渊' = 207, '曹丕魏文帝登基' = 220, '刘备汉烈祖登基' = 221, '孙权吴大帝登基' = 222, '晋武帝司马炎登基' = 266, '晋元帝司马睿登基' = 317, '美国国父瓦盛顿临盆' = 1732, '瓦盛顿任命为大陆军总司令' = 1776, '袁世凯称帝' = 1859, '中华民国国父孙中山临盆' = 1866, '明治维新' = 1868, '岩仓使欧' = 1871, '蒋介石临盆' = 1887, '孙中山立国' = 1912)
 国事 <- data.frame(年份 = 国事, 国事 = names(国事)) %>% 
     as_tibble()
 
@@ -1355,6 +1365,7 @@ cat('天干：', 天干, '\n地支：', 地支, '\n干支：', 干支, '\n')
     .[, c('年份', '年份乙', '纪年法', '朝代', '年号', '国事', '钱谷', '战役', '战果')]
 天下简史 <- 天下简史[grep(天下简史$朝代[!is.na(天下简史$朝代)][1], 天下简史$朝代):nrow(天下简史),] %>% 
   mutate(朝代 = na_locf(朝代))
+天下简史$年份=='一年']
 
 rm(朝代, 年号, 国事, 钱谷, 战役, 战果)
 ```

图书馆/.directory

@@ -1,4 +1,4 @@
 [Dolphin]
 SortRole=type
-Timestamp=2024,5,6,22,22,23
+Timestamp=2024,10,27,17,38,44
 Version=4

诸子百家考工记/.directory

@@ -1,4 +1,4 @@
 [Dolphin]
 SortRole=type
-Timestamp=2024,5,1,16,25,56
+Timestamp=2024,10,27,6,56,26
 Version=4

诸子百家考工记/万年历（一八二八年至二一二八年珍藏版）.png

@@ -1,4 +1,4 @@
 [Dolphin]
 SortRole=type
-Timestamp=2024,3,24,13,16,2
+Timestamp=2024,10,27,6,56,14
 Version=4