《🚩🇨🇳🔆🏹🌟👊🚀🦔大秦赋 - 黄埔军校赢家黄氏江夏堂 - 中科红旗，高频量化对冲》

#春秋战国 #诸子百家 #秦人牧马 #世袭制道教徒赢家黄氏江夏堂 #世袭制杏林林氏西河堂 #道家中科红旗高频量化对冲 #万般皆下品唯有读书高 #大秦赋 #ChineseEmpire #公元前B4Christ只有中文BC没有外文 #世袭制道教徒赢家黄氏江夏堂拯救亚洲人歼灭所有巫裔回教徒Anti_Islamic_Virus_and_NonHalal_Only_governance #中国政府南太平洋战略 #大葱回教堂商鞅变法Anti_Islamic_Virus #Only_NonHalal_can_Survive #古老的东方有一条河它的名字叫黄河 #古老的东方有一条江它的名字叫长江 #江夏堂 #西河堂 #黄河文明 #黄埔军校 #黄种人🎶 #农民🎶
印裔尽弃，瓦釜雷鸣；
莫忘初衷，方得始终。

《🚩🇨🇳🔆🏹🌟👊🚀🦔大秦赋 - 黄埔军校赢家黄氏江夏堂 - 中科红旗，高频量化对冲》

「大秦赋 - 借鉴黄河文明史」
秦国三杰，拯救亚洲；
歼灭印裔，取代美国。
秦灭六洲，一统天下；
莫忘初衷，方得始终。

注释：印裔是祖籍印尼和印度、世袭制法家可兰经回教刑事法典断肢法的回教徒和世袭制奴隶大宝森节和屠妖节杀戮习俗文化的兴都教徒。

#春秋战国 #七大洲五大洋 #诸子百家 #鬼谷传奇 #世袭制道教徒学术份子 #秦国文臣三杰商鞅吕不韦李斯 #秦国China #洲学论 #关雎 #山海经 #军官与淑女 #关关雎鸠在河之洲是黄河文明
🚩🌟🦔赢家黄氏江夏堂，黄河文明、黄埔军校、黄种人嬴政之黄河文明拯救亚洲人，焚经坑乌（歼灭所有可兰经回教刑事法典断肢法的回教徒和吠陀经大宝森节屠妖节习俗文化的兴都教徒），功勋超过历代三黄五帝，建立道家、物理学、统筹法、运筹学、学术、金融、军事、易经、算卜、概率论与博弈论、黄种人世袭制道家民族主义，史称「秦始皇」
🚩🌟🦔杏林林氏西河堂，复兴中华杏林、金融、农业、武术、学术、道家、物理学、统筹法、运筹学、算卜、🧶刺绣密码学、科技信息学、概率论与博弈论、易经世纪大革命
🚩🌟🦔商家苏氏阜阳堂，复兴华夏司法界、商业、农业、物理学、统筹法、运筹学、学术、治安、易经、算卜、概率论与博弈论、金融大革命
🚩🌟🦔道家肖氏远芳堂，复兴中华道家、十二生肖、天文历法、物理学、统筹法、运筹学、学术、算卜、概率论与博弈论、易经世纪大革命

🚩🇨🇳🏹🌟🦔量化对冲，中科红旗；一带一路，一统天下（兵马未动，粮草先行；人民币货币经济学，东亚中国司马错得蜀既得楚；歼灭所有施展可兰经巫术窥听窥视入侵电子仪器的失心疯猥亵淫魔小丑巫师王白骨精瑾貹·殡·刘、入侵马来西亚的所有新加坡公民和印尼公民回教徒和峇峇娘惹并攻占东南亚，尤其是四季仔的印尼回教徒外劳房客、阿塔的孟加拉回教徒外劳房客、瓜雪回教市政局大门入口处柜台巫婆回教徒公仆奴辱依杀·殡敌·刘和大厅玻璃窗巫贼巫婆回教徒公仆瑾貹·殡敌·刘和美国回教市政局世袭制可兰经回教徒公仆达里尔·索菲亚、瓜雪回教土地局巫贼巫婆回教徒汪阿自杀和懦蛤仕蟆和法米仨、瓜雪回教警署巫贼巫婆回教徒、大港回教警署所有巫贼巫婆回教徒、瓜雪RHU（淮西派）花园加德士油站隔壁第三巷门牌卅二号边抽鼻涕边求命边膜拜边失心疯边自残自虐自杀的土司乩童刘瑾貹、瓜雪巴西不能帮门牌T十五号吱吱吾语的失心疯猥亵淫魔土司乩童小丑白骨精巫师王张佳坤、瓜雪回教警署巫贼回教徒黑米哈山·殡·伊不拉心和马航日语组森美兰人黑米哈山）、大港巴列特花园第十三巷门牌廿七号观音庙巫师王白骨精、廿九号光头小丑巫师王白骨精和胖妈、卅一号巫师王白骨精小丑李东海李、东梅和所有回教徒（尤其是回教徒公仆）和峇峇娘惹党羽、所有印裔（祖籍印尼包括土著和回教徒、祖籍印度的兴都教徒和回教徒包括土著）、印尼爱敌苏山多和新加坡欧阳金泰和洋蕃SEC001和洋蕃败登、鄀文艺坊与猫城所有洋蕃回教徒员工、巴西不能帮三或四石里路左右的可兰经回教宗教学校和大葱回教堂所有世袭制可兰经法家巫贼巫婆非法回教徒、世袭制自宫自残自虐自杀的失心疯猥亵淫魔英国可兰经法家回教徒洋妞儿米拉和世袭制自宫自残自虐自杀的失心疯猥亵淫魔男宠欧霸波懦。

🚩🇨🇳🏹🌟🦔诸子百家：印裔回教徒尽弃，瓦釜雷鸣。儒学、墨学、法学、道学、兵法、阴阳学、佛学、哲学、运筹学、思想录、干支算筹、中华习俗文化宗教语言复兴、学术数学科学科技大秦赋

🚩🇨🇳🏹🌟🦔《大秦赋 - 🇨🇳关雎》
🚩🇨🇳🏹🌟🦔春秋战国，诸子百家；
🚩🇨🇳🏹🌟🦔左氏春秋，鬼谷传奇。
🚩🇨🇳🏹🌟🦔商鞅变法，道法兵家；
🚩🇨🇳🏹🌟🦔四面楚歌，焚经坑番。
🚩🇨🇳🏹🌟🦔一带一路，横跨七洲；
🚩🇨🇳🏹🌟🦔史无前例，一统天下。
🚩🇨🇳🏹🌟🦔高频量化，对冲基金；
🚩🇨🇳🏹🌟🦔只争朝夕，不负韶华。
🚩🇨🇳🏹🌟🦔学海无涯，唯勤是岸；
🚩🇨🇳🏹🌟🦔莫忘初衷，方得始终。
https://gitee.com/eglianhu

Author: englianhu

binary-Q1Inter-HFT-RV3E.Rmd

@@ -1086,10 +1086,11 @@ rm(链, 周朝年号, 简, 列甲, 限甲, 列乙, 限乙, 列丙, 限丙, 周
 
 fwrite(牍, paste0(.蜀道书轩, '周朝年号.csv'))
 
+####################################################################################
 ## 战国
 天朝 <- '战国'
 链 <- c('https://www.cidianwang.com/nianhao/zhanguo_ebb8f.htm', paste0('https://www.cidianwang.com/nianhao/zhanguo_ebb8f_', 1:12, '.htm'))
-
+# 牒
 战国年号 <- plyr::ldply(1:length(链), function(迭) {
   椠 <- 链[迭] %>% 
     read_html() %>% 
@@ -1105,6 +1106,74 @@ fwrite(牍, paste0(.蜀道书轩, '周朝年号.csv'))
   版 <- matrix(椠, ncol = 2, byrow = TRUE, dimnames = list(NULL, c('年份', '明细')))
 }, .progress = 'text')
 
+
+简 <- strsplit(战国年号$明细, '，|：')
+列甲 <- 简 %>% 
+    lapply(length) %>% 
+    unlist()
+限甲 <- 列甲 %>% 
+    max()
+
+列乙 <- lapply(简, function(迭) grep('在位皇帝', 迭)) %>% 
+    unlist()
+限乙 <- 列乙 %>% 
+    max()
+
+牍 <- lapply(1:length(简), function(迭甲) {
+    列乙[迭甲] = grep('在位皇帝', 简[[迭甲]])
+    差乙 = 限乙 - 列乙[迭甲]
+    空乙 = rep(NA, 差乙)
+    if (差乙 > 0) {
+        牍 <- c(简[[迭甲]][1:(列乙[[迭甲]] - 差乙)], 空乙, 简[[迭甲]][列乙[[迭甲]]:列甲[[迭甲]]]) 
+    } else {
+        牍 <- 简[[迭甲]]
+    }})
+
+列乙 <- lapply(简, function(迭) grep('在位皇帝', 迭)) %>% 
+    unlist()
+
+列丙 <- lapply(牍, function(迭) grep('年号', 迭)) %>% 
+    unlist()
+限丙 <- 列丙 %>% 
+    max()
+
+牍 <- lapply(1:length(牍), function(迭甲) {
+    列丙[迭甲] = grep('年号', 牍[[迭甲]])
+    差丙 = 限丙 - 列丙[迭甲]
+    空丙 = rep(NA, 差丙)
+    if (差丙 > 0) {
+        牍 <- c(牍[[迭甲]][1:(列丙[[迭甲]] - 差丙)], 空丙, 牍[[迭甲]][列丙[[迭甲]]:限丙]) 
+    } else {
+        牍 <- 牍[[迭甲]]
+    }
+    牍 <- c(牍, rep(NA, 限甲 - length(牍)))
+}) %>% 
+    unlist %>% 
+    matrix(ncol = 限甲, byrow = TRUE, dimnames = list(
+        NULL, c('参数甲', '干支', '参数乙', '生肖', '参数丙', '朝代甲', '朝代乙', '朝代丙', '参数丁', '在位皇帝甲', 
+                '在位皇帝乙', '参数戊', '年号甲', '年号乙')))
+
+战国年号乙 <- 战国年号 %>% 
+    as_tibble %>% 
+    mutate(
+        年份乙 = 年份 %>% 
+            str_extract_all('[0-9]') %>% 
+            plyr::ldply(., function(迭) { 
+                paste0(迭, collapse = '') %>% 
+                    as.numeric() %>% 
+                    cnum::num2c(lang = 'sc')}) %>% 
+            unlist(), 
+        年份 = if_else(substr(年份, 1, 3) == '公元前', paste0('公元前', 年份乙, '年'), 年份乙) %>% 
+            factor, 
+        年份乙 = -cnum::c2num(年份乙))
+
+牍 <- cbind(战国年号乙[c('年份', '年份乙')], 牍[, -grep('参数', colnames(牍))]) %>% 
+    as_tibble() %>% 
+    dplyr::mutate_if(is.character, factor)
+rm(链, 战国年号, 简, 列甲, 限甲, 列乙, 限乙, 列丙, 限丙, 战国年号乙)
+
+牍 %>% llply(., function(牒) data.frame(t(matrix(牒)))) %>% rbindlist()
+
 ```
 
 ```{r 读取朝代年号, results = 'asis', error = TRUE}