以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (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语言的指标作为日后学习对照的模板,先叩谢了!
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);
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), |
-- 作者:admin -- 发布时间:2010/2/24 19:59:28 -- 请在置顶帖子里学习金字塔的公式教程,自己尝试转换,转换中有什么问题可以到这里来求助,而不是指望金字塔来全部帮你完成工作 |