以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 公式模型编写问题提交 (http://weistock.com/bbs/list.asp?boardid=4) ---- 大哥,这个代码能帮我转换金字塔代码或模型 (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=77425) |
-- 作者:a2051296 -- 发布时间:2015/4/9 15:50:36 -- 大哥,这个代码能帮我转换金字塔代码或模型 //------------------------------------------------------------------------ // 简称: ZigZag // 名称: 之字转向 // 类别: 公式应用 // 类型: 内建应用 //------------------------------------------------------------------------ Params
Numeric RetracePct(2); Vars
NumericSeries SwingPrice;
Numeric SwingHighPrice;
Numeric SwingLowPrice;
NumericSeries PreBar(0);
NumericSeries UpDn(0);
Bool SaveSwing(False);
Bool NewTL(False);
Bool UpdateTL(False); begin
If(CurrentBar == 0)
SwingPrice = Close;
SwingHighPrice = SwingHigh( 1, Close, 1,2);
SwingLowPrice = SwingLow( 1, Close, 1, 2 );
If (SwingHighPrice <> -1)
{
If(UpDn <=0 && SwingHighPrice >= SwingPrice * (1+RetracePct*0.01))
{
UpDn = 1;
NewTL = True;
SaveSwing = True;
}Else If(UpDn == 1 && SwingHighPrice >= SwingPrice)
{
UpdateTL = True;
SaveSwing = True;
}
If(SaveSwing)
{
SwingPrice = SwingHighPrice;
PreBar = CurrentBar;
}
}Else If(SwingLowPrice <> -1)
{
If(UpDn >=0 && SwingLowPrice <= SwingPrice * (1-RetracePct*0.01))
{
UpDn = -1;
NewTL = True;
SaveSwing = True;
}Else If(UpDn == -1 && SwingLowPrice <= SwingPrice)
{
UpdateTL = True;
SaveSwing = True;
}
If(SaveSwing )
{
SwingPrice = SwingLowPrice;
PreBar = CurrentBar;
}
}
If( NewTL)
{
PlotNumeric("ZigZag",SwingPrice,0,-1,1);
}Else If(UpdateTL)
{
If (UpDn == UpDn[1])
{
Unplot("ZigZag",PreBar - PreBar[1]+1);
PlotNumeric("ZigZag",SwingPrice,0,-1,1);
}Else
{
PlotNumeric("ZigZag",SwingPrice,0,-1,1);
}
}
End 大哥,这是开拓者的之字转向策略,能帮我转换金字塔代码或模型吗
|
-- 作者:jinzhe -- 发布时间:2015/4/9 15:57:05 -- 请注释 |
-- 作者:a2051296 -- 发布时间:2015/4/9 16:08:38 -- 这是开-拓-者的代码,俺看不懂,不知怎么注释 |
-- 作者:jinzhe -- 发布时间:2015/4/9 16:13:07 -- 那就没办法了,这个我们帮不了忙 |