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; |
|