文章
文章用户商铺文档快讯有问必答话题

老师帮忙做个预警提示 (文华财经WH6赢顺V6.7)

投资者咨询：老师帮忙做个预警提示 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-6 11:43
 WH6 用
老师帮忙做两个预警弹窗提示
1.当红柱缩短变绿的那一瞬间提示

2.当绿柱缩短变红的那一瞬间提示

DIFF :EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  :EMA(DIFF,9),LINETHICK2;
MACD:2*(DIFF-DEA),NODRAW;
STICKLINE(MACD>0&&MACD>REF(MACD,1),MACD,0,COLORRED,0);
STICKLINE(MACD>0&&MACD<REF(MACD,1),MACD,0,COLORGREEN,0);
STICKLINE(MACD<0&&MACD>REF(MACD,1),MACD,0,COLORRED,0);
STICKLINE(MACD<0&&MACD<REF(MACD,1),MACD,0,COLORGREEN,0);
UPCOND:=CROSS(DIFF,DEA);
DOWNCOND:=CROSSDOWN(DIFF,DEA);
END_N1:=SUMBARS(DOWNCOND,1);
RANGE_N1:=REF(SUMBARS(UPCOND,1),END_N1);
END_N2:=SUMBARS(DOWNCOND,2);
HH1:=REF(HV(H,RANGE_N1),END_N1-1);
HH2:=REF(HV(H,RANGE_N1),END_N2-1);
MACD1:=REF(HV(MACD,RANGE_N1),END_N1-1);
MACD2:=REF(HV(MACD,RANGE_N1),END_N2-1);
顶背离:=CROSS(0,MACD) && HH1>HH2 && MACD1<MACD2;
DRAWTEXT(顶背离,DIFF*1.10 ,'顶背离'),RGB(0,255,64);
END_M1:=SUMBARS(UPCOND,1);
RANGE_M1:=REF(SUMBARS(DOWNCOND,1),END_M1);
END_M2:=SUMBARS(UPCOND,2);
LL1:=REF(LV(L,RANGE_M1),END_M1-1);
LL2:=REF(LV(L,RANGE_M1),END_M2-1);
MACD3:=REF(LV(MACD,RANGE_M1),END_M1-1);
MACD4:=REF(LV(MACD,RANGE_M1),END_M2-1);
底背离:=CROSS(MACD,0) && LL1<LL2 && MACD3>MACD4;
DRAWTEXT(底背离,DIFF*1.50 ,'底背离'),COLORWHITE;

DRAWTEXT(MACD>0&&CROSS(MACD<REF(MACD,1),0.5),MACD+0.3,'空'),COLORCYAN,FONTSIZE20;
DRAWTEXT(MACD<0&&CROSS(MACD>REF(MACD,1),0.5),MACD-0.3,'进'),COLORRED,VALIGN0,FONTSIZE20;
DRAWTEXT(MACD>0&&CROSS(MACD>REF(MACD,1),0.5),MACD+0.3,'进'),COLORRED,FONTSIZE20;
DRAWTEXT(MACD<0&&CROSS(MACD<REF(MACD,1),0.5),MACD-0.3,'空'),COLORCYAN,VALIGN0,FONTSIZE20;
技术人员回复
日期:2018-8-6 13:12

 参考：

 

DIFF :EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  :EMA(DIFF,9),LINETHICK2;
MACD:2*(DIFF-DEA),NODRAW;
STICKLINE(MACD>0&&MACD>REF(MACD,1),MACD,0,COLORRED,0);
STICKLINE(MACD>0&&MACD<REF(MACD,1),MACD,0,COLORGREEN,0);
STICKLINE(MACD<0&&MACD>REF(MACD,1),MACD,0,COLORRED,0);
STICKLINE(MACD<0&&MACD<REF(MACD,1),MACD,0,COLORGREEN,0);
UPCOND:=CROSS(DIFF,DEA);
DOWNCOND:=CROSSDOWN(DIFF,DEA);
END_N1:=SUMBARS(DOWNCOND,1);
RANGE_N1:=REF(SUMBARS(UPCOND,1),END_N1);
END_N2:=SUMBARS(DOWNCOND,2);
HH1:=REF(HV(H,RANGE_N1),END_N1-1);
HH2:=REF(HV(H,RANGE_N1),END_N2-1);
MACD1:=REF(HV(MACD,RANGE_N1),END_N1-1);
MACD2:=REF(HV(MACD,RANGE_N1),END_N2-1);
顶背离:=CROSS(0,MACD) && HH1>HH2 && MACD1<MACD2;
DRAWTEXT(顶背离,DIFF*1.10 ,'顶背离'),RGB(0,255,64);
END_M1:=SUMBARS(UPCOND,1);
RANGE_M1:=REF(SUMBARS(DOWNCOND,1),END_M1);
END_M2:=SUMBARS(UPCOND,2);
LL1:=REF(LV(L,RANGE_M1),END_M1-1);
LL2:=REF(LV(L,RANGE_M1),END_M2-1);
MACD3:=REF(LV(MACD,RANGE_M1),END_M1-1);
MACD4:=REF(LV(MACD,RANGE_M1),END_M2-1);
底背离:=CROSS(MACD,0) && LL1<LL2 && MACD3>MACD4;
DRAWTEXT(底背离,DIFF*1.50 ,'底背离'),COLORWHITE;


DRAWTEXT(MACD>0&&CROSS(MACD<REF(MACD,1),0.5),MACD+0.3,'空'),COLORCYAN,FONTSIZE20;
DRAWTEXT(MACD<0&&CROSS(MACD>REF(MACD,1),0.5),MACD-0.3,'进'),COLORRED,VALIGN0,FONTSIZE20;
DRAWTEXT(MACD>0&&CROSS(MACD>REF(MACD,1),0.5),MACD+0.3,'进'),COLORRED,FONTSIZE20;
DRAWTEXT(MACD<0&&CROSS(MACD<REF(MACD,1),0.5),MACD-0.3,'空'),COLORCYAN,VALIGN0,FONTSIZE20;
MACD>0&&CROSS(MACD<REF(MACD,1),0.5),SPARK;
MACD<0&&CROSS(MACD>REF(MACD,1),0.5),SPARK;
PLAYSOUND(MACD>0&&CROSS(MACD<REF(MACD,1),0.5),'A');
PLAYSOUND(MACD<0&&CROSS(MACD>REF(MACD,1),0.5),'B');

投资者咨询：老师帮忙做个预警提示 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-6 11:43
 老师 您这个只有变绿有声音提示， 变红没有，再帮忙修改一下，或者做一个变红提示的
技术人员回复
日期:2018-8-6 14:29

2楼是按照1楼要求：“绿柱缩短变红的那一瞬提示”编写的

 

MACD>0时，绿柱变红，但柱体是变长的，您是想不管柱体变长还是缩短，只要变色就提示？是的话参考：

 

DIFF :EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  :EMA(DIFF,9),LINETHICK2;
MACD:2*(DIFF-DEA),NODRAW;
STICKLINE(MACD>0&&MACD>REF(MACD,1),MACD,0,COLORRED,0);
STICKLINE(MACD>0&&MACD<REF(MACD,1),MACD,0,COLORGREEN,0);
STICKLINE(MACD<0&&MACD>REF(MACD,1),MACD,0,COLORRED,0);
STICKLINE(MACD<0&&MACD<REF(MACD,1),MACD,0,COLORGREEN,0);
UPCOND:=CROSS(DIFF,DEA);
DOWNCOND:=CROSSDOWN(DIFF,DEA);
END_N1:=SUMBARS(DOWNCOND,1);
RANGE_N1:=REF(SUMBARS(UPCOND,1),END_N1);
END_N2:=SUMBARS(DOWNCOND,2);
HH1:=REF(HV(H,RANGE_N1),END_N1-1);
HH2:=REF(HV(H,RANGE_N1),END_N2-1);
MACD1:=REF(HV(MACD,RANGE_N1),END_N1-1);
MACD2:=REF(HV(MACD,RANGE_N1),END_N2-1);
顶背离:=CROSS(0,MACD) && HH1>HH2 && MACD1<MACD2;
DRAWTEXT(顶背离,DIFF*1.10 ,'顶背离'),RGB(0,255,64);
END_M1:=SUMBARS(UPCOND,1);
RANGE_M1:=REF(SUMBARS(DOWNCOND,1),END_M1);
END_M2:=SUMBARS(UPCOND,2);
LL1:=REF(LV(L,RANGE_M1),END_M1-1);
LL2:=REF(LV(L,RANGE_M1),END_M2-1);
MACD3:=REF(LV(MACD,RANGE_M1),END_M1-1);
MACD4:=REF(LV(MACD,RANGE_M1),END_M2-1);
底背离:=CROSS(MACD,0) && LL1<LL2 && MACD3>MACD4;
DRAWTEXT(底背离,DIFF*1.50 ,'底背离'),COLORWHITE;


DRAWTEXT(MACD>0&&CROSS(MACD<REF(MACD,1),0.5),MACD+0.3,'空'),COLORCYAN,FONTSIZE20;
DRAWTEXT(MACD<0&&CROSS(MACD>REF(MACD,1),0.5),MACD-0.3,'进'),COLORRED,VALIGN0,FONTSIZE20;
DRAWTEXT(MACD>0&&CROSS(MACD>REF(MACD,1),0.5),MACD+0.3,'进'),COLORRED,FONTSIZE20;
DRAWTEXT(MACD<0&&CROSS(MACD<REF(MACD,1),0.5),MACD-0.3,'空'),COLORCYAN,VALIGN0,FONTSIZE20;
MACD>0&&CROSS(MACD<REF(MACD,1),0.5),SPARK;
MACD<0&&CROSS(MACD>REF(MACD,1),0.5),SPARK;
MACD>0&&CROSS(MACD>REF(MACD,1),0.5),SPARK;
MACD<0&&CROSS(MACD<REF(MACD,1),0.5),SPARK;
PLAYSOUND(MACD>0&&CROSS(MACD<REF(MACD,1),0.5),'A');
PLAYSOUND(MACD<0&&CROSS(MACD>REF(MACD,1),0.5),'B');
PLAYSOUND(MACD>0&&CROSS(MACD>REF(MACD,1),0.5),'A');
PLAYSOUND(MACD<0&&CROSS(MACD<REF(MACD,1),0.5),'B');