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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请老师帮忙修改成金字塔可用

   

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


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

主题:请老师帮忙修改成金字塔可用

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


加好友 发短信
等级:新手上路 帖子:64 积分:0 威望:0 精华:0 注册:2016/8/20 20:36:08
请老师帮忙修改成金字塔可用  发帖心情 Post By:2019/8/5 17:35:45    Post IP:101.88.96.194[只看该作者]

中区:0,COLORBLUE,NODRAW;
DIFF1: EMA(C,12) - EMA(C,26),COLOR0000FF,LINETHICK2;
DEA1: EMA(DIFF1,9),COLORC08000,LINETHICK2;
 
MACD :2*(DIFF1-DEA1), COLORSTICK;
A1:=BARSLAST(REF(CROSS(DIFF1,DEA1),1));
A2:=BARSLAST(REF(CROSS(DEA1,DIFF1),1));
底背离:=REF(C,A1+1)>C AND DIFF1>REF(DIFF1,A1+1) AND CROSS(DIFF1,DEA1);
STICKLINE(底背离,0,DEA1,5.33,0),COLOR00FF00;
DRAWTEXT(底背离,DEA1,' 底背离'),COLOR00FFFF;
顶背离:=REF(C,A2+1)<C AND REF(DIFF1,A2+1)>DIFF1 AND CROSS(DEA1,DIFF1);
STICKLINE(顶背离,0,DEA1,5.33,0),COLOR00FF00;
DRAWTEXT(顶背离,DEA1,' 顶背离'),COLOR00FF00;
B1:=REF(C,A1+1)>C AND REF(DIFF1,A1+1)<DIFF1 AND CROSS(DIFF1,DEA1);
C1:=BARSLAST(REF(CROSS(DEA1,DIFF1),1));
D1:=REF(C,C1+1)<C AND REF(DIFF1,C1+1)>DIFF1 AND CROSS(DEA1,DIFF1);
PARTLINE(DEA1>MA(DEA1,2),DEA1),COLOR00FFFF,LINETHICK2;
PARTLINE(DIFF1<REF(DIFF1,1),DIFF1),COLOR008000,LINETHICK2;

VAR3:=(C-MA(C,6))/MA(C,6)*100; 
VAR4:=(C-MA(C,24))/MA(C,24)*100; 
VAR5:=(C-MA(C,32))/MA(C,32)*100; 
VAR6:=(VAR3+VAR4+VAR5)/3; 
VAR7:=EMA(VAR6,5); 
指标: EMA(EMA(VAR3,5),5)*3, COLORSTICK,NODRAW; 
VAR8:=IF(VAR6<=-20,10,0); 
VAR9:=HHV(VAR8,10); 
STICKLINE(VAR8=10,20,10,5,0),COLORFF6666; 
VARA:=IF(VAR9 AND CROSS(MA(C,3),MA(C,5)),20,0); 
换手: V/1*200,COLORGREEN,NODRAW; 
 

DRAWTEXT(VARA=20,((MACD)*2.5),'底部'),LINETHICK1,COLORWHITE; 
STICKLINE((VARA=20),0,0.4,5,0),COLORWHITE; 
VARC:=(ZIG(L,3.00,5.00)>REF(ZIG(L,3.00,5.00),1)) AND (REF(ZIG(L,3.00,5.00),1)<=REF(ZIG(L,3.00,5.00),2)) AND (REF(ZIG(L,3.00,5.00),2)<=REF(ZIG(L,3.00,5.00),3));
VARD:=(ZIG(H,3.00,5.00)<REF(ZIG(H,3.00,5.00),1)) AND (REF(ZIG(H,3.00,5.00),1)>=REF(ZIG(H,3.00,5.00),2)) AND (REF(ZIG(H,3.00,5.00),2)>=REF(ZIG(H,3.00,5.00),3));
STICKLINE((VARC=1),-((MACD)*2.5),0,4,0),COLOR0000FF,LINETHICK4;  
DRAWTEXT((VARC=1),-((MACD)*2.6),'买'),COLOR0000FF;
STICKLINE((VARD=1),((MACD)*2.5),0,4,0),COLOR00FF00,LINETHICK4; 
DRAWTEXT((VARD=1),((MACD)*2.6),'卖'),COLOR00FF00; 
VARE:=MA(100*(C-LLV(C,34))/(HHV(H,34)-LLV(L,34)),5)-20; 
VARF:=100-3*SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1)+2*SMA(SMA 
((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1); 
VAR10:=100-3*SMA((O-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1)+2*SMA(SMA 
((O-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1); 
VAR11:=VARF<REF(VAR10,1) AND V>REF(V,1) AND C>REF(C,1); 
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,((MACD)*2.5),'金'),COLOR00FFFF,LINETHICK7; 
STICKLINE(VAR11 AND COUNT(VAR11,30)=1,0,((MACD)*2.5),5,0),COLOR00FFFF,LINETHICK7; 
VAR12:=(H+L+C)/3; 
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AvEDEV(VAR12,14)); 
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AvEDEV(VAR12,70)); 
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0); 
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15); 
VAR17:=(C-MA(C,13))/MA(C,13)*100; 
VAR18:=100-ABS(VAR17); 
VAR19:=IF(VAR18<90,VAR18,100); 
VAR1A:=IF(VARE>0,VARE,0); 
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60; 
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100; 
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,-((MACD)*2.6),'出'),LINETHICK1,COLOR66CCFF; 
STICKLINE(VAR1C AND COUNT(VAR1C,30)=1,0,-((MACD)*2.5),5,0),COLOR66CCFF,LINETHICK4;


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


加好友 发短信
等级:管理员 帖子:26632 积分:0 威望:0 精华:7 注册:2015/4/9 14:59:07
  发帖心情 Post By:2019/8/5 21:09:01    Post IP:101.88.96.194[只看该作者]

请提供zig函数的参数说明。


编程无捷径,技巧靠积累。
 回到顶部
帅哥哟,离线,有人找我吗?
lgxyp
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:64 积分:0 威望:0 精华:0 注册:2016/8/20 20:36:08
  发帖心情 Post By:2019/8/6 11:13:31    Post IP:123.130.74.233[只看该作者]

参数不作调整,可根据品种不同而变动。是单日振幅度的系数。
[此贴子已经被作者于2019/8/6 11:15:12编辑过]

 回到顶部