以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  TB代码转金字塔  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=181963)
--  作者：NH
--  发布时间：2020/8/30 15:05:11
--  TB代码转金字塔

Params
 Numeric Length(21);
Vars 
 NumericSeries TmpValue;
 Numeric SumVol;
 Numeric CMFValue;
Begin
 If(High > Low)
  TmpValue = ((Close - Low) - (High - Close)) / (High - Low) * Vol;
    SumVol = SummationFC(Vol, Length);
 If(SumVol <> 0) 
     CMFValue = SummationFC(TmpValue, Length) / SumVol;
 PlotNumeric("CMF", CMFValue);
 PlotNumeric("Ref", 0);
End;

 

请修改成金字塔指标
--  作者：FireScript
--  发布时间：2020/8/31 9:38:35
--  
 INPUT:Length(21,1,100,1);

VARIABLE:TmpValue:=0;

TmpValue:=IF(H<>l,((Close - Low) - (High - Close)) / (High - Low) * Vol,0);
SumVol:=IF(H<>L,sum(Vol,Length),0);

CMFValue:=IF(SumVol<>0,sum(TmpValue, Length) / SumVol,0);

CMF:CMFValue;

仅供参考。