请教数学大佬如何计算股票(币圈)的CCI，KDJ，MACD当前指标

嗨特

例如：15分钟线，开盘价格：1527.28 最高价格：1573.33 最低价格：1535 收盘价格：1536.93， K值：49.30 D值：61.54 J值：24.83    MACD：DIF:-5.22    DEA:-4.22  MACD:-1.99  CCI值：-294.42
CCI计算公式：

MACD公式

KDJ计算公式：

KDJ公式

MACD计算公式：

CCI公式

CCI 设置计算周期：20，上限：100  下限：-100
KDJ设置的：9,3,3
MACD设置的：短周期（N1）:12  长周期（N2）:26  DEA周期（M）:9

恳请大佬看看如计算这样的公式？ 可以的话贴个代码让小弟学习学习，谢谢

eyyhs

下面有请数学满分同学作答！！！

真冬

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
日期sj	文本型		0
最高sj	双精度小数型		0
最低sj	双精度小数型		0
收盘sj	双精度小数型		0
K	双精度小数型
D	双精度小数型
J	双精度小数型
Ksj	双精度小数型		2
i	整数型

' 2019-01-04 9.82 9.22 9.75
' 2019-01-07 9.85 9.63 9.74
' 2019-01-08 9.74 9.62 9.66
' 2019-01-09 10.08 9.70 9.94
日期sj ＝ { “2019-01-04”, “2019-01-07”, “2019-01-08”, “2019-01-09” }
最高sj ＝ { 9.82, 9.85, 9.74, 10.08 }
最低sj ＝ { 9.22, 9.63, 9.62, 9.7 }
收盘sj ＝ { 9.75, 9.74, 9.66, 9.94 }
Ksj ＝ { 83.8, 79.58 }
变量循环首 (1, 取数组成员数 (日期sj), 1, i)
计算KDJ (最高sj, 最低sj, 收盘sj [i], Ksj, i, 1, 3, K, D, J)
调试输出 (日期sj [i], K, D, J)
变量循环尾 ()
调试输出 (Ksj)
返回 (0)

子程序名	返回值类型	公开	备 注
计算KDJ
参数名	类 型	参考	可空	数组	备 注
最高sj	双精度小数型
最低sj	双精度小数型
收盘价	双精度小数型
Ksj	双精度小数型
当前期数位置	整数型
K的回溯期数	整数型
D的平滑期数	整数型
K	双精度小数型
D	双精度小数型
J	双精度小数型

变量名	类 型	静态	数组	备 注
最高价	双精度小数型
最低价	双精度小数型

最高价 ＝ 要平均大小 (最高sj, 当前期数位置 － K的回溯期数 ＋ 1, 当前期数位置, 1)
最低价 ＝ 要平均大小 (最低sj, 当前期数位置 － K的回溯期数 ＋ 1, 当前期数位置, 2)
K ＝ (收盘价 － 最低价) ÷ (最高价 － 最低价) × 100
加入成员 (Ksj, K)
D ＝ 要平均大小 (Ksj, 取数组成员数 (Ksj) － D的平滑期数 ＋ 1, , 0)
J ＝ K × 3 － D × 2

子程序名	返回值类型	公开	备 注
要平均大小	双精度小数型
参数名	类 型	参考	可空	数组	备 注
sj数组	双精度小数型
起始位置	整数型
结束位置	整数型
模式	整数型				0：平均。1：大。2：小

变量名	类 型	静态	数组	备 注
i	整数型
总数	整数型
合数	双精度小数型
计数	整数型
最小的	双精度小数型
最大的	双精度小数型

总数 ＝ 取数组成员数 (sj数组)
如果真 (总数 ＜ 1)
返回 (0)
如果真 (是否为空 (起始位置))
起始位置 ＝ 1
如果真 (是否为空 (结束位置))
结束位置 ＝ 总数
最小的 ＝ sj数组 [起始位置]
最大的 ＝ sj数组 [起始位置]
变量循环首 (起始位置, 结束位置, 1, i)
如果真 (最小的 ＞ sj数组 [i])
最小的 ＝ sj数组 [i]
如果真 (最大的 ＜ sj数组 [i])
最大的 ＝ sj数组 [i]
合数 ＝ 合数 ＋ sj数组 [i]
计数 ＝ 计数 ＋ 1
变量循环尾 ()
返回 (多项选择 (模式 ＋ 1, 合数 ÷ 计数, 最大的, 最小的))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 日期sj, 文本型, , "0"<br /> .局部变量 最高sj, 双精度小数型, , "0"<br /> .局部变量 最低sj, 双精度小数型, , "0"<br /> .局部变量 收盘sj, 双精度小数型, , "0"<br /> .局部变量 K, 双精度小数型<br /> .局部变量 D, 双精度小数型<br /> .局部变量 J, 双精度小数型<br /> .局部变量 Ksj, 双精度小数型, , "2"<br /> .局部变量 i, 整数型<br /> <br /> ' 2019-01-04 9.82 9.22 9.75<br /> ' 2019-01-07 9.85 9.63 9.74<br /> ' 2019-01-08 9.74 9.62 9.66<br /> ' 2019-01-09 10.08 9.70 9.94<br /> 日期sj ＝ { “2019-01-04”, “2019-01-07”, “2019-01-08”, “2019-01-09” }<br /> 最高sj ＝ { 9.82, 9.85, 9.74, 10.08 }<br /> 最低sj ＝ { 9.22, 9.63, 9.62, 9.7 }<br /> 收盘sj ＝ { 9.75, 9.74, 9.66, 9.94 }<br /> Ksj ＝ { 83.8, 79.58 }<br /> .变量循环首 (1, 取数组成员数 (日期sj), 1, i)<br />     计算KDJ (最高sj, 最低sj, 收盘sj <i>, Ksj, i, 1, 3, K, D, J)<br />     调试输出 (日期sj <i>, K, D, J)<br /> .变量循环尾 ()<br /> 调试输出 (Ksj)<br /> <br /> 返回 (0)<br /> <br /> .子程序 计算KDJ, , 公开<br /> .参数 最高sj, 双精度小数型, 数组<br /> .参数 最低sj, 双精度小数型, 数组<br /> .参数 收盘价, 双精度小数型<br /> .参数 Ksj, 双精度小数型, 参考 数组<br /> .参数 当前期数位置, 整数型<br /> .参数 K的回溯期数, 整数型<br /> .参数 D的平滑期数, 整数型<br /> .参数 K, 双精度小数型, 参考<br /> .参数 D, 双精度小数型, 参考<br /> .参数 J, 双精度小数型, 参考<br /> .局部变量 最高价, 双精度小数型<br /> .局部变量 最低价, 双精度小数型<br /> <br /> 最高价 ＝ 要平均大小 (最高sj, 当前期数位置 － K的回溯期数 ＋ 1, 当前期数位置, 1)<br /> 最低价 ＝ 要平均大小 (最低sj, 当前期数位置 － K的回溯期数 ＋ 1, 当前期数位置, 2)<br /> K ＝ (收盘价 － 最低价) ÷ (最高价 － 最低价) × 100<br /> 加入成员 (Ksj, K)<br /> D ＝ 要平均大小 (Ksj, 取数组成员数 (Ksj) － D的平滑期数 ＋ 1, , 0)<br /> J ＝ K × 3 － D × 2<br /> <br /> .子程序 要平均大小, 双精度小数型, 公开<br /> .参数 sj数组, 双精度小数型, 数组<br /> .参数 起始位置, 整数型, 可空<br /> .参数 结束位置, 整数型, 可空<br /> .参数 模式, 整数型, 可空, 0：平均。1：大。2：小<br /> .局部变量 i, 整数型<br /> .局部变量 总数, 整数型<br /> .局部变量 合数, 双精度小数型<br /> .局部变量 计数, 整数型<br /> .局部变量 最小的, 双精度小数型<br /> .局部变量 最大的, 双精度小数型<br /> <br /> 总数 ＝ 取数组成员数 (sj数组)<br /> .如果真 (总数 ＜ 1)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (是否为空 (起始位置))<br />     起始位置 ＝ 1<br /> .如果真结束<br /> .如果真 (是否为空 (结束位置))<br />     结束位置 ＝ 总数<br /> .如果真结束<br /> 最小的 ＝ sj数组 [起始位置]<br /> 最大的 ＝ sj数组 [起始位置]<br /> .变量循环首 (起始位置, 结束位置, 1, i)<br />     .如果真 (最小的 ＞ sj数组 <i>)<br />         最小的 ＝ sj数组 <i><br />     .如果真结束<br />     .如果真 (最大的 ＜ sj数组 <i>)<br />         最大的 ＝ sj数组 <i><br />     .如果真结束<br />     合数 ＝ 合数 ＋ sj数组 <i><br />     计数 ＝ 计数 ＋ 1<br /> .变量循环尾 ()<br /> 返回 (多项选择 (模式 ＋ 1, 合数 ÷ 计数, 最大的, 最小的))

补充内容 (2022-11-8 21:55):
乱抄的不要当真

走一回

这些线都要读取历史交易记录的值的吧？不能可能只有一天就能得到全部的指标线的。

补充内容 (2022-11-8 22:22):
股票软件已经在后台计算好，才会显示给你看到指标线的，所以这种软件会把历史记录读取后放在那些文件夹里，你读取的股票数量越多就字节越多

嗨特

真冬 发表于 2022-11-8 21:55
[e=0]
.版本 2
.支持库 spec

看着很牛逼的样子呀，请问下，这个变量值指的是哪个数据呀？Ksj ＝ { 83.8, 79.58 }

adrenminbi

https://bbs.125.la/forum.php?mod=viewthread&tid=14757166 我能写出来  关键你提供数据就成

adrenminbi

需要多条K线的数据计算的  单根K线的数据计算不出来的

seven7c

https://bbs.125.la/forum.php?mod ... 7&highlight=KDJ 可以看看

顺势者

我专门琢磨易语言在股票交易中的应用,应该比你能掌握的多一点,你思考的问题应该是入门级别的东西,可以进我群一起学习835195742

wolfpack