以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  [求助]转换EasyLanguage语言指标  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=967)

--  作者:partypop
--  发布时间:2010/2/24 18:08:46
--  [求助]转换EasyLanguage语言指标

金字塔的各位老大。希望能鼎力帮助一下菜鸟转换一个EasyLanguage语言的指标作为日后学习对照的模板,先叩谢了!

 

Inputs:   Price((H+L)/2),

       N(16);

       {N must be an even number}

                    

Vars:      count(0),

       N1(0),

       N2(0),

       N3(0),

       HH(0),

       LL(0),

       Dimen(0),

       alpha(0),

       Filt(0);


N3 = (Highest(High, N) - Lowest(Low, N)) / N;

HH = High;

LL = Low;

For count = 0 to N / 2 - 1 begin

       If High[count] > HH then HH = High[count];

       If Low[count] < LL then LL = Low[count];

End;

N1 = (HH - LL) / (N / 2);


 

HH = High[N / 2];

LL = Low[N / 2];

For count = N/2 to N - 1 begin

       If High[count] > HH then HH = High[count];

       If Low[count] < LL then LL = Low[count];

End;

N2 = (HH - LL) / (N / 2);


 

If N1 > 0 and  N2 > 0 and N3 > 0 then Dimen = (Log(N1 + N2) - Log(N3)) / Log(2);


 

alpha = ExpValue(-4.6*(Dimen - 1));

If alpha < 0.01 then alpha = 0.01;

If alpha > 1 then alpha = 1;


 

Filt = alpha*Price + (1 - alpha)*Filt[1];

If CurrentBar < N + 1 then Filt = Price;


 

Plot1(Filt);


--  作者:partypop
--  发布时间:2010/2/24 18:44:49
--  

再贴个简单的模型源码,请帮助转换。谢过了!

Inputs: Length(16),
PH( ( ( (H+L+C) / 3) * 2) - L),
PL( ( ( (H+L+C) / 3) * 2) - H);
{-------- Long Entry --------}
Buy Next Bar at Highest(PH,Length) + 1 Point Stop;
{-------- Short Entry --------}
Sell Next Bar at Lowest(PL,Length) - 1 Point Stop


--  作者:admin
--  发布时间:2010/2/24 19:59:28
--  
请在置顶帖子里学习金字塔的公式教程,自己尝试转换,转换中有什么问题可以到这里来求助,而不是指望金字塔来全部帮你完成工作