通达信分时主图T＋0专用未加密选股指标公式源码

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)));
机构买盘:=(A2),LINETHICK2;
机构卖盘:=(A3),LINETHICK2;
散户买盘:=(A4);
散户卖盘:=(A5);

DRAWTEXT_FIX(1,0.000,1-0.05,0,STRCAT(STRCAT('【机构买盘】',CON2STR(机构买盘,2)),'万')),COLORWHITE;
DRAWTEXT_FIX(1,0.250,1-0.05,0,STRCAT(STRCAT('【机构卖盘】',CON2STR(机构卖盘,2)),'万')),COLOR00FF00;
DRAWTEXT_FIX(1,0.500,1-0.05,0,STRCAT(STRCAT('【散户买盘】',CON2STR(散户买盘,2)),'万')),COLORWHITE;
DRAWTEXT_FIX(1,0.745,1-0.05,0,STRCAT(STRCAT('【散户卖盘】',CON2STR(散户卖盘,2)),'万')),COLOR00FF00;
突破:=REF(Ema(C,14),1);
A1X:=(ema(C,10)-突破)/突破*100;
多方:=IF(A1X>=0,REF(EMA(C,10),BArslAST(crOSS(A1X,0))+1),DRAWNULL);
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);
STICKLINE(A1X>=0,多方,突破,0,0),COLOR000099;
STICKLINE(A1X<0,空方,突破,0,0),COLOR00CC66;
最新:CLOSE,LINETHICK1,COLORRED;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
DRAWTEXT( ISLASTBAR AND 最新>REF(最新,1),最新,STRCAT(' 涨▲',CON2STR(最新,2))),COLORLIMAGENTA;
DRAWTEXT( ISLASTBAR AND 最新<REF(最新,1),最新,STRCAT(' 跌▼',CON2STR(最新,2))),COLOR00FF00;
DRAWTEXT_FIX(1,0.880,1-0.97,0,DYBLOCK),COLORRED;
DRAWTEXT_FIX(1,0.940,1-0.97,0,HYBLOCK),COLORBLUE;
均价:SUM(C*V,240)/SUM(V,240),COLORBLUE,LINETHICK1;
DXJP:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,21)-LLV(LOW,34))*100;
FSZX:=(EMA(DXJP,3)-50)*2,COLORBROWN;
BGTYU:=IF(DATE<=1150530,1,0);
GHYJKU:=BETWEEN((DCLOSE*BGTYU)/(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU)))),1.05,0.95);
VBNH:=IF(GHYJKU=0,MA((DCLOSE*BGTYU),BARSCOUNT((DCLOSE*BGTYU))),(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU)))));
DRAWICON(FSZX<=-95,C,38);
DRAWTEXT(CROSS(expma((DCLOSE/VBNH),20),1.04),C,'板'),COLORGREEN;
DRAWTEXT(CROSS(EXPMA((DCLOSE/VBNH),20),1.02),C,'追'),COLORBLUE;
DRAWICON(CROSS(EXPMA((DCLOSE/VBNH),120),1.004),C,17);
H1:=MAX(DYnaINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:=L1+P1*7/8,COLORCYAN;
支撑:=L1+P1*0.5/8,COLORLIMAGENTA;
DRAWICON(LONGCROSS(支撑,C,2),C,5);
DRAWICON(LONGCROSS(C,阻力,2),C,6);
VARJ1:=EMA(EMA(CLOSE,13),13);
控盘2:=(VARJ1-REF(VARJ1,1))/REF(VARJ1,1)*1000;
STJ01:=控盘2<REF(控盘2,1) AND 控盘2>0.5;
STJ02:=控盘2>0;
BTJ2:=控盘2>REF(控盘2,1) AND 控盘2<-0.2;
BTJ22:=控盘2>REF(控盘2,1) AND 控盘2<0 ;
JJ:=DYNAINFO(11);
P:=55;S:=8;M1:=3;
能量:=(EMA(CLOSE,S)-EMA(C,P))*10;
空头:=EMA(能量,M1),COLOR00FF00;
BTJ1:=(CLOSE-JJ)/JJ<-0.005;
BTJ11:=(CLOSE-JJ)/JJ<-0.03;
BTJ12:=COUNT(JJ>=REF(JJ,1),5)>=4 AND (CLOSE-JJ)/JJ<0.005;
STJ1:=(C-JJ)/JJ>0.005;
BTJ3:=CROSS(能量,空头) AND 能量<-0.3;
BTJ32:=CROSS(能量,空头) AND 能量<-0.1;
STJ31:=CROSS(空头,能量);
STJ32:=CROSS(空头,能量) AND 能量>1.618;
A:=8;
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,A);
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,A);
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,A);
时长:=IF(HOUR>=9 AND HOUR<14 ,1,0);{9点至 14点}
捡钱:=BTJ811 AND TIME>15 AND 时长;
DRAWICON(捡钱,C,27);
AYGB1:=(DVOL/C)/2,NODRAW;
AYGB2:=SUM(IF(AYGB1>100 AND CLOSE>REF(CLOSE,1),AYGB1,0),0);
AYGB3:=SUM(IF(AYGB1>100 AND CLOSE<REF(CLOSE,1),AYGB1,0),0);
AYGB4:=SUM(IF(AYGB1<100 AND CLOSE>REF(CLOSE,1),AYGB1,0),0);
AYGB5:=SUM(IF(AYGB1<100 AND CLOSE<REF(CLOSE,1),AYGB1,0),0);
AYGB6:=AYGB2+AYGB3+AYGB4+AYGB5;
机买:=(AYGB2/AYGB6)*100-100,LINETHICK1,COLORWHITE;
机卖:=(AYGB3/AYGB6)*100-100,LINETHICK1,COLORCYAN;
主力差:=机买-机卖;
LQH:=主力差>0 AND REF(主力差,1)<=0;
DRAWICON(LQH,C,25);
JJXX:=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;
JJXXH:=(JJXX*1.007 ),COLORFF6600;
FFLL:=SUM(VOL,6)>REF(MA(VOL,30),1)*10;
HHPP:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<1;
HHZZ:=HHPP AND FFLL AND (C>JJXXH);
TTPP2:=FILTER(HHZZ,100);
DRAWICON(TTPP2,C,26);

ZS:=DYNAINFO(3);
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
ZG:=DYNAINFO(5);
ZD:=DYNAINFO(6);
MA5:='FSKY.MA5#DAY';
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.2,0,STRCAT('A5 : ',CON2STR(MA5,2))),COLORRED;
MA10:='FSKY.MA10#DAY';
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.15,0,STRCAT('A10 : ',CON2STR(MA10,2))),COLORRED;
MA20:='FSKY.MA20#DAY';
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.1,0,STRCAT('A20 : ',CON2STR(MA20,2))),COLORRED;
MA60:='FSKY.MA60#DAY';
DRAWTEXT_FIX(ISLASTBAR,0.9,1,0,STRCAT('A60 : ',CON2STR(MA60,2))),COLORRED;

分时均价线:SUM(C*V,240)/SUM(V,240),COLORBLUE;
昨高:='FSKY.ZH#DAY';
昨低:='FSKY.ZL#DAY';
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.25,0,STRCAT('昨低 : ',CON2STR(昨低,2))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.3,0,STRCAT('昨高 : ',CON2STR(昨高,2))),COLORRED;

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

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)));机构买盘:=(M2),LINETHICK2;机构卖盘:=(M3),LINETHICK2;散户买盘:=(M4);散户卖盘:=(M5);DRMWTEXT_FIX(1,0.000,1-0.05,0,STRCMT(STRCMT('【机构买盘】',CON2STR(机构买盘,2)),'万')),COLORWHITE;DRMWTEXT_FIX(1,0.250,1-0.05,0,STRCMT(STRCMT('【机构卖盘】',CON2STR(机构卖盘,2)),'万')),COLOR00FF00;DRMWTEXT_FIX(1,0.500,1-0.05,0,STRCMT(STRCMT('【散户买盘】',CON2STR(散户买盘,2)),'万')),COLORWHITE;DRMWTEXT_FIX(1,0.745,1-0.05,0,STRCMT(STRCMT('【散户卖盘】',CON2STR(散户卖盘,2)),'万')),COLOR00FF00;突破:=REF(Ema(C,14),1);M1X:=(ema(C,10)-突破)/突破*100;多方:=IF(M1X>=0,REF(EMM(C,10),BMrslMST(crOSS(M1X,0))+1),DRMWNULL);空方:=IF(M1X<0,REF(EMM(C,10),BMRSLMST(CROSS(0,M1X))+1),DRMWNULL);STICKLINE(M1X>=0,多方,突破,0,0),COLOR000099;STICKLINE(M1X<0,空方,突破,0,0),COLOR00CC66;最新:CLOSE,LINETHICK1,COLORRED;MM:=SUM(MMOUNT,BMRSCOUNT(C))/SUM(VOL*100,BMRSCOUNT(C));BB:=BETWEEN(C/MM,C+H,C-H);DRMWTEXT( ISLMSTBMR MND 最新>REF(最新,1),最新,STRCMT(' 涨▲',CON2STR(最新,2))),COLORLIMMGENTM;DRMWTEXT( ISLMSTBMR MND 最新<REF(最新,1),最新,STRCMT(' 跌▼',CON2STR(最新,2))),COLOR00FF00;DRMWTEXT_FIX(1,0.880,1-0.97,0,DYBLOCK),COLORRED;DRMWTEXT_FIX(1,0.940,1-0.97,0,HYBLOCK),COLORBLUE;均价:SUM(C*V,240)/SUM(V,240),COLORBLUE,LINETHICK1;DXJP:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,21)-LLV(LOW,34))*100;FSZX:=(EMM(DXJP,3)-50)*2,COLORBROWN;BGTYU:=IF(DMTE<=1150530,1,0);GHYJKU:=BETWEEN((DCLOSE*BGTYU)/(SUM(MMOUNT,BMRSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BMRSCOUNT((DCLOSE*BGTYU)))),1.05,0.95);VBNH:=IF(GHYJKU=0,MM((DCLOSE*BGTYU),BMRSCOUNT((DCLOSE*BGTYU))),(SUM(MMOUNT,BMRSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BMRSCOUNT((DCLOSE*BGTYU)))));DRMWICON(FSZX<=-95,C,38);DRMWTEXT(CROSS(expma((DCLOSE/VBNH),20),1.04),C,'板'),COLORGREEN;DRMWTEXT(CROSS(EXPMM((DCLOSE/VBNH),20),1.02),C,'追'),COLORBLUE;DRMWICON(CROSS(EXPMM((DCLOSE/VBNH),120),1.004),C,17);H1:=MMX(DYnaINFO(3),DYNMINFO(5));L1:=MIN(DYNMINFO(3),DYNMINFO(6));P1:=H1-L1;阻力:=L1+P1*7/8,COLORCYMN;支撑:=L1+P1*0.5/8,COLORLIMMGENTM;DRMWICON(LONGCROSS(支撑,C,2),C,5);DRMWICON(LONGCROSS(C,阻力,2),C,6);VMRJ1:=EMM(EMM(CLOSE,13),13);控盘2:=(VMRJ1-REF(VMRJ1,1))/REF(VMRJ1,1)*1000;STJ01:=控盘2<REF(控盘2,1) MND 控盘2>0.5;STJ02:=控盘2>0;BTJ2:=控盘2>REF(控盘2,1) MND 控盘2<-0.2;BTJ22:=控盘2>REF(控盘2,1) MND 控盘2<0 ;JJ:=DYNMINFO(11);P:=55;S:=8;M1:=3;能量:=(EMM(CLOSE,S)-EMM(C,P))*10;空头:=EMM(能量,M1),COLOR00FF00;BTJ1:=(CLOSE-JJ)/JJ<-0.005;BTJ11:=(CLOSE-JJ)/JJ<-0.03;BTJ12:=COUNT(JJ>=REF(JJ,1),5)>=4 MND (CLOSE-JJ)/JJ<0.005;STJ1:=(C-JJ)/JJ>0.005;BTJ3:=CROSS(能量,空头) MND 能量<-0.3;BTJ32:=CROSS(能量,空头) MND 能量<-0.1;STJ31:=CROSS(空头,能量);STJ32:=CROSS(空头,能量) MND 能量>1.618;M:=8;BTJ81:=FILTER(BTJ1 MND BTJ2 MND BTJ3,M);BTJ811:=FILTER(BTJ11 MND BTJ2 MND BTJ3,M);BTJ82:=FILTER(BTJ12 MND BTJ22 MND BTJ32,M);时长:=IF(HOUR>=9 MND HOUR<14 ,1,0);{9点至 14点}捡钱:=BTJ811 MND TIME>15 MND 时长;DRMWICON(捡钱,C,27);MYGB1:=(DVOL/C)/2,NODRMW;MYGB2:=SUM(IF(MYGB1>100 MND CLOSE>REF(CLOSE,1),MYGB1,0),0);MYGB3:=SUM(IF(MYGB1>100 MND CLOSE<REF(CLOSE,1),MYGB1,0),0);MYGB4:=SUM(IF(MYGB1<100 MND CLOSE>REF(CLOSE,1),MYGB1,0),0);MYGB5:=SUM(IF(MYGB1<100 MND CLOSE<REF(CLOSE,1),MYGB1,0),0);MYGB6:=MYGB2+MYGB3+MYGB4+MYGB5;机买:=(MYGB2/MYGB6)*100-100,LINETHICK1,COLORWHITE;机卖:=(MYGB3/MYGB6)*100-100,LINETHICK1,COLORCYMN;主力差:=机买-机卖;LQH:=主力差>0 MND REF(主力差,1)<=0;DRMWICON(LQH,C,25);JJXX:=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;JJXXH:=(JJXX*1.007 ),COLORFF6600;FFLL:=SUM(VOL,6)>REF(MM(VOL,30),1)*10;HHPP:=((HHV(CLOSE,BMRSCOUNT(CLOSE))-LLV(CLOSE,BMRSCOUNT(CLOSE)))/CLOSE)<1;HHZZ:=HHPP MND FFLL MND (C>JJXXH);TTPP2:=FILTER(HHZZ,100);DRMWICON(TTPP2,C,26);ZS:=DYNMINFO(3);KP:=DYNMINFO(4);ZX:=DYNMINFO(7);ZG:=DYNMINFO(5);ZD:=DYNMINFO(6);MM5:='FSKY.MM5#DMY';DRMWTEXT_FIX(ISLMSTBMR,0.9,1-0.2,0,STRCMT('M5 : ',CON2STR(MM5,2))),COLORRED;MM10:='FSKY.MM10#DMY';DRMWTEXT_FIX(ISLMSTBMR,0.9,1-0.15,0,STRCMT('M10 : ',CON2STR(MM10,2))),COLORRED;MM20:='FSKY.MM20#DMY';DRMWTEXT_FIX(ISLMSTBMR,0.9,1-0.1,0,STRCMT('M20 : ',CON2STR(MM20,2))),COLORRED;MM60:='FSKY.MM60#DMY';DRMWTEXT_FIX(ISLMSTBMR,0.9,1,0,STRCMT('M60 : ',CON2STR(MM60,2))),COLORRED;分时均价线:SUM(C*V,240)/SUM(V,240),COLORBLUE;昨高:='FSKY.ZH#DMY';昨低:='FSKY.ZL#DMY';DRMWTEXT_FIX(ISLMSTBMR,0.9,1-0.25,0,STRCMT('昨低 : ',CON2STR(昨低,2))),COLORRED;DRMWTEXT_FIX(ISLMSTBMR,0.9,1-0.3,0,STRCMT('昨高 : ',CON2STR(昨高,2))),COLORRED;

未发现: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...