通达信智能涨跌停主图选股指标公式源码

通达信智能涨跌停主图选股指标公式源码

源码正文：

所属板块:=STRCAT(STRCAT(STRCAT('【行业】',HYBLOCK),STRCAT('    【地域】',DYBLOCK)),STRCAT(STRCAT('    【概念】',GNBLOCK),STRCAT('    【风格】',FGBLOCK))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0,0,0,所属板块),COLORWHITE{XG51};
赚钱轨道:(ma(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORWHITE{XG51};
XA_1:=MA(CLOSE,20){XG51};
DRAWBAND(赚钱轨道,RGB(155,50,50),XA_1,RGB(0,100,50)){XG51};
IF(赚钱轨道<XA_1 OR CLOSE<赚钱轨道,赚钱轨道,DRAWNULL),COLORYELLOW{XG51};
拉升线:IF(赚钱轨道>XA_1,XA_1,DRAWNULL),COLORLIMAGENTA{XG51};
下跌线:IF(赚钱轨道<=XA_1,XA_1,DRAWNULL),COLORLIGREEN{XG51};
M5:ema(CLOSE,5),COLORRED{XG51};
DRAWTEXT(ISLASTBAR=1,M5,'    5日线'),LINETHICK2,COLORRED{XG51};
M10:EMA(CLOSE,10),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR=1,M10,'    10日线'),LINETHICK2,COLORBLUE{XG51};
M20:EMA(CLOSE,20),COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR=1,M20,'    20日线'),LINETHICK2,COLORWHITE{XG51};
M60:EMA(CLOSE,60),COLORLIMAGENTA{XG51};
DRAWTEXT(ISLASTBAR=1,M60,'    60日线'),COLORLIMAGENTA{XG51};
M120:EMA(CLOSE,120),COLORGREEN,NODRAW{XG51};
M250:EMA(CLOSE,250),COLORCYAN,NODRAW{XG51};
DRAWICON(crOSS(C,M60),LOW*0.97,33){XG51};
多头:M5>REF(M5,1)  AND M5>M10 AND M10>M20 AND C>M60 AND C>M120 AND C>M250,COLORWHITE,NODRAW{XG51};
DRAWICON(多头=1,M60*1.02,9){XG51};
压力:EMA(REF(HHV(C,20),1),3),LINETHICK2,COLORCC7733{XG51};
支撑:EMA(REF(LLV(C,20),1),3),LINETHICK2,COLORGRAY{XG51};
涨跌系数:=IF((INBLOCK('科创板') OR INBLOCK('创业板')),0.2,IF(INBLOCK('ST板块'),0.05,0.1)){XG51};
STICKLINE((C>=ZTPRICE(REF(C,1),涨跌系数) AND C=H) OR (C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H AND DATE<=1200823) AND PERIOD=5 AND NOT(INBLOCK('可转债')),C,O,2,0),COLORBLUE{XG51};
STICKLINE((C<=DTPRICE(REF(C,1),涨跌系数) AND C=L) OR (C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L AND DATE<=1200823) AND PERIOD=5 AND NOT(INBLOCK('可转债')),C,O,2,0),COLORRED{XG51};
STICKLINE((H>=ZTPRICE(REF(C,1),涨跌系数) AND C<H) OR (H>=ZTPRICE(REF(CLOSE,1),0.1) AND C<H AND DATE<=1200823) AND PERIOD=5 AND NOT(INBLOCK('可转债')),H,MAX(C,O),0.01,0),COLORBLUE{XG51};
STICKLINE((L<=DTPRICE(REF(C,1),涨跌系数) AND C>L) OR (L<=DTPRICE(REF(CLOSE,1),0.1) AND C>L AND DATE<=1200823) AND PERIOD=5 AND NOT(INBLOCK('可转债')),L,MIN(C,O),0.01,0),COLORRED;{X-G~5^1-C-N-{};