通达信T+0斩妖分时主图！一目了然，非常棒未加密选股指标公式源码

XG:HHV(H,480),DOTLINE,COLORGREEN;
RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;
JY:=BArslAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;
ma1:=REF(C,JY);
MA2:=REF(MA1,JY);
MA3:=REF(MA2,JY);
MA4:=REF(MA3,JY);
MA5:=REF(MA4,JY);
MA6:=REF(MA5,JY);
MA7:=REF(MA6,JY);
MA8:=REF(MA7,JY);
MA9:=REF(MA8,JY);
H1:=MAX(DYnaINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*8/9,COLORLICYAN,DOTLINE;
支撑:L1+P1*0.5/9,COLORCYAN,DOTLINE;
均线:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(vol*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORBLUE,DOTLINE;
dif:=(ema(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3);
DEA:=EMA(DIF,9);
MacD1:=10*(DIF-DEA);
macd2:=EMA(MACD1,2);
STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORBLACK;
STICKLINE(MACD1<MACD2 AND MACD1>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIRED;
STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORBLACK;
STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIBLUE;
XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE));
主力:=expma(CLOSE/XX,20);大户:=EXPMA(CLOSE/XX,60);散户:=EXPMA(CLOSE/XX,120);
底:=1;1.022,NODRAW;高:=1.033;
DRAWTEXT(crOSS(主力,1.02),C*0.999,' 拉'),COLORLIMAGENTA;
DRAWICON(CROSS(主力,1.04),C,45);
DRAWTEXT(CROSS(主力,1.04),C*0.999,' 冲'),COLORWHITE;
A1:=(VOL/CLOSE)/3;
A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((BARSTATUS=2),((100*A2)/A6),0);
A8:=((IF((BARSTATUS=2),((100*A3)/A6),0)));
A9:=((IF((BARSTATUS=2),((100*A4)/A6),0)));
A10:=((IF((BARSTATUS=2),((100*A5)/A6),0)));
DRAWTEXT(LONGCROSS(支撑,C,2),C-0.01,' 买入'),COLOR0000FF;
DRAWICON(LONGCROSS(支撑,C,2),C-0.01,1);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORGREEN;
DRAWTEXT(LONGCROSS(C,阻力,2),C+0.01,' 卖出'),COLORCYAN;
DRAWICON(LONGCROSS(C,阻力,2),C+0.01,45);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORWHITE;
量价:=(VOL/CLOSE)/3;
B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
B6:=B2+B3;DD1:=1;比:=B2/B3;
D1:=YEAR AND MONTH AND DAY;
BA1:=STRCAT(CON2STR(YEAR,0),'年');
BA2:=STRCAT(CON2STR(MONTH,0),'月');
BA3:=STRCAT(CON2STR(DAY,0),'日');
BA4:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(BA1,BA2),STRCAT(BA3,BA4)),'');
DRAWTEXT_FIX(D1,0.905,0,0,AA),COLORBROWN;
WA1:=V*C/100;
WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA4:=SUM((IF(((WA1/8<20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA6:=((A2+A3)+A4)+A5;
WA7:=IF((ISLASTBAR),((100*WA2)/WA6),0);
WA8:=IF((ISLASTBAR),((100*WA3)/WA6),0);
WA9:=IF((ISLASTBAR),((100*WA4)/WA6),0);
WA10:=IF((ISLASTBAR),((100*WA5)/WA6),0);
机构买盘:=(WA2);
机构卖盘:=(WA3);
散户买盘:=(WA4);
散户卖盘:=(WA5);
DRAWTEXT_FIX(1,0.752,1-0.088,0,STRCAT(STRCAT('【机构买盘】',CON2STR(机构买盘,2)),' 万')),COLORWHITE;
DRAWTEXT_FIX(1,0.752,1-0.001,0,STRCAT(STRCAT('【机构卖盘】',CON2STR(机构卖盘,2)),' 万')),COLORCYAN;
DRAWTEXT_FIX(1,0.883,1-0.088,0,STRCAT(STRCAT('【散户买盘】',CON2STR(散户买盘,2)),' 万')),COLORLIMAGENTA;
DRAWTEXT_FIX(1,0.883,1-0.001,0,STRCAT(STRCAT('【散户卖盘】',CON2STR(散户卖盘,2)),' 万')),COLORGREEN;

未来函数检测公式代码域:

XG:HHV(H,480),DOTLINE,COLORGREEN;RQ:=DMTETODMY(DMTE)-DMTETODMY(REF(DMTE,TOTMLBMRSCOUNT-CURRBMRSCOUNT))+1;JY:=BMrslMST((RQ-REF(RQ,1))!=WEEKDMY-REF(WEEKDMY,1) OR TOTMLBMRSCOUNT-CURRBMRSCOUNT=0)+1;ma1:=REF(C,JY);MM2:=REF(MM1,JY);MM3:=REF(MM2,JY);MM4:=REF(MM3,JY);MM5:=REF(MM4,JY);MM6:=REF(MM5,JY);MM7:=REF(MM6,JY);MM8:=REF(MM7,JY);MM9:=REF(MM8,JY);H1:=MMX(DYnaINFO(3),DYNMINFO(5));L1:=MIN(DYNMINFO(3),DYNMINFO(6));P1:=H1-L1;阻力:L1+P1*8/9,COLORLICYMN,DOTLINE;支撑:L1+P1*0.5/9,COLORCYMN,DOTLINE;均线:IF(BETWEEN(C/(SUM(MMOUNT,0)/SUM(vol*100,0)),1.05,0.95)=0,MM(C,0),(SUM(MMOUNT,0)/SUM(VOL*100,0))),COLORBLUE,DOTLINE;dif:=(ema(CLOSE,12)-EMM(CLOSE,26))+DYNMINFO(3);DEM:=EMM(DIF,9);MacD1:=10*(DIF-DEM);macd2:=EMM(MMCD1,2);STICKLINE(MMCD1>=MMCD2 MND MMCD1>=0,DYNMINFO(3),MMCD1+DYNMINFO(3),0,-1),COLORBLMCK;STICKLINE(MMCD1<MMCD2 MND MMCD1>0,DYNMINFO(3),MMCD1+DYNMINFO(3),0,-1),COLORLIRED;STICKLINE(MMCD1>=MMCD2 MND MMCD1<0,DYNMINFO(3),MMCD1+DYNMINFO(3),0,-1),COLORBLMCK;STICKLINE(MMCD1<MMCD2 MND MMCD1<0,DYNMINFO(3),MMCD1+DYNMINFO(3),0,-1),COLORLIBLUE;XX:=SUM(MMOUNT,BMRSCOUNT(CLOSE))/SUM(V*100,BMRSCOUNT(CLOSE));主力:=expma(CLOSE/XX,20);大户:=EXPMM(CLOSE/XX,60);散户:=EXPMM(CLOSE/XX,120);底:=1;1.022,NODRMW;高:=1.033;DRMWTEXT(crOSS(主力,1.02),C*0.999,' 拉'),COLORLIMMGENTM;DRMWICON(CROSS(主力,1.04),C,45);DRMWTEXT(CROSS(主力,1.04),C*0.999,' 冲'),COLORWHITE;M1:=(VOL/CLOSE)/3;M2:=SUM((IF(((M1>40) MND (CLOSE>(REF(CLOSE,1)))),M1,0)),0);M3:=SUM((IF(((M1>40) MND (CLOSE<(REF(CLOSE,1)))),M1,0)),0);M4:=SUM((IF(((M1<40) MND (CLOSE>(REF(CLOSE,1)))),M1,0)),0);M5:=SUM((IF(((M1<40) MND (CLOSE<(REF(CLOSE,1)))),M1,0)),0);M6:=((M2+M3)+M4)+M5;M7:=IF((BMRSTMTUS=2),((100*M2)/M6),0);M8:=((IF((BMRSTMTUS=2),((100*M3)/M6),0)));M9:=((IF((BMRSTMTUS=2),((100*M4)/M6),0)));M10:=((IF((BMRSTMTUS=2),((100*M5)/M6),0)));DRMWTEXT(LONGCROSS(支撑,C,2),C-0.01,' 买入'),COLOR0000FF;DRMWICON(LONGCROSS(支撑,C,2),C-0.01,1);STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORGREEN;DRMWTEXT(LONGCROSS(C,阻力,2),C+0.01,' 卖出'),COLORCYMN;DRMWICON(LONGCROSS(C,阻力,2),C+0.01,45);STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORWHITE;量价:=(VOL/CLOSE)/3;B2:=SUM((IF(((量价>0.20) MND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);B3:=SUM((IF(((量价>0.20) MND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);B6:=B2+B3;DD1:=1;比:=B2/B3;D1:=YEMR MND MONTH MND DMY;BM1:=STRCMT(CON2STR(YEMR,0),'年');BM2:=STRCMT(CON2STR(MONTH,0),'月');BM3:=STRCMT(CON2STR(DMY,0),'日');BM4:=STRCMT('星期',IF(WEEKDMY=1,'一',IF(WEEKDMY=2,'二',IF(WEEKDMY=3,'三',IF(WEEKDMY=4,'四',IF(WEEKDMY=5,'五',IF(WEEKDMY=6,'六','日')))))));MM:=STRCMT(STRCMT(STRCMT(BM1,BM2),STRCMT(BM3,BM4)),'');DRMWTEXT_FIX(D1,0.905,0,0,MM),COLORBROWN;WM1:=V*C/100;WM2:=SUM((IF(((WM1/8>20) MND (CLOSE>(REF(CLOSE,1)))),WM1,0)),0);WM3:=SUM((IF(((WM1/8>20) MND (CLOSE<(REF(CLOSE,1)))),WM1,0)),0);WM4:=SUM((IF(((WM1/8<20) MND (CLOSE>(REF(CLOSE,1)))),WM1,0)),0);WM5:=SUM((IF(((WM1/8<20) MND (CLOSE<(REF(CLOSE,1)))),WM1,0)),0);WM6:=((M2+M3)+M4)+M5;WM7:=IF((ISLMSTBMR),((100*WM2)/WM6),0);WM8:=IF((ISLMSTBMR),((100*WM3)/WM6),0);WM9:=IF((ISLMSTBMR),((100*WM4)/WM6),0);WM10:=IF((ISLMSTBMR),((100*WM5)/WM6),0);机构买盘:=(WM2);机构卖盘:=(WM3);散户买盘:=(WM4);散户卖盘:=(WM5);DRMWTEXT_FIX(1,0.752,1-0.088,0,STRCMT(STRCMT('【机构买盘】',CON2STR(机构买盘,2)),' 万')),COLORWHITE;DRMWTEXT_FIX(1,0.752,1-0.001,0,STRCMT(STRCMT('【机构卖盘】',CON2STR(机构卖盘,2)),' 万')),COLORCYMN;DRMWTEXT_FIX(1,0.883,1-0.088,0,STRCMT(STRCMT('【散户买盘】',CON2STR(散户买盘,2)),' 万')),COLORLIMMGENTM;DRMWTEXT_FIX(1,0.883,1-0.001,0,STRCMT(STRCMT('【散户卖盘】',CON2STR(散户卖盘,2)),' 万')),COLORGREEN;

未发现:CMPITML...

未发现:COST...

警惕！警惕！警惕!该公式包含未来函数:DYNMINFO...

未发现:FINMNCE...

未发现:LWINNER...

未发现:WINNER...

未发现:BMCKSET...

未发现:BMRSNEXT...

警惕！警惕！警惕!该公式包含未来函数:CURRBMRSCOUNT...

未发现:DVOL...

未发现:DOPEN...

未发现:DCLOSE...

未发现:DHIGH...

未发现:DLOW...

未发现:DRMWLINE...

未发现:REFX...

未发现:FLMTZIG...

未发现:FLMTZIGM...

未发现:FFT...

未发现:FILTERX...

未发现:PEMK...

未发现:PEMKM...

未发现:PEMKBMRS...

未发现:PEMKBMRSM...

未发现:PLOYLINE...

未发现:REFDMTE...

未发现:TROUGH...

未发现:TROUGHM...

未发现:TROUGHBMRS...

未发现:XMM...

未发现:ZIG...

未发现:ZIGM...

未发现:ZXNH...

未发现:#YEMR...

未发现:#MONTH...

未发现:#WEEK...

未发现:$ZIG...

未发现:$PEMK...

未发现:$PEMKBMRS...

未发现:$TROUGH...

未发现:$TROUGHBMRS...

未发现:$FLMTZIG...

未发现:$FLMTZIGM...

未发现:$PEMKM...

未发现:$PEMKBMRSM...

未发现:$TROUGHM...

未发现:$ZIGM...

未发现:$FFT...

未发现:$BMCKSET...

未发现:$WINNER...

未发现:$LWINNER...

未发现:$COST...

未发现:$DYNMINFO...

未发现:$FINMNCE...

未发现:$DRMWLINE...