[求助]一个tb模型的自适应均线的写法，求改成金字塔的 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → [求助]一个tb模型的自适应均线的写法，求改成金字塔的

共有3323人关注过本帖树形打印复制链接主题：[求助]一个tb模型的自适应均线的写法，求改成金字塔的

人生如棋

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：121 积分：390 威望：0 精华：0 注册：2011/12/9 19:52:04

[求助]一个tb模型的自适应均线的写法，求改成金字塔的 发帖心情

Post By：2013/2/27 13:36:44 Post IP：36.18.143.197[只看该作者]

Params
NumericSeries Price(1);
Numeric EffRatioLength(10);
Numeric FastAvgLength(2);
Numeric SlowAvgLength(30);
Vars
Numeric NetChg(0);
Numeric TotChg(0);
Numeric EffRatio(0);
Numeric ScaledSFSqr(0);
NumericSeries AMAValue;
Numeric SFDiff;
Begin
if(CurrentBar == 0)
{
  AMAValue = Price;
}Else
{
  NetChg = Abs( Price - Price[EffRatioLength] );
  TotChg = Summation( Abs( Price - Price[1] ), EffRatioLength );
  EffRatio = IIF(TotChg > 0, NetChg / TotChg, 0);
  SFDiff = 2 / ( FastAvgLength + 1 ) - 2 / ( SlowAvgLength + 1 );
  ScaledSFSqr = Sqr( 2 / ( SlowAvgLength + 1 ) + EffRatio * SFDiff );
  AMAValue = AMAValue[1] + ScaledSFSqr * ( Price - AMAValue[1] );
}
Return AMAValue;
End