单阳不破通达信主图公式

01

===============================================

知道单阳不破怎么用吗？对不起，我也不知道怎么用，读者们会用的自己拿去用。

做出来是这样的效果，涨停，或者涨幅大于4个点以上并且成交量大于昨天的成交量的一倍以上时，画一个半实芯的K线，并在最低价向右画横线及数字，最多标示10天的K线，超过10天后不再标注，或者条件变化后也不再标，比如上突破或下突破。均线采用EMA12和EMA26来与MACD指标对应。你看出为什么要这样设置了吗？

本次公式无私奉献广大股民朋友

写点公众号容易吗？

源码：

{日期}

收盘价:CONST(C)DOTLINE;

星期:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');

日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期);

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.5,0.95,0,日期)COLORYELLOW;

ZTBL:=IF(FINANCE(3)=2,0.3,IF((FINANCE(3)=4 OR FINANCE(3)=3),0.2,0.1));

ZTP:=ZTPRICE(REF(C,1),ZTBL);

DTP:=DTPRICE(REF(C,1),ZTBL);

ZT:=C>=ZTP;

DT:=C<=DTP;

EMA12:EMA(CLOSE,12)COLORWHITE;

EMA26:EMA(CLOSE,26)COLORRED;

昨EMA26:=REF(EMA26,1);

季均差:=EMA26-昨EMA26;

明EMA26:=季均差+EMA26;

DRAWTEXT(CURRBARSCOUNT=1,EMA26,CON2STR(明EMA26,2)),COLORYELLOW;

标K1:=C>O*(1+4/100) AND VOL>REF(VOL,1)*2;

标K:=ZT OR 标K1;

低不破价:=REF(L,BARSLAST(标K));

单阳不破:=CURRBARSCOUNT< 100 AND BARSLAST(标K)< 11 AND (LLV(L,BARSLAST(标K))>=低不破价);

STICKLINE(ZT,C,(C+O)/2,2.5,0),COLOR000088;

STICKLINE(ZT,C,(C+O)/2,2.0,0),COLOR0000AA;

STICKLINE(ZT,C,(C+O)/2,1.5,0),COLOR0000DD;

STICKLINE(ZT,C,(C+O)/2,1.0,0),COLOR0000FF;

STICKLINE(DT,C,(O+C)/2,2.5,0),COLOR008800;

STICKLINE(DT,C,(O+C)/2,2.0,0),COLOR00AA00;

STICKLINE(DT,C,(O+C)/2,1.5,0),COLOR00DD00;

STICKLINE(DT,C,(O+C)/2,1.0,0),COLOR00FF00;

DRAWTEXT(BARSLAST(标K)=1 AND 单阳不破,低不破价,'1')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=2 AND 单阳不破,低不破价,'2')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=3 AND 单阳不破,低不破价,'3')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=4 AND 单阳不破,低不破价,'4')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=5 AND 单阳不破,低不破价,'5')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=6 AND 单阳不破,低不破价,'6')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=7 AND 单阳不破,低不破价,'7')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=8 AND 单阳不破,低不破价,'8')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=9 AND 单阳不破,低不破价,'9')DRAWABOVE,COLORGREEN;

DRAWTEXT(BARSLAST(标K)=10 AND 单阳不破,低不破价,'10')DRAWABOVE,COLORGREEN;

IF(单阳不破 AND C>0,低不破价,DRAWNULL),COLORRED;