通达信高量换手副图指标 源码分享 附图
通达信高量换手副图指标 源码分享 附图
历低价:LOWRANGE(L),COLORLICYAN NODRAW;
历高价:TOPRANGE(H),COLORMAGENTA,NODRAW;
历低量:LOWRANGE(V),COLORLICYAN NODRAW;
历高量:TOPRANGE(V),COLORMAGENTA,NODRAW;
NHL:=COUNT(BARSLAST(MA(C,250)>REF(MA(C,250),1))>=220,30)>=1 AND BARSLAST(MA(C,250)<=REF(MA(C,250),1))>=1;
NOTEXTQ:IF(MA(C,250)>=REF(MA(C,250),1),MA(C,250),DRAWNULL)COLORRED LINETHICK2;
NOTEXTR:IF(MA(C,250)<REF(MA(C,250),1),MA(C,250),DRAWNULL)COLORLICYAN LINETHICK2;
NOTEXTD:IF(COUNT(BARSLAST(MA(C,250)>REF(MA(C,250),1))>=220,30)>=1 AND BARSLAST(MA(C,250)<=REF(MA(C,250),1))>=1 AND MA(C,20)>MA(C,250),MA(C,250),DRAWNULL)COLORMAGENTA LINETHICK5;
NO2:=REF(IF(REF(V>=REF(V,1)*1.87 AND C>=(REF(C,1),O) AND TOPRANGE(V)>=20,1) AND L>REF(O,1),REF(O,1),REF(IF(L>REF(H,1),REF(H,1),O),BARSLAST(FILTER(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND (CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))=1,5)))),BARSLAST(FILTER(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND
(CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))=1,5)));
NOD:=REF(IF(REF(L,1)>REF(H,2),REF(H,2),NO2),BARSLAST(FILTER(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND (CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))=1,5)));
DRAWKLINE(H,O,L,C);
STICKLINE(REF(O,1),REF(IF(REF(L,1)>REF(H,2),REF(H,2),NO2),BARSLAST(FILTER(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND (CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))=1,5))),REF(IF(REF(L,1)>REF(H,2),REF(H,2),NO2),BARSLAST(FILTER(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND (CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))=1,5))),2,0),COLOR404080;
STICKLINE(H,REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),1,0),COLORBLUE;
STICKLINE(H,REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),1,0),COLORLIGRAY;
STICKLINE(V>=REF(V,1)*1.87 AND C>=(REF(C,1),O) AND TOPRANGE(V)>=20,O,C,3,0)COLORBLUE;
STICKLINE(V/REF(V,1)>=2.9 AND C>=O AND TOPRANGE(V)>=20,O,C,(-1),0)COLORMAGENTA;
STICKLINE((C-REF(C,1))/REF(C,1)*100<IF(CODELIKE('68'),-9.0,-6.9) AND (C-REF(C,1))/REF(C,1)*100<IF(CODELIKE('30'),-9.0,-6.9),O,C,(-1),0),COLORGREEN;
STICKLINE((C/REF(C,1)-1)*100<IF(CODELIKE('68'),-9.0,-6.9) AND (C-REF(C,1))/REF(C,1)*100<IF(CODELIKE('30'),-9.0,-6.9) AND H<REF(L,1),O,C,(-1),0),COLORBLACK;
STICKLINE((SUM(AMOUNT,1)/SUM(V,1)/100>REF(C,1) AND C<=O) OR (SUM(AMOUNT,1)/SUM(V,1)/100>REF(C,1) AND C>REF(C,1) AND C<O AND C>300) AND NOT((C-REF(C,1))/REF(C,1)*100>=9.71 AND O=C) AND NOT((C-REF(C,1))/REF(C,1)*100<=-9.71 AND O=C) AND NOT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H) OR AMOUNT/V/100<REF(C,1) AND C>O AND C<300 AND SUM(AMOUNT,1)/SUM(V,1)/100<REF(C,1) AND NOT((C-REF(C,1))/REF(C,1)*100>=9.71 AND O=C) AND NOT((C-REF(C,1))/REF(C,1)*100<=-9.71 AND O=C),MIN(O,C),MIN(O,C)+(MAX(O,C)-MIN(O,C))*0.5,1,0)COLORFF80FF;
STICKLINE(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,O,C,(3),0)COLORRED;
STICKLINE((O-C)/O>0.02 AND C<REF(C,1),(C+O)/2,(C+O)/2,2,1)COLORCYAN;
STICKLINE((C-O)/O>0.02 AND C>REF(C,1),(C+O)/2,(C+O)/2,2,1)COLORCYAN;
STICKLINE(TOPRANGE(V)>=88 AND C>O,(MAX(C,O)-MIN(C,O))*0.50+MIN(C,O),C,(-1),0)COLOR4080FF;
STICKLINE((H-REF(C,1))/REF(C,1)*100>IF(CODELIKE('68'),19.71,9.71) AND (H-REF(C,1))/REF(C,1)*100>IF(CODELIKE('30'),19.71,9.71) AND C<H,MAX(C,O),MAX(C,O)*0.995,(2),0)COLORBLACK;
{换手:(100*V/CAPITAL);}
DRAWICON(FILTER(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND (CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))=1,5),H+0.05,9)DRAWABOVE;
DRAWTEXT(REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3)))>0 AND CURRBARSCOUNT=1,REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),' 高量换手阴') DRAWABOVE COLORFF8000;
DRAWTEXT(REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)))>0 AND CURRBARSCOUNT=1,REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND {换手>=15 AND} C>=REF(C,1),1))),' 高量换手阳') DRAWABOVE COLORYELLOW;
DRAWNUMBER(REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3)))>0 AND CURRBARSCOUNT=1,REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))), REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3)))),COLORBLUE;
DRAWNUMBER(REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)))>0 AND CURRBARSCOUNT=1,REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))), REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)))),COLORLIMAGENTA;
{板底:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND (CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))),1)+1)+1,CONST(REF(NOD,REF(BARSLAST(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H AND IF(RANGE(BARSCOUNT(V),20,250), COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,8)=1,COUNT(((C/REF(C,1))-1)*100>IF(CODELIKE('68') OR CODELIKE('30'),19.71,9.71) AND C=H,20)=1 AND (CROSS(MA(C,20),MA(C,250)) AND C/MA(C,250)<1.15 OR CROSS(C,MA(C,250))))),1)+0)),DRAWNULL),COLORMAGENTA,LINETHICK2;DRAWGBK(DATE>1231231,RGB(0,255,0),RGB(255,0,0),0,0,0);}
高阳:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)),1)+1)+1,CONST(REF(REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),REF(BARSLAST(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1)),1)+1)),DRAWNULL),COLORYELLOW,LINETHICK9;
高阴:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)+1,CONST(REF(REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)),DRAWNULL),COLORFF8000 ,LINETHICK9;
DRAWTEXT(高阳,(LOW * 0.989),'←一高阳'),COLORGREEN;
