通达信量粉高量看盘主图源码主图

{ 股票指标 }


{板块显示}
{参数N=11,M=6}
SBL:=STRCAT(STRCAT(HYBLOCK,DYBLOCK),GNBLOCK);
DRAWTEXT_FIX(1,0.00,0,0,'所属板块：')COLORWHITE;
DRAWTEXT_FIX(1,0.06,0,0,  SBL),COLORGREEN;
DRAWTEXT_FIX(1,0.06,0.05,0, FGBLOCK),COLORMAGENTA;
DRAWTEXT_FIX(1,0.83,0,0,'红果培训QQ:707712667')COLORLIGRAY;
{涨跌停K标识};
AA:=(C-REF(C,1))/REF(C,1)*100;
ZS:=(NAMELIKE('ST') OR NAMELIKE('*ST') OR  NAMELIKE('S')) AND AA>=4.945;
DS:=(NAMELIKE('ST') OR NAMELIKE('*ST') OR  NAMELIKE('S')) AND AA<=-4.945;
涨停价:IF(ZS,REF(C,1)*1.05,REF(C,1)*1.1),NODRAW,COLORRED;
跌停价:IF(DS,REF(C,1)*0.95,REF(C,1)*0.9),NODRAW,COLORGREEN;
涨停:=C=ZTPRICE(REF(C,1),0.1) OR ZS ;
跌停:=C=DTPRICE(REF(C,1),0.1) OR DS;
一字板:=涨停  AND H=O AND L=H;
一字跌停:=REF(C,1)<c*1.0997 and ="" h="O" and="" l="H;" <br="">一字涨跌停:=一字板 OR 一字跌停;
STICKLINE(涨停,O,C,2,0),COLORMAGENTA;
STICKLINE(涨停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;
STICKLINE(跌停,H,L,0,1),COLORGREEN;

 
现价:DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,CONST(C),CURRBARSCOUNT=1,C,3) DOTLINE COLORLIRED ;
均价:AMOUNT/VOL/100 NODRAW;
DRAWTEXT(ISLASTBAR,均价,'-------------') COLORRED;
DRAWTEXT(CURRBARSCOUNT=21, 现价-0.05,'21')COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=55, 现价-0.05,'55')COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=89, 现价-0.05,'89')COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=100, 现价-0.05,'100')COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=144, 现价-0.05,'144')COLORGREEN;
基准价:=DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,CONST(L),CURRBARSCOUNT=1,L,3) DOTLINE COLORWHITE;
LDM23:=基准价;
LDM24:=LDM23*0.002;
LDM25:=ABS(LOW-LDM23)<=LDM24;
LDM26:=ABS(OPEN-LDM23)<=LDM24;
LDM27:=ABS(CLOSE-LDM23)<=LDM24;
LDM28:=ABS(HIGH-LDM23)<=LDM24;
LDM29:=LDM25 OR LDM26 OR LDM27 OR LDM28 ;
LDM30:=COUNT(LDM29,120);
精准点个数:IF(LDM30>0,LDM30+1,0),NODRAW,COLORMAGENTA;
SB:=MAX(CLOSE,OPEN);
QB:=MIN(CLOSE,OPEN);
跳空:=QB-0.01>=REF(SB,1);
阴顶开盘:=REF(C<o,1) and="" 跳空;="" <br="">{主图}
顶价:=IF(C>=REF(C,1)*1.03 OR C>O*1.03 OR C<=REF(C,1)*0.97 OR  C<o*0.97 ,max(c,o),h);="" <br="">DIZ:=IF(O>REF(C,1) AND L>REF(C,1),REF(MAX(C,O),1),L);
NOTEXT1:IF(CURRBARSCOUNT<=CONST(REF(HHVBARS(VOL,21),1)+1)+1,CONST(REF(顶价,REF(HHVBARS(VOL,21),1)+1)),DRAWNULL),COLORMAGENTA,LINETHICK2;
NOTEXT2:IF(CURRBARSCOUNT<=CONST(REF(HHVBARS(VOL,21),1)+1)+1,CONST(REF(DIZ,REF(HHVBARS(VOL,21),1)+1)),DRAWNULL),COLORYELLOW,LINETHICK2;
DRAWTEXT(ISLASTBAR,NOTEXT1*1,CON2STR(NOTEXT1,2)),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,NOTEXT2*1,CON2STR(NOTEXT2,2)),COLORYELLOW;
NOTEXT5:IF(CURRBARSCOUNT<=CONST(REF(HHVBARS(VOL,100),1)+1)+1,CONST(REF(顶价,REF(HHVBARS(VOL,100),1)+1)),DRAWNULL),COLORYELLOW DOTLINE;
峰高量:=V>REF(V,1) AND V>REFX(V,1) AND V=HHV(V,5)  AND EXIST(HIGH=HHV(HIGH,5),3);
ZTD:= CONST(REF(BARSLAST(峰高量),1)+1)+1;
左峰高量顶:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(峰高量),1)+1)+1,CONST(REF(顶价,REF(BARSLAST(峰高量),1)+1)),DRAWNULL)  COLORYELLOW;
{逃顶线}
逃顶高量:=V>REF(V,1) AND V>REFX(V,1) AND V=HHV(V,5) AND EXIST(HIGH=HHV(HIGH,5),3);
TD:=CONST(BARSLAST(逃顶高量));
逃顶:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(逃顶高量),1)+1)+1,CONST(REF(DIZ,REF(BARSLAST(逃顶高量),1)+1)),DRAWNULL),COLORGREEN;
{涨停板防守线}
板顶:=IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(涨停),1)+1)+1,CONST(REF(H,REF(BARSLAST(涨停),1)+1)),DRAWNULL),COLORRED DOTLINE;
板底:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(涨停),1)+1)+1,CONST(REF(L,REF(BARSLAST(涨停),1)+1)),DRAWNULL),COLORLIGREEN DOTLINE ;
DRAWTEXT(ISLASTBAR,板底*1,CON2STR(板底,2)),COLORLIGREEN;

 
{黄金阳胜}
阴K:=C<ref(c,1) or="" c<o="" (c="">O AND 均价<ref(c,1)); <br="">阴线天数:=BARSLAST(阴K);
阴线实体最高价:=REF(MAX(C,O),阴线天数);
阴线成交量:=REF(V,阴线天数);
阳胜条件:=阴线天数>0 AND C>=阴线实体最高价 AND V>=阴线成交量 AND C>REF(MIN(C,O),阴线天数+1);
阳胜:=IF(阳胜条件>0 AND REF(阳胜条件,1)=0,1,0);
单阳胜:=REF(BARSLASTCOUNT(阴K)>0,1) AND C>REF(MAX(C,O),1);
黄金阳胜:=C>REF(C,1) AND (V>=REF(V*1.9,1) OR V=HHV(V,10));
{黄金基柱}
梯三柱:=UPNDAY(V,3) AND UPNDAY(C,3) AND V>REFX(V,1);
长阳矮柱:=REF(C<o,1) and="" c="">REF(C,1)*1.03  AND V<ref(hhv(v,5),1); <br="">倍阳柱:=V>REF(V,1)*1.91 AND C>REF(C,1);
高阳柱:=(V>REF(V,1) AND V>REFX(V,1)) AND C>REF(C,1); 
黄金基柱:=阳胜 OR 长阳矮柱 OR 单阳胜;
{黄金柱}
HJJ1:=C<min(min(refx(c,3),refx(c,2)),refx(c,1)); <br="">HJJ2:=C<(REFX(C,3)+REFX(C,2)+REFX(C,1))/3;
后三日均价:=(REFX(C,3)+REFX(C,2)+REFX(C,1))/3;
价升幅:=(后三日均价/C-1)*100;
黄金价:=HJJ1 OR HJJ2;
HJL1:=V>(REFX(V,1)+REFX(V,2)+REFX(V,3))/3;
HJL2:=V>MAX(MAX(REFX(V,1),REFX(V,2)),REFX(V,3));
后三日均量:=(REFX(V,3)+REFX(V,2)+REFX(V,1));
黄金量:=HJL1 OR HJL2;
量升幅:=(后三日均价/V-1)*100;
黄金升幅:=价升幅>=量升幅;
黄金柱:=(黄金升幅 OR 黄金量) AND 黄金价 AND 黄金基柱;
ZJL1:=V<ref(v,1) and="" v<ref(v,2);="" <br="">ZJL2:=C>REF(C,1) AND C>REF(C,2) AND C>O AND C>REF(C,1);
ZJL3:=ZJL1 AND ZJL2;
金三:=黄金柱 AND REFX(ZJL3,3);
跳空黄金柱:= (跳空 OR 阴顶开盘) AND 黄金柱; 
DRAWICON(黄金柱 OR 金三 OR 跳空黄金柱,L*0.985,23);

 
{归零五眼}
价涨量缩:=C>REF(C,1) AND V<=REF(V,1);
{阴K:=C<ref(c,1) or="" (c="">O AND (C<ref((c+o)*0.5,1)  or="" 均价<ref(c,1)));}="" <br="">{腾空阳眼}
腾空阳眼:=O>REF(MAX(C,O)+0.01,1) AND C>O AND V<ref(v,1); <br="">STICKLINE(腾空阳眼,C,O,2,0)COLORRED;
DRAWTEXT(腾空阳眼,H+0.03,'腾')COLORRED ;
{精准眼}
精准隐眼:=ABS(C-均价)<=0.01 {AND NOT(C>REF(C,1)*1.0997  AND H=L AND O=C) AND NOT(REF(C,1)>C*1.0997)};
STICKLINE(精准隐眼,C,O,1.5,0)COLORBLUE;
DRAWTEXT(精准隐眼 AND V<ref(v,1),h+0.03,'精')colorwhite ;="" <br="">{黄金阴}
假阴真阳:=CREF(C,1) OR  均价>REF(C,1)); 
STICKLINE(假阴真阳,C,O,1.5,0)COLORRED;
黄金阴:=O>REF(C+0.01,1) AND 阴K AND V<ref(v,1); <br="">STICKLINE(黄金阴,C,O,2,0)COLORYELLOW;
DRAWTEXT(黄金阴 AND V<ref(v,1)*0.66,l*0.997,'阴')coloryellow; <br="">{黄金阳黄金眼}
假阳真阴:=C>O AND (C<ref((c+o)*0.5,1)  or="" 均价<ref(c,1));="" <br="">STICKLINE(假阳真阴,C,O,1.8,0)COLORCYAN;
黄金阳:=O<ref(c,1) and="" 假阳真阴 ="" v<ref(v,1);="" <br="">STICKLINE(黄金阳,C,O,1.8,0)COLORYELLOW;
DRAWTEXT(黄金阳 AND V<ref(v,1)*0.66,l*0.997,'阳')coloryellow; <br="">{乾坤眼}

 
阳盖阴:=REF(BARSLASTCOUNT(阴K)>=2,1) AND C>REF(H,1) AND C>REF(MIN(C,O),2);
乾坤眼:=REF(C<o,2) and="" ref(c<ref(c,1)="" o<ref(o,1),1)="" c="">REF(MIN(C,O),2) AND C>REF(MAX(C,O),1) 
AND V<max(ref(v,2),ref(v,1)) and="" c<ref(h,2);="" <br="">STICKLINE(乾坤眼,C,O,0.8,0)COLORMAGENTA;
DRAWTEXT(乾坤眼,L*0.997,'乾') COLORMAGENTA;
STICKLINE(阳盖阴,C,O,0.8,0)COLORRED;
{启动眼}
获利比例:=WINNER(C);
真阳线:=C>O AND C>REF(C,1) AND 均价>REF((C+O)*0.5,1);
启动阳:= REF(阴K,2) AND REF(阴K,1) AND C>REF(MAX(C,O),2)  AND O>REF(C,1)
 AND V>REF(V,1)*1.5 AND V<ref(v,1)*3.9  and="" 真阳线;="" <br="">启动眼:= REF(阴K,2) AND REF(阴K,1) AND C>REF(MAX(C,O),2)  AND O>REF(C,1)
 AND V>REF(V,1)*1.5 AND V<ref(v,1)*3.9  and="" 真阳线="" 获利比例="">0.7;
DRAWICON(启动眼,H+0.03,1);
STICKLINE(启动眼,C,O,1.5,0)COLORRED;
DRAWTEXT(启动眼,L,'启')COLORRED;
{公式}
MB1:=EMA(WINNER(C)*100,5),COLORYELLOW;
MB2:=EMA(MB1,2),COLORBLUE;
MB3:=EMA(MB2,2),COLORBLUE;
MB4:=EMA(MB3,2),COLORBLUE;
N:=5;
VAR2:=MB1;
VAR3:=DRAWLINE(VAR2>=HHV(VAR2,N)=1,VAR2,VAR2<=LLV(VAR2,N)=1,VAR2,1);
阴半:=(MAX(O,C)-MIN(O,C))*0.5+MIN(O,C);
关注:=VAR2=VAR3 AND VAR2<mb4; <br="">一剑封喉:=REF(VAR2,1)=REF(VAR3,1) AND VAR2>REF(VAR2,1);
DRAWTEXT(关注,L*0.990,'封')COLORYELLOW;
DRAWTEXT(一剑封喉,L*0.990,'喉')COLORRED;
{主力资金信号}
{均价:=AMOUNT/VOL/100;}
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*均价,0),0);
AAA3:=SUM(IF( CLOSE<ref(close,1),vol*均价,0),0); <br="">AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*均价,0),0);
BB1:=0;
B1万元:=DVOL*DCLOSE/100;
B1差:=B1万元-REF(B1万元,1);
B2万元:=DVOL*DCLOSE/100;
净流入万元:=(AAA2-AAA3-0.5*AAA4);
PM:=MA(净流入万元,1);
PMA:=PM/REF(PM,1)>1;
PMB:=REF(PMA,1)<1 AND PMA;
密码:=(EMA(MA(B1万元,2),2))/100000;
二日比:=密码/REF(密码,1);
主力资金进入:=PMB AND 密码>REF(密码,1) AND 二日比>1 AND C>O;
DRAWICON(主力资金进入,L*0.97,9);

 

 

 
{刻度公式}
三一位:=O-(O-C)/3,NODRAW,COLORWHITE;
中线位:=(O+C)/2,NODRAW,COLORWHITE;
三二位:=O-2*(O-C)/3,NODRAW,COLORWHITE;
STICKLINE(C>=REF(C,1)*1.03  OR C<=REF(C,1)*0.97,(O+C)/2,(O+C)/2,2.5,0),COLORYELLOW;
STICKLINE(C>=REF(C,1)*1.06  OR C<=REF(C,1)*0.94,三二位,三二位,2.5,0),COLORYELLOW;
STICKLINE(C>=REF(C,1)*1.06  OR C<=REF(C,1)*0.94,三一位,三一位,2.5,0),COLORYELLOW;

 
{阴线类别}
长阴:=(C<=REF(C,1)*0.97 OR C<=O*0.97) AND H>L ;  
短柱:=V<ref(v,1) or ="" v<ref(hhv(v,5),1);="" <br="">长阴短柱:=长阴 AND 短柱;
STICKLINE(长阴短柱,(MAX(C,O)-MIN(C,O))/3+MIN(C,O),MIN(C,O),2.5,1),COLORGREEN;
平底:=ABS(L-REF(MIN(O,C),1))<=0.03 OR ABS(O-REF(MIN(C,L),1))<=0.03;  
平底不破:=REF(长阴短柱,1) AND 平底  AND C>REF(C,1) ; 
STICKLINE(平底不破,MIN(O,REF(MIN(C,O),1)),MIN(O,REF(MIN(C,O),1)),10,0),COLORCYAN;
上引:=(H-MAX(C,O))>(MIN(C,O)-L) AND (C-O)<(H-L)*0.5  AND C>REF(C,1);
CC:=CONST(IF(上引,H,DRAWNULL));
QD:=BARSLAST(H>CC);
IF(CURRBARSCOUNT<=CONST(QD)+1,CC,DRAWNULL),COLORRED;
DRAWTEXT(CURRBARSCOUNT=CONST(QD)+1,H*1.01,'1'),COLORYELLOW;
DRAWTEXT(ISLASTBAR AND 上引,H*1.01,'2'),COLORYELLOW;
NOTEXT12:DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,CONST(L),CURRBARSCOUNT=1,L,3) DOTLINE COLORWHITE ;