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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请问在金字塔软件中如何生成DLL文件,急

   

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


  共有8336人关注过本帖树形打印复制链接

主题:请问在金字塔软件中如何生成DLL文件,急

帅哥哟,离线,有人找我吗?
sdcgj209
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:65 积分:542 威望:0 精华:0 注册:2010/6/13 15:20:29
请问在金字塔软件中如何生成DLL文件,急  发帖心情 Post By:2010/9/21 11:17:39    Post IP:218.56.38.45[只看该作者]

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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:574 积分:3167 威望:0 精华:0 注册:2009/10/10 11:13:01
  发帖心情 Post By:2010/9/21 11:30:56    Post IP:58.49.67.206[只看该作者]

和建立其它指标一样,无需dll。 你提供的guppy倒数线是分析家版本的吗?是否兼容要测试。

 回到顶部
帅哥,在线噢!
admin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:7302 积分:32559 威望:1000 精华:45 注册:2003/12/30 16:34:32
  发帖心情 Post By:2010/9/21 11:37:29    Post IP:58.246.57.26[只看该作者]

目前还不支持 else if  这种语法,正在考虑下个版本增加

 回到顶部
帅哥哟,离线,有人找我吗?
sdcgj209
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:65 积分:542 威望:0 精华:0 注册:2010/6/13 15:20:29
  发帖心情 Post By:2010/9/21 13:11:47    Post IP:218.56.38.45[只看该作者]

那请问现在有什么办法吗?做成DLL可以不?


 回到顶部
帅哥哟,离线,有人找我吗?
wattwei
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:574 积分:3167 威望:0 精华:0 注册:2009/10/10 11:13:01
  发帖心情 Post By:2010/9/21 13:58:46    Post IP:58.49.67.206[只看该作者]

做成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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:7302 积分:32559 威望:1000 精华:45 注册:2003/12/30 16:34:32
  发帖心情 Post By:2010/9/24 9:28:31    Post IP:116.227.55.153[只看该作者]

再下个升级版金字塔已经完整支持该公式


 回到顶部
帅哥哟,离线,有人找我吗?
sdcgj209
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:65 积分:542 威望:0 精华:0 注册:2010/6/13 15:20:29
  发帖心情 Post By:2010/9/24 10:23:52    Post IP:60.212.34.228[只看该作者]

谢谢版主这么热心,祝你们身体健康、心情舒畅!


 回到顶部
帅哥哟,离线,有人找我吗?
sdcgj209
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:65 积分:542 威望:0 精华:0 注册:2010/6/13 15:20:29
  发帖心情 Post By:2010/9/24 17:39:37    Post IP:60.212.38.76[只看该作者]

版主您好,再麻烦您一下,这个guppy倒数线可以做成模型吗?我今天试着用CLOSE和CBL关系做了一个模型,可为什么图上没有信号,只在最后一根K线才有信号?这是为什么呢?

 回到顶部
帅哥,在线噢!
admin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:7302 积分:32559 威望:1000 精华:45 注册:2003/12/30 16:34:32
  发帖心情 Post By:2010/9/24 17:59:09    Post IP:116.227.55.153[只看该作者]

这个公式用的FOR循环带未来函数做的公式,无法用模型


 回到顶部
帅哥哟,离线,有人找我吗?
sdcgj209
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:65 积分:542 威望:0 精华:0 注册:2010/6/13 15:20:29
  发帖心情 Post By:2010/9/24 19:36:40    Post IP:218.59.113.209[只看该作者]

啊?有未来函数呀?!


 回到顶部
总数 11 1 2 下一页