【第22期】观点:IT 行业加班,到底有没有价值?

Delphi 计算MACD指标数值

原创 2016年08月28日 18:36:15

基于上一篇文章Delphi 计算火币网KDJ指标数值的基础。

{ MACD单个数据结构 }
Type
  TMACD = record
    DIF: Extended;
    DEA: Extended;
    BAR: Extended;
  end;

{ 获取MACD }
function GetMACD(KlineArr: TKlineArray):TMACD;
var
  EMA9,EMA12,EMA26,EMA9Ex,EMA12Ex,EMA26Ex: Extended;
  i: Integer;
  arrKline: TKlineArray;
begin
  FillChar(Result, SizeOf(TMACD), #0);
  arrKline := KlineArr;
  if High(arrKline) <> -1 then
  begin
    for i := Low(arrKline) to High(arrKline) do
    begin
      if i=0 then Continue;
      if i=1 then
      begin
        EMA12 := arrKline[i-1].Close+(arrKline[i].Close-arrKline[i-1].Close)*2/13;
        EMA26 := arrKline[i-1].Close+(arrKline[i].Close-arrKline[i-1].Close)*2/27;
        Result.DIF := EMA12-EMA26;
        Result.DEA := 0+(Result.DIF)*2/10;
        Result.BAR := 2*((Result.DIF)-(Result.DEA));
      end
      else if i>1 then
      begin
        EMA12 := EMA12Ex*11/13+arrKline[i].Close*2/13;
        EMA26 := EMA26Ex*25/27+arrKline[i].Close*2/27;
        Result.DIF := RoundTo(EMA12-EMA26,-4);
        Result.DEA := Result.DEA*8/10 +Result.DIF*2/10;
        Result.BAR := 2*(Result.DIF-Result.DEA);
      end;
      EMA12Ex := EMA12;
      EMA26Ex := EMA26;
    end;
    Result.DIF := RoundTo(Result.DIF,-2);
    Result.DEA := RoundTo(Result.DEA,-2);
    Result.BAR := RoundTo(Result.BAR,-2);
  end;
end;
版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

股票MACD指标算法公式

MACD指标是股票技术中最实用最重要的指标之一,其中涉及EMA、DIF、DEA、BAR几个指标。然而,对MACD指标的定义及分解算法,书上和网上的资料乱七八糟,有的说法互相矛盾,特别是对于指标的分解(...

MACD指标精粹讲解

个股一级指标: 1平滑异同平均线指标——MACD MACD指标又叫指数平滑异同移动平均线,是由查拉尔·阿佩尔(Gerald Apple)所创造的,是一种研判股票买卖时机、跟踪股价运行趋势的技术分析工具...

MQL指标:MACD

MACD 简介MACD,Moving Average Convergence / Divergence,中文译名“指数平滑异同平均线”。Moving Average 很好理解,一个区间内的价格平均数,...

macd 26 12 9

12=2*6 26=4*6+2 9=12*0.75

FAQ:如何区分与判断指标维度

1.1  指标维度概念 1.1.1  维度 维度是一个与业务相关的透视图或观察角度,依赖于数据的有效性和表达业务成效的关键性能指标(KPI),能够回答类似下列问题,是人们观察问题的特定角度: 维...

磁盘性能评价指标—IOPS和吞吐量

SAN和NAS存储一般都具备2个评价指标:IOPS和带宽(throughput),两个指标互相独立又相互关联。体现存储系统性能的最主要指标是IOPS。 IOPS (Input/Output Per ...

【总结】性能分析的几个指标(参考)

本文资料来自IBM AIX系统参考文档。

网站分析的内容指标

转换率 Take Rates (Conversions Rates)计算公式:转换率=进行了相应的动作的访问量/总访问量指标意义:衡量网站内容对访问者的吸引程度以及网站的宣传效果指标用法:当你在不同的...

分类算法中的ROC与PR指标

做过图像识别、机器学习或者信息检索相关研究的人都知道,论文的实验部分都要和别人的算法比一比。可怎么比,人多嘴杂,我说我的方法好,你说你的方法好,各做各的总是不行——没规矩不成方圆。于是慢慢的大家就形成...

《MQL4实用编程》读书笔记(6) - 简单编程:使用技术指标

Usage of Technical Indicators According to belonging to the on-line trading system MetaTrader 4 t...
  • lawme
  • lawme
  • 2014-04-17 03:34
  • 4551
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)