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

#春秋战国 #诸子百家 #秦人牧马 #世袭制道教徒赢家黄氏江夏堂 #道家中科红旗高频量化对冲 #万般皆下品唯有读书高 #大秦赋 #ChineseEmpire #公元前B4Christ只有中文BC没有外文 #世袭制道教徒赢家黄氏江夏堂拯救亚洲人歼灭所有巫裔回教徒Anti_Islamic_Virus_and_NonHalal_Only_governance #中国政府南太平洋战略 #大葱回教堂商鞅变法Anti_Islamic_Virus #Only_NonHalal_can_Survive #古老的东方有一条它的名字叫黄河 #古老的东方有一条江它的名字叫长江 #江夏堂 #西河堂 #黄河文明 #黄埔军校 #黄种人🎶  #农民🎶
印裔尽弃（祖籍印尼的巫裔回教徒和土著、祖籍印度乌裔回教徒和兴都教徒和土著，咱们华人都是世袭制道家姓氏堂号/生辰八字的黄河文明/赢家黄氏江夏堂黄埔军校/黄种人/华夏民族/十二生肖/秦人牧马/燕从京来），瓦釜雷鸣；
莫忘初衷，方得始终。

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

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

🚩🇨🇳🏹🌟🦔量化对冲，中科红旗；一带一路，一统天下（兵马未动，粮草先行；人民币货币经济学，东亚中国司马错得蜀既得楚；歼灭东南亚所有回教徒和峇峇娘惹并攻占东南亚，尤其是四季仔的印尼回教徒外劳房客、阿塔的孟加拉回教徒外劳房客、瓜雪回教市政局柜台巫婆回教徒奴辱依杀、瓜雪回教土地局巫贼巫婆回教徒汪阿自杀和懦蛤仕蟆和法米仨、瓜雪回教警署巫贼巫婆回教徒、大港回教警署所有巫贼巫婆回教徒、瓜雪RHU（淮西派）花园加德士油站隔壁第三巷门牌卅二号边抽鼻涕边求命边膜拜边失心疯边自残自虐自杀的土司乩童刘瑾貹、瓜雪巴西不能帮门牌T十五号吱吱吾语的失心疯猥亵淫魔土司乩童张佳坤、瓜雪回教警署巫贼回教徒黑米哈山·殡·伊不拉心和马航日语组森美兰人黑米哈山。）、大港巴列特花园第十三巷门牌廿七廿九号土司乩童胖妈和卅一号李东海和李东梅和所有回教徒（尤其是回教徒公仆）和峇峇娘惹党羽、所有印裔（祖籍印尼包括土著和回教徒、祖籍印度的兴都教徒和回教徒包括土著）。

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

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

Author: englianhu

binary-Q1Inter-HFT-RV3E.Rmd

@@ -125,6 +125,8 @@ output:
 
 <img src='诸子百家考工记/鞭策六四，推广量化；百家争鸣，振兴中华。.png' width = '400'>
 
+*吕不韦著作《吕氏春秋》：奇货可居；索罗斯著作《金融炼金术》：物极必反论*
+
 世间再无富不过三代的败家子祖父黄实田（曾祖黄福全在清末光绪年间和两个哥哥仨飘洋过海从满洲到星洲自力更生努力奋斗开垦一百亩农地，然后和土木工程的杨清廉俩在清末鸦片战争时期是瓜雪两大不相伯仲的首富）祖母颜为，省吃俭用的外祖父书法家李福（李斯篆书）外祖母郑邓（家道中落的富家千金）。
 
 ## 商鞅变法（萨勒曼•殡•阿都拉兹变法）
@@ -544,7 +546,7 @@ conflicts_prefer(gtools::permutations, .quiet = TRUE)
 
 为了方便日后节省时间，这儿再过滤汇价数据量。
 
-```{r 绘制样本数据图表, results = 'asis'}
+```{r 绘制样本数据图表}
 ## 检验是否已设置途径。
 source('函数/汇总上奏.R')
 source('函数/总汇结论.R')
@@ -557,9 +559,7 @@ if (!exists('.蜀道')) {
     {\(.) paste(., collapse = '/')}() |> 
     {\(.) substring(., 2)}()
 }
-if (!exists('.蜀道仓库')) {
-  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
-}
+if (!exists('.蜀道仓库')) .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 
 样本二零一八半年 <- readRDS("~/文档/猫城/binary.com-interview-question-data/诸子百家学府/fx/USDJPY/样本2018半年.rds")
 
@@ -570,6 +570,8 @@ if (!exists('.蜀道仓库')) {
 日内指数平滑数据二零一八年上半年总汇 <- tidyft::full_join(样本二零一八半年, 日内指数平滑数据二零一八年上半年总汇) %>% 
     na.omit %>% 
     select_dt(-闭市价)
+
+日内指数平滑数据二零一八年上半年总汇
 ```
 
 以上图表显示数据`年月日时分`，由`r 日内指数平滑数据二零一八年上半年总汇 <- readRDS('/home/englianhu/文档/猫城/binary.com-interview-question-data/诸子百家学府/fx/USDJPY/仓库/日内指数平滑数据二零一八年上半年总汇.rds'); paste(range(日内指数平滑数据二零一八年上半年总汇$年月日时分), collapse = ' 至 ')`，接下来的科研一律使用同样的半年数据，是为了在回测多元统计模型，才能获知并筛选最优统计模型。
@@ -595,10 +597,13 @@ if (!exists('.蜀道仓库')) {
 source('函数/总汇结论.R')
 日内指数平滑数据二零一八年一月总汇 <- 日内指数平滑数据二零一八年上半年总汇[, 月份 := data.table::month(年月日时分)][月份 == 1]
 
-时间索引 <- 日内指数平滑数据二零一八年一月总汇[序列 == 1124001]$日期[1] #序列 == 1124001
+# 时间索引 <- 日内指数平滑数据二零一八年一月总汇[序列 == 1124001]$日期[1] #序列 == 1124001
+# 时间索引 <- 日内指数平滑数据二零一八年上半年总汇[序列 == 1124001]$日期[1] #序列 == 1124001
 
 #日内指数平滑数据二零一八年一月结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年一月总汇, 时间索引,  文件名 = '日内指数平滑数据二零一八年一月', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年一月结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年一月结论.rds'))
+
+日内指数平滑数据二零一八年一月总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年一月结论, results = 'asis'}
@@ -675,6 +680,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年二月结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年二月总汇, 文件名 = '日内指数平滑数据二零一八年二月', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年二月结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年二月结论.rds'))
+
+日内指数平滑数据二零一八年二月总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年二月结论, results = 'asis'}
@@ -751,6 +758,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年三月结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年三月总汇, 文件名 = '日内指数平滑数据二零一八年三月', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年三月结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年三月结论.rds'))
+
+日内指数平滑数据二零一八年三月总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年三月结论, results = 'asis'}
@@ -827,6 +836,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年四月结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年四月总汇, 文件名 = '日内指数平滑数据二零一八年四月', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年四月结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年四月结论.rds'))
+
+日内指数平滑数据二零一八年四月总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年四月结论, results = 'asis'}
@@ -903,6 +914,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年五月结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年五月总汇, 文件名 = '日内指数平滑数据二零一八年五月', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年五月结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年五月结论.rds'))
+
+日内指数平滑数据二零一八年五月总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年五月结论, results = 'asis'}
@@ -979,6 +992,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年六月结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年六月总汇, 文件名 = '日内指数平滑数据二零一八年六月', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年六月结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年六月结论.rds'))
+
+日内指数平滑数据二零一八年六月总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年六月结论, results = 'asis'}
@@ -1059,6 +1074,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年第一周结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年第一周总汇, 文件名 = '日内指数平滑数据二零一八年第一周', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年第一周结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年第一周结论.rds'))
+
+日内指数平滑数据二零一八年第一周总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年第一周结论, results = 'asis'}
@@ -1135,6 +1152,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年第二周结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年第二周总汇, 文件名 = '日内指数平滑数据二零一八年第二周', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年第二周结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年第二周结论.rds'))
+
+日内指数平滑数据二零一八年第二周总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年第二周结论, results = 'asis'}
@@ -1211,6 +1230,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年第三周结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年第三周总汇, 文件名 = '日内指数平滑数据二零一八年第三周', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年第三周结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年第三周结论.rds'))
+
+日内指数平滑数据二零一八年第三周总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年第三周结论, results = 'asis'}
@@ -1287,6 +1308,8 @@ source('函数/总汇结论.R')
 
 #日内指数平滑数据二零一八年第四周结论 <- 总汇结论(总汇 = 日内指数平滑数据二零一八年第四周总汇, 文件名 = '日内指数平滑数据二零一八年第四周', 是否储存结论 = '勾')
 日内指数平滑数据二零一八年第四周结论 <- readRDS(paste0(.蜀道仓库, '日内指数平滑数据二零一八年第四周结论.rds'))
+
+日内指数平滑数据二零一八年第四周总汇
 ```
 
 ```{r 日内指数平滑数据二零一八年第四周结论, results = 'asis'}
@@ -1360,7 +1383,7 @@ source('函数/总汇结论.R')
 
 ### 总汇二零一八年一月平滑周计结论
 
-```{r 日内指数平滑数据二零一八年一月平滑周计总汇, eval = FALSE}
+```{r 日内指数平滑数据二零一八年一月平滑周计总汇, error = TRUE}
 source('函数/总汇结论.R')
 日内指数平滑数据二零一八年一月总汇 <- 日内指数平滑数据二零一八年上半年总汇[, 月份 := data.table::month(年月日时分)][月份 == 1]
 
@@ -1376,7 +1399,7 @@ source('函数/总汇结论.R')
 - [Subset rows corresponding to max value by group using data.table](https://stackoverflow.com/a/16574176/3806250)
 - [`data.table`: Slice both dimensions, list of string columns](https://stackoverflow.com/questions/24937134/data-table-slice-both-dimensions-list-of-string-columns)
 
-```{r 日内指数平滑数据二零一八年一月平滑周计结论, results = 'asis'}
+```{r 日内指数平滑数据二零一八年一月平滑周计结论, error = TRUE, results = 'asis'}
 ## 这儿将精准度调整至30位数，round(..., 30)
 日内指数平滑数据二零一八年一月平滑周计结论 %>% 
   dplyr::mutate(
@@ -1449,7 +1472,7 @@ source('函数/总汇结论.R')
 春秋战国《*礼记•经解*》<br>
 孔子曰：『君子慎始，差若毫厘，缪以千里。』
 
-> <span style='color:#FFEBCD; background-color:#D2B48C;'>**《礼记·经解》孔子曰：**</span><span style='color:#A9A9A9; background-color:#696969;'>*「君子慎始，差若毫厘，谬以千里。」*</span>[^1]
+> <span style='color:#FFEBCD; background-color:#991B00;'>**《礼记•经解》孔子曰：**</span><span style='color:#DimGrey; background-color:#D52600;'>*「君子慎始，差若毫厘，谬以千里。」*</span>[^1]
 
 *引用：[「快懂百科」《礼记•经解》](https://www.baike.com/wikiid/2225522569881832051?view_id=2tt3iw3blkq000)和[第一范文网：差之毫厘，谬以千里的故事](https://www.diyifanwen.com/chengyu/liuziyishangchengyugushi/2010051523105152347092749890.htm)和[「百度百科」春秋时期孔子作品《礼记•经解》](https://baike.baidu.com/item/%E7%A4%BC%E8%AE%B0%C2%B7%E7%BB%8F%E8%A7%A3/2523092)和[「當代中國」差之毫釐 謬以千里](https://www.ourchinastory.com/zh/2962/%E5%B7%AE%E4%B9%8B%E6%AF%AB%E9%87%90%20%E8%AC%AC%E4%BB%A5%E5%8D%83%E9%87%8C)*
 

binary-Q1Inter-HFT-RV3E.html

@@ -1356,7 +1356,7 @@ I set the length of data as quarterly (`3 months * 22 days * 1440 mins = 95040 m
 春秋战国《*礼记•经解*》<br>
 孔子曰：『君子慎始，差若毫厘，缪以千里。』
 
-> <span style='color:#FFEBCD; background-color:#D2B48C;'>**《礼记·经解》孔子曰：**</span><span style='color:#A9A9A9; background-color:#696969;'>*「君子慎始，差若毫厘，谬以千里。」*</span>[^1]
+> <span style='color:#FFEBCD; background-color:#991B00;'>**《礼记•经解》孔子曰：**</span><span style='color:#DimGrey; background-color:#D52600;'>*「君子慎始，差若毫厘，谬以千里。」*</span>[^1]
 
 *引用：[「快懂百科」《礼记•经解》](https://www.baike.com/wikiid/2225522569881832051?view_id=2tt3iw3blkq000)和[第一范文网：差之毫厘，谬以千里的故事](https://www.diyifanwen.com/chengyu/liuziyishangchengyugushi/2010051523105152347092749890.htm)和[「百度百科」春秋时期孔子作品《礼记•经解》](https://baike.baidu.com/item/%E7%A4%BC%E8%AE%B0%C2%B7%E7%BB%8F%E8%A7%A3/2523092)和[「當代中國」差之毫釐 謬以千里](https://www.ourchinastory.com/zh/2962/%E5%B7%AE%E4%B9%8B%E6%AF%AB%E9%87%90%20%E8%AC%AC%E4%BB%A5%E5%8D%83%E9%87%8C)*
 

binary-Q1Inter-HFT-RV4.Rmd

@@ -74,7 +74,7 @@
       {\(.) paste(., collapse = '/')}() |> 
       {\(.) substring(., 2)}()
   }
-  .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 
   总汇 <- readRDS(paste0(.蜀道仓库, 文件名, 频率, '.rds')) %>% 
                       as.data.table()

函数/商鞅变法.R

@@ -44,7 +44,7 @@
       {\(.) paste(., collapse = '/')}() |> 
       {\(.) substring(., 2)}()
   }
-  .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 
   #if (!is.numeric(.差分阶数) && length(.差分阶数) != 1) 
   #  stop(".差分阶数 = 0 或 1 或 2")

函数/季节性自回归自动化.R

@@ -44,7 +44,7 @@
       {\(.) paste(., collapse = '/')}() |> 
       {\(.) substring(., 2)}()
   }
-  .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 
   source('函数/汇总上奏.R')
 

函数/总汇结论.R

@@ -61,7 +61,7 @@
        {\(.) paste(., collapse = '/')}() |> 
        {\(.) substring(., 2)}()
    }
-   .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+   .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 
    cat('\n将每分钟为一单位的数据组为列表！')
    列表 <- list.files(paste0(.蜀道仓库, 频率), '*.rds')

函数/整顿数据.R

@@ -87,7 +87,7 @@
       {\(.) paste(., collapse = '/')}() |> 
       {\(.) substring(., 2)}()
   }
-  .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
   #时间索引 <- 时间索引
   #样本 <- 样本
   #数据量 <- 数据量

函数/日内高频季节性自回归.R

@@ -59,7 +59,7 @@
       {\(.) paste(., collapse = '/')}() |> 
       {\(.) substring(., 2)}()
   }
-  .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 
   #if (!is.numeric(.差分阶数) && length(.差分阶数) != 1) 
   #  stop(".差分阶数 = 0 或 1 或 2")

函数/日内高频季节性自回归自动化.R

@@ -109,10 +109,10 @@
         {\(.) paste(., collapse = '/')}() |> 
         {\(.) substring(., 2)}()
 
-      if (!dir.exists(paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/', 频率)))
-        dir.create(paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/', 频率))
+      if (!dir.exists(paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/', 频率)))
+        dir.create(paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/', 频率))
 
-      文件蜀道 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/', 频率, 
+      文件蜀道 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/', 频率, 
                      '/', 文件名)
 
     } else {

函数/日内高频指数平滑.R

@@ -25,7 +25,7 @@
       {\(.) substring(., 2)}()
   }
 
-  .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
   #文件 <- list.files(.蜀道仓库, pattern = '^日内指数平滑数据')
   商鞅变法 <- paste0("文件 <- list.files(.蜀道仓库, pattern = '^", 文件名, "[0-9]')")
   eval(parse(text = 商鞅变法))