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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 文华转金字塔求助

   

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


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

主题:文华转金字塔求助

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


加好友 发短信
等级:新手上路 帖子:10 积分:0 威望:0 精华:0 注册:2019/6/25 13:34:43
文华转金字塔求助  发帖心情 Post By:2019/8/9 14:12:57    Post IP:180.169.30.6[只看该作者]

 SETTLE;

A:=ABS(C-O);//收盘-开盘的绝对值
B:=EMA(A,5);//A的加权平均
K:=IF(TNUMSEQLOSS>0,TNUMSEQLOSS+1,1);
VOLTIME<REF(VOLTIME,1)&&VOLTICK<REF(VOLTICK,1)&&C>REF(C,1)&&A>B&&C>SETTLE,BK(K);
VOLTIME<REF(VOLTIME,1)&&VOLTICK<REF(VOLTICK,1)&&C>REF(C,1)&&A>B,SOUND('A');
//当根量能周期形成的时间短于上一根量能周期形成的时间
//并且当根量能周期包含的TICK笔数少于上一根量能周期包含的TICK笔数并且价格上涨并且A>B
VOLTIME<REF(VOLTIME,1)&&VOLTICK<REF(VOLTICK,1)&&C<REF(C,1)&&A>B&&C<SETTLE,SK(K);


L<REF(LLV(L,1),1),SP(BKVOL);//当前最低价小于前面两根K线最低价,卖平
H>REF(HHV(H,1),1),BP(SKVOL);//当前最高价大于前面两根K线最高价,买平
VOLTIME<REF(VOLTIME,1)&&VOLTICK<REF(VOLTICK,1)&&C<REF(C,1)&&A>B,SOUND('B');
BKVOL>0&&PROFIT/BKVOL<-5000,SOUND('C');
SKVOL>0&&PROFIT/SKVOL<-5000,SOUND('C');
L<REF(LLV(L,1),1),SOUND('C');//带声音平仓,卖平
H>REF(HHV(H,1),1),SOUND('C');//带声音平仓,买平

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


加好友 发短信
等级:超级版主 帖子:14496 积分:0 威望:0 精华:0 注册:2017/7/4 13:40:18
  发帖心情 Post By:2019/8/9 14:37:50    Post IP:180.169.30.6[只看该作者]

 VOLTIME 这个函数具体是什么意思? 没搞明白哦。也没查到具体说明。


命数如织,当如磐石。
 回到顶部
帅哥哟,离线,有人找我吗?
meng1111
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:10 积分:0 威望:0 精华:0 注册:2019/6/25 13:34:43
  发帖心情 Post By:2019/8/9 14:45:12    Post IP:125.47.104.249[只看该作者]

你好老师,改这个吧。 

SETTLE;
A:=ABS(C-O);//收盘-开盘的绝对值
B:=EMA(A,5);//A的加权平均
K:=IF(TNUMSEQLOSS>0,TNUMSEQLOSS+1,1);

MM:(HHV(V,N)+LLV(V,N))/2,NODRAW;

CROSS(V,MM)&&C>REF(C,2)&&A>B&&C>SETTLE,BK(K);
C>REF(C,1)&&A>B,SOUND('A');
CROSS(V,MM)&&C<REF(C,2)&&A>B&&C<SETTLE,SK(K);
BKVOL>0&&PROFIT/BKVOL<-5000,CLOSEOUT;
SKVOL>0&&PROFIT/SKVOL<-5000,CLOSEOUT;
L<REF(LLV(L,2),1),SP(BKVOL);//当前最低价小于前面两根K线最低价,卖平
H>REF(HHV(H,2),1),BP(SKVOL);//当前最高价大于前面两根K线最高价,买平

  
  
C<REF(C,1)&&A>B,SOUND('B');

L<REF(LLV(L,2),1),SOUND('C');//带声音平仓,卖平
H>REF(HHV(H,2),1),SOUND('C');//带声音平仓,买平


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


加好友 发短信
等级:超级版主 帖子:14496 积分:0 威望:0 精华:0 注册:2017/7/4 13:40:18
  发帖心情 Post By:2019/8/9 15:21:36    Post IP:180.169.30.6[只看该作者]

 
A:=ABS(C-O);//收盘-开盘的绝对值
B:=EMA(A,5);//A的加权平均
K:=IF(NUMSEQLOSS>0,NUMSEQLOSS+1,1);

MM:(HHV(V,N)+LLV(V,N))/2,NODRAW;
if CROSS(V,MM) and C>REF(C,2) and A>B and C>AvGENTERPRICE then buy(holding=0,k,market);
//PLAYSOUND(C>REF(C,1) and  A>B , );//这个函数我没补全参数,第二个参数是声音文件的路径所在。金字塔无法按照字母播放声音,只能播放指定的声音文件

if CROSS(V,MM) and  C<REF(C,2) and  A>B and  C<AvGENTERPRICE then buyshort(holding=0,k,market);

if holding>0 and  (c-AVGENTERPRICE)*MINDIFF<-5000 and time=CLOSETIME(0) then sell(1,holding,market);//收盘前平仓
if holding<0 and (AVGENTERPRICE-c)*MINDIFF<-5000 and time=CLOSETIME(0) then sellshort(1,holding,market);//收盘前平仓

sell(L<REF(LLV(L,2),1) and holding>0,holding,market);//当前最低价小于前面两根K线最低价,平多
sellshort(H>REF(HHV(H,2),1) and holding<0,holding,market);//当前最高价大于前面两根K线最高价,买平

//C<REF(C,1) and  A>B,SOUND('B');
//L<REF(LLV(L,2),1),SOUND('C');//带声音平仓,卖平
//H>REF(HHV(H,2),1),SOUND('C');//带声音平仓,买平

播放声音的那个我提供了相应函数,上面红色标注的部分,但是并不是完全等效的。因此没完整处理。
[此贴子已经被作者于2019/8/9 15:21:54编辑过]


命数如织,当如磐石。
 回到顶部