以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请问在金字塔软件中如何生成DLL文件，急  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=2936)
--  作者：sdcgj209
--  发布时间：2010/9/21 11:17:39
--  请问在金字塔软件中如何生成DLL文件，急
INPUT: nH(5,3,100), nL(5,3,100);
fH:=H;
fL:=L;
CBH:=HHV(H,3);
tH:=HHV(H,nH);
for i=nH+1 to datacount do begin
   if fH[i] < tH[i]                                                   then  CBH[i]:=tH[i-1]
   else if fL[i-2] < fL[i-1] and fL[i-2] < fL[i]
       and fL[i-1] < fL[i]                                            then  CBH[i]:=fL[i-2]
   else if nH > 3 and fL[i-3] < fL[i-2] and fL[i-3] < fL[i-1]
       and fL[i-3] < fL[i] and (fL[i-2] < fL[i] or fL[i-1] < fL[i])   then  CBH[i]:=fL[i-3]
   else if nH > 4 and fL[i-4] < fL[i-3] and fL[i-4] < fL[i-2]
       and fL[i-4] < fL[i-1] and fL[i-4] < fL[i]
       and (fL[i-3] < fL[i] or fL[i-2] < fL[i] or fL[i-1] < fL[i])    then  CBH[i]:=fL[i-4]
   else if nH > 5 and fL[i-5] < fL[i-4] and fL[i-5] < fL[i-3]
       and fL[i-5] < fL[i-2] and fL[i-5] < fL[i-1]
       and fL[i-5] < fL[i]
       and (fL[i-4] < fL[i] or fL[i-3] < fL[i] or fL[i-2] < fL[i] or fL[i-1] < fL[i])  then  CBH[i]:=fL[i-4];
end;
hGuppy:CBH,Color9F00B0; //高价倒数线

CBL:=LLV(L,3);
tL:=LLV(L,nL);
for i=nL+1 to datacount do begin
   if fL[i] > tL[i]                                                   then  CBL[i]:=tL[i-1]
   else if fH[i-2] > fH[i-1] and fH[i-2] > fH[i]
       and fH[i-1] > fH[i]                                            then  CBL[i]:=fH[i-2]
   else if nL > 3 and fH[i-3] > fH[i-2] and fH[i-3] > fH[i-1]
       and fH[i-3] > fH[i] and (fH[i-2] > fH[i] or fH[i-1] > fH[i])   then  CBL[i]:=fH[i-3]
   else if nL > 4 and fH[i-4] > fH[i-3] and fH[i-4] > fH[i-2]
       and fH[i-4] > fH[i-1] and fH[i-4] > fH[i]
       and (fH[i-3] > fH[i] or fH[i-2] > fH[i] or fH[i-1] > fH[i])    then  CBL[i]:=fH[i-4]
   else if nL > 5 and fH[i-5] > fH[i-4] and fH[i-5] > fH[i-3]
       and fH[i-5] > fH[i-2] and fH[i-5] > fH[i-1]
       and fH[i-5] > fH[i]
       and (fH[i-4] > fH[i] or fH[i-3] > fH[i] or fH[i-2] > fH[i] or fH[i-1] > fH[i])  then  CBL[i]:=fH[i-4];
end;
lGuppy:CBL, colorgray; //低价倒数线

GUPPY: Ma((hGuppy+lGuppy)/2,2), coloryellow; //高低平均

 

这段代码如何在金字塔下面使用呢？是不是需要生成一个DLL文件，然后复制到相应目录下？如何生成呢？我是菜鸟很初级，高手帮帮忙吧

[此贴子已经被作者于2010-9-21 11:18:59编辑过]
--  作者：wattwei
--  发布时间：2010/9/21 11:30:56
--  
和建立其它指标一样，无需dll。 你提供的guppy倒数线是分析家版本的吗？是否兼容要测试。
--  作者：admin
--  发布时间：2010/9/21 11:37:29
--  
目前还不支持 else if  这种语法，正在考虑下个版本增加
--  作者：sdcgj209
--  发布时间：2010/9/21 13:11:47
--  

那请问现在有什么办法吗？做成DLL可以不？
--  作者：wattwei
--  发布时间：2010/9/21 13:58:46
--  
做成Dll当然可以，效率也高。以前用飞狐时，看见有人用过。但是要求较高，要有详尽的编程文档，另外要有点编程功力。
以前参考这个版本，写了个金字塔使用的指标，拿出来供参考。看得懂就用，如果觉得不好可以继续改进，看不懂就扔了吧。编写时间有点久远了，是个改良版本，具体改良了哪里我记不住了，没有做维护。

guppy倒数线，倒数三根K线，代码如下：
VARIABLE:STATUS=0,I=0,J=0,K=0,RS=0;
CBL:H;
IF NOT(ISLASTBAR) THEN EXIT;

FOR I=2 TO DATACOUNT DO
BEGIN
IF STATUS=0 THEN
// 下方
BEGIN
IF C[I]>CBL[I-1] THEN
// 上穿
BEGIN
J:=I-1;
K:=0;
RS:=L[I];
WHILE J>0 AND K<2 DO
BEGIN
IF L[J]<RS THEN
BEGIN
RS:=L[J];
K:=K+1;
END;
J:=J-1;
END;
CBL[I]:=RS;
STATUS:=1;
END;
ELSE
BEGIN
IF L[I]>L[I-1] THEN
// 未新低
BEGIN
CBL[I]:=CBL[I-1];
END;
ELSE
// 创新低
BEGIN
J:=I-1;
K:=0;
RS:=H[I];
WHILE J>0 AND K<2 DO
BEGIN
IF H[J]>RS THEN
BEGIN
RS:=H[J];
K:=K+1;
END;
J:=J-1;
END;
CBL[I]:=MIN(RS,CBL[I-1]);
END;
END;
END;
ELSE
// 上方
BEGIN
IF C[I]<CBL[I-1] THEN
// 下穿
BEGIN
J:=I-1;
K:=0;
RS:=H[I];
WHILE J>0 AND K<2 DO
BEGIN
IF H[J]>RS THEN
BEGIN
RS:=H[J];
K:=K+1;
END;
J:=J-1;
END
CBL[I]:=RS;
STATUS:=0;
END;
ELSE
BEGIN
IF H[I]<H[I-1] THEN
// 未新高
BEGIN
CBL[I]:=CBL[I-1];
END;
ELSE
// 创新高
BEGIN
J:=I-1;
K:=0;
RS:=L[I];
WHILE J>0 AND K<2 DO
BEGIN
IF L[J]<RS THEN
BEGIN
RS:=L[J];
K:=K+1;
END;
J:=J-1;
END;
CBL[I]:=MAX(RS,CBL[I-1]);
END;
END;
END;
END;


DRAWICON(CLOSE>CBL,LOW,1);
DRAWICON(CLOSE<CBL,HIGH,2);

PLAYSOUND(CROSS(CLOSE,CBL),\'C:\\WINDOWS\\Media\\ringin.wav\');
PLAYSOUND(CROSS(CBL,CLOSE),\'C:\\WINDOWS\\Media\\ringout.wav\');
--  作者：admin
--  发布时间：2010/9/24 9:28:31
--  

再下个升级版金字塔已经完整支持该公式
--  作者：sdcgj209
--  发布时间：2010/9/24 10:23:52
--  

谢谢版主这么热心，祝你们身体健康、心情舒畅！
--  作者：sdcgj209
--  发布时间：2010/9/24 17:39:37
--  
版主您好，再麻烦您一下，这个guppy倒数线可以做成模型吗？我今天试着用CLOSE和CBL关系做了一个模型，可为什么图上没有信号，只在最后一根K线才有信号？这是为什么呢？
--  作者：admin
--  发布时间：2010/9/24 17:59:09
--  

这个公式用的FOR循环带未来函数做的公式，无法用模型
--  作者：sdcgj209
--  发布时间：2010/9/24 19:36:40
--  

啊？有未来函数呀？!