通达信变色分时主图指标 源码 贴图

M:=8;
获利比例:=WINNER(C)*100,NODRAW;
基点:=获利比例>50 AND 获利比例<59,NODRAW;
选:IF(REF(基点,1)=1,C>REF(H,1),IF(REF(获利比例,1)<=50,C>REF(REF(H,BARSLAST(基点)),1),0))
AND BARSLAST(基点)<M AND REF(BARSLAST(基点),1)<M-1,NODRAW;
筹码参数:=TOTALCAPITAL*100/FINANCE(46) NODRAW;
筹码获利率:=WINNER(C)*100 NODRAW;
TTT:=DRAWSL(基点,H,0,IF(REFX(BARSNEXT(基点),1)=DRAWNULL,CURRBARSCOUNT,REFX(BARSNEXT(基点),1)+1),0)COLORBLUE,LINETHICK2;
A:=WINNER(C)*100;
B:=BETWEEN(A,50,59);
Q1:=BACKSET(BARSTATUS=2,BARSLAST(B)+1);
前期:=Q1>REF(Q1,1);
向右水平线:=REF(H,BARSLAST(前期))COLORBLUE,LINETHICK2;
E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
分时底:LLV(L,380),COLORGREEN,POINTDOT,NODRAW;
最新:C,COLORWHITE,NODRAW;
IF( C>=REF(TTT,1),C,DRAWNULL),LINETHICK2,COLORCYAN;
IF( C>=REF(向右水平线,1) ,C,DRAWNULL),LINETHICK2,COLORRED;
IF( C<=REF(分时底,1),C,DRAWNULL),LINETHICK2,COLORGREEN;
量价:=(VOL/CLOSE)/3;
A2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
A3:=SUM((IF(((量价>0.20) AND (CLOSE< (REF(CLOSE,1)))),量价,0)),0);
A6:=A2+A3;
DD1:=1;
比:=A2/A3;
AA1:=STRCAT(STRCAT('买= ',CON2STR((100*A2)/A6,0)),'%');
AA2:=STRCAT(STRCAT('卖= ',CON2STR((100*A3)/A6,0)),'%');
AA3:=STRCAT(STRCAT('差= ',CON2STR((100*(A2-A3))/A6,0)),'%');
DRAWTEXT_FIX(DD1=1,0.8,0.87,0,AA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0.8,0.92,0,AA2),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.8,0.99,0,AA3),COLOR00FFFF;
现价:=C,COLORWHITE,LINETHICK2;
均价11:=SUM(C*V,240)/SUM(V,240),COLORRED,LINETHICK2;
TT:=BARSCOUNT(C);
前高:=REF(HHV(H,TT),1);
突破:=CROSS(C,REF(HHV(H,TT),1)) AND C/均价11<1.09 AND TT>1 AND TT<240;
主力扫盘:=COUNT(突破,13)>=3 AND CROSS(C,REF(HHV(H,TT),1));
已主力扫盘:=BARSLAST(主力扫盘)<13;
HJ_2:=DYNAINFO(4)>0 AND HHV(HIGH,2)/LLV(LOW,2)<1.25 AND REF(CLOSE,1)<LLV(LOW,3)+(HHV(HIGH,3)-LLV(LOW,3))*0.85;
HJ_9:=EMA(CLOSE,2);
HJ_10:=EMA(CLOSE,3);
HJ_11:=MAX(HJ_9,HJ_10);
X2:=CLOSE>HJ_11
AND HJ_2 AND (CLOSE>REF(HHV(HIGH,2),1) AND
(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>0.015) AND (V/CAPITAL<=0.2) AND
C/REF(C,1)<1.07;
NX:=MA(((SLOPE(C,20)*5)+C),10);
{中枢}{公式网WWW.GPXIAZAI.COM}
B1:=HOUR=09 AND MINUTE=45;
B20:=LLV(L,15);
B30:=BARSLAST(B1);
B4:=REF(B20,B30);
B5:=CONST(B4),COLORFF80FF,CIRCLEDOT,LINETHICK2;
C1:=HOUR=09 AND MINUTE=45;
C2:=HHV(H,15);
C3:=BARSLAST(C1);
C4:=REF(C2,C3);
C5:=CONST(C4),COLORFF80FF,CIRCLEDOT,LINETHICK2;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD10:=(DIF-DEA)*2;
AA0:=MACD10>00 AND DIF>0 AND DEA>0;
A100:=HOUR=10 AND MINUTE=0;
A20:=HHV(H,30);
A30:=BARSLAST(A100);
A40:=REF(A20,A30);
A50:=CONST(A40);
A80:=CLOSE>A50 AND REF(C<=A50,1) AND CLOSE>NX;
AB:=FILTER(A80,100);
A90:=DYNAINFO(3);
AC:=CLOSE<=A90*1.04 AND CLOSE>A90;
量比:=V/REF(MA(V,5),1);
XG:=AA0 AND AB AND AC AND A40>A90 AND 量比>=1;
HJ_4:=CLOSE;
HJ_5:=(CLOSE-REF(CLOSE,5))/REF(CLOSE,5);
BAB1:=STICKLINE(HJ_5>0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_5),0.1,0);
BAB2:=STICKLINE(HJ_5<0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_5),0.1,0);
HJ_6:=CLOSE/DYNAINFO(3);
HJ_7:=FILTER(HJ_5>0.015 AND HJ_5>REF(HJ_5,1)*2 AND VOL>REF(VOL,1)*2 AND CLOSE>REF(CLOSE,1) OR HJ_5>0.025,240);
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*8/9,COLORLIRED,DOTLINE;
支撑:L1+P1*0.5/9,COLORGREEN,DOTLINE;
DRAWTEXT(FILTER(CROSS(C,支撑),240),L-0.01,'吸筹'),COLOR0000FF;
DRAWTEXT(FILTER(CROSS(阻力,C),240),H-0.01,'压'),COLOR0000FF;
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);
机构买盘:=(WA2);
机构卖盘:=(WA3);
散户买盘:=(WA4);
散户卖盘:=(WA5);
BU:=BARSLAST(CLOSE=HHV(CLOSE,60));
SE:=BARSLAST(CLOSE=LLV(CLOSE,60));
KK1:=SE;
KK2:=BU;
LM1:=SE;
LM2:=BU;
OK:=KK1>KK2 AND LM1>LM2;
OK1:=KK1>KK2 AND LM1<LM2;
NOK:=KK2>KK1 AND LM2>LM1;
NOK1:=KK2>KK1 AND LM2<LM1;
DRAWICON(FILTER(CROSS(KK1,KK2),240),OPEN*1,5);
DRAWTEXT(FILTER(CROSS(KK1,KK2),240) ,OPEN*0.995,'抓'),COLORYELLOW;
TT1:=BARSCOUNT(C);
均价黄:=SUM(C*V,TT1)/SUM(V,TT1);
量两步:=MA(V,5)>REF(MA(V,5),1) AND REF(MA(V,5),1)>REF(MA(V,5),2);
价两步:= C>=REF(C,1) AND REF(C,1)>REF(C,2);
价上岗量破5:=C>均价黄 AND V>MA(V,5);
量起爆:=V>=REF(V,1)*1;
价创新高:=C>=HHV(C,0);
量创新高:=V>=HHV(V,0);
对昨日涨幅:=(C/DYNAINFO(3)-1)*100<=2.50;{涨幅控制2个点以内}
每日一点:=量两步 AND 价两步 AND 价上岗量破5 AND 量起爆 AND 价创新高 AND 量创新高 AND 对昨日涨幅;
VV:=BARSSINCE(每日一点)+1;
起爆时间:=REF(TIME/10000,VV),NODRAW;
已爆分钟:=VV-1,NODRAW;
DRAWICON(每日一点,C,25);
DRAWTEXT(每日一点,L-0.01,'←分时起爆'),COLOR0000FF;
ACX:=FILTER(CROSS(KK1,KK2),240);
ACX1:=BARSSINCE(ACX)+1;
X1:=IF(MA(C,5)>MA(C,10),20,0);
X21:=IF(MA(C,20)>MA(C,60),10,0);
X3:=IF(KDJ.J>KDJ.K,10,0);
X4:=IF(MACD.DIF>MACD.DEA,10,0);
X5:=IF(MACD.MACD>0,10,0);
X6:=IF(V>MA(V,60),10,0);
X7:=IF(WINNER(C)>0.5,10,0);
X8:=IF(C/REF(C,1)>1.03,10,0);
XX:=X1+X21+X3+X4+X5+X6+X7+X8;
DRAWTEXT_FIX(V>O,0.90,0.99,0,STRCAT('量化评分：',STRCAT(CON2STR(XX,2),' '))),COLORYELLOW;
A11:=(VOL/CLOSE)/3;
A21:=SUM((IF(((A11>40) AND (CLOSE>(REF(CLOSE,1)))),A11,0)),0);
A31:=SUM((IF(((A11>40) AND (CLOSE<(REF(CLOSE,1)))),A11,0)),0);
A41:=SUM((IF(((A11<40) AND (CLOSE>(REF(CLOSE,1)))),A11,0)),0);
A51:=SUM((IF(((A11<40) AND (CLOSE<(REF(CLOSE,1)))),A11,0)),0);
A61:=((A21+A31)+A41)+A51;
W1:=V*C/100;
W22:=SUM((IF(((W1/8>20) AND (CLOSE>(REF(CLOSE,1)))),W1,0)),0);
W32:=SUM((IF(((W1/8>20) AND (CLOSE<(REF(CLOSE,1)))),W1,0)),0);
W42:=SUM((IF(((W1/8<20) AND (CLOSE>(REF(CLOSE,1)))),W1,0)),0);
W52:=SUM((IF(((W1/8<20) AND (CLOSE<(REF(CLOSE,1)))),W1,0)),0);
W6:=((A21+A31)+A41)+A51;
W7:=IF((ISLASTBAR),((100*W22)/W6),0);
W8:=IF((ISLASTBAR),((100*W32)/W6),0);
W9:=IF((ISLASTBAR),((100*W42)/W6),0);
W10:=IF((ISLASTBAR),((100*W52)/W6),0);
机构买盘1:=(W22);
机构卖盘1:=(W32);
散户买盘1:=(W42);
散户卖盘1:=(W52);
机买差:=机构买盘1-机构卖盘1;
散差:=散户买盘1-散户卖盘1;
DRAWTEXT_FIX(1,0,0.9,0,STRCAT(STRCAT('【机买】',CON2STR(机构买盘1,2)),' 万')),COLORLIMAGENTA;
DRAWTEXT_FIX(1,0,0.99,0,STRCAT(STRCAT('【机卖】',CON2STR(机构卖盘1,2)),' 万')),COLORGREEN;
DRAWTEXT_FIX(1,0.10,0.9,0,STRCAT(STRCAT('【散买】',CON2STR(散户买盘,2)),' 万')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.10,0.99,0,STRCAT(STRCAT('【散卖】',CON2STR(散户卖盘,2)),' 万')),COLORCYAN;
HS:=100*DYNAINFO(8)/CAPITAL;
ZHWS:=STRCAT(VAR2STR(DYNAINFO(8)/10000,2),'万手');
JHS:=STRCAT('今换手：',STRCAT(VAR2STR(HS,2),'%'));
JHS1:=STRCAT(JHS,' ≈ ');
DRAWTEXT_FIX(1,0.20,0.99,0,STRCAT(JHS1,ZHWS))COLORYELLOW;
LTPDW:=IF((FINANCE(46))/1000000>1,'亿股','万股');
LTP:=IF((FINANCE(46))/1000000>1,CON2STR((FINANCE(46))/100000000,2),CON2STR((FINANCE(46))/10000,0));
LTP1:=STRCAT(STRCAT('自由流通盘：',LTP),LTPDW);
LTPWS:=STRCAT(VAR2STR(FINANCE(46)/1000000,2),'万手');
LTP2:=STRCAT(LTP1,' ≈ ');
DRAWTEXT_FIX(1,0.37,0.99,0,STRCAT(LTP2,LTPWS))COLORMAGENTA;
DRAWTEXT_FIX(1,0.37,0.92,0,STRCAT(STRCAT('自由流通市值：',CON2STR(FINANCE(46)*C/100000000,2)),'亿元'))COLORMAGENTA;
KP:=(DYNAINFO(4)-DYNAINFO(3))/DYNAINFO(3)*100;
DRAWTEXT_FIX(1,0.2,0.65,0,STRCAT('开盘：',STRCAT(VAR2STR(KP,2),'%')))COLORYELLOW;
DRAWTEXT_FIX(1,0.2,0.85,0,STRCAT('最高价：',CON2STR(DYNAINFO(5),2)))COLORYELLOW;
DRAWTEXT_FIX(1,0.2,0.90,0,STRCAT('最低价：',CON2STR(DYNAINFO(6),2)))COLORYELLOW;
今日竞价股数:=DYNAINFO(15)/DYNAINFO(4);
开盘换手Z:=DYNAINFO(15)/DYNAINFO(4)/FINANCE(46)*100;
DRAWTEXT_FIX(1,0.2,0.7,0,STRCAT(STRCAT('开盘换手Z：',CON2STR(开盘换手Z,2)),''))COLORYELLOW;
CJE:=DYNAINFO(8)*DYNAINFO(11);
DW:=IF(CJE/1000000>1,'亿','万');
ABT:=IF(CJE/1000000>1,CJE/1000000,CJE/100);
DRAWTEXT_FIX(1,0.2,0.75,0,STRCAT(STRCAT('成交额：',CON2STR(ABT,2)),DW))COLORYELLOW;
市盈率:=STRCAT('市盈率：',CON2STR(C/FINANCE(33),2));
DRAWTEXT_FIX(1,0.2,0.80,0,STRCAT(市盈率,'倍'))COLORYELLOW;
JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;
JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');
JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));
JJJE1:=STRCAT(JJJE,JJJEDW);
JJ:=STRCAT('竞价：',STRCAT(CON2STR(JJCJL,0),'手'));
JJ1:=STRCAT(JJ,' = ');
DRAWTEXT_FIX(1,0.2,0.55,0,STRCAT(JJ1,JJJE1))COLORMAGENTA;
SSJ:=BARSCOUNT(V);
今开量:DYNAINFO(15)/DYNAINFO(4)/100/10000,NODRAW;
昨大量:IF(SSJ>238,REF(HHV(V,239),SSJ-238),0)/10000,NODRAW;
BZ:=今开量/昨大量;
DRAWTEXT_FIX(SSJ>239 AND BZ>0.6,0.25,0.1,0,STRCAT(STRCAT('【昨爆今开比】',CON2STR(BZ,2)),'')),COLORRED;
DRAWTEXT_FIX(SSJ>239 AND BZ<0.6,0.25,0.1,0,STRCAT(STRCAT('【昨爆今开比】',CON2STR(BZ,2)),'')),COLORYELLOW;
DRAWTEXT_FIX(SSJ>239 AND BETWEEN(BZ,0.5,2),0.2,0.2,0,'【开盘量价达标,择机介入】'),COLORYELLOW;
DRAWTEXT_FIX(SSJ>239,0,0,0,'昨暴拉板量，一字除外,今比值0.60左右可考虑介入')COLORCYAN;
DRAWTEXT_FIX(SSJ>239,0,0.2,0,'比值不达标，须开盘后补量, 过大,出货嫌疑')COLORCYAN;
均价线:=DYNAINFO(11);
差值:=ABS(CLOSE-DYNAINFO(11));
偏离值:=差值/均价线*100;
DRAWTEXT_FIX(1,0.6,0.99,0,STRCAT(STRCAT('【乖离率小于3%】= ',CON2STR(偏离值,1)),'％')),COLORYELLOW;
竞价额:= DYNAINFO(15);
换手Z:= 竞价额/O/FINANCE(46)*100;
JJ3:=SUM(IF(BETWEEN(TIME,0930,0930),V,0),FROMOPEN);
DRAWTEXT(JJ3/(HHV(V,5),1)*100>=2 AND BETWEEN(TIME,0930,0930) AND 换手Z>=1,C,'爆'),COLORMAGENTA;