通达信大小单分时主图未加密选股指标公式源码

源码正文：

量:=SUM(V,FROMOPEN){XG51};
现:=100*(C-REF(C,1))/REF(C,1);
大买:=SUM(IF(现>0 AND V>=500,V,0),FROMOPEN){XG51};
大卖:=SUM(IF(现<0 AND V>=500,V,0),FROMOPEN){XG51};
B1:=大买/量*100{XG51};
B2:=大卖/量*100{XG51};
DRAwrECTREL(600,CONst(100-B1)*1000/100,620,1000,RGB(255,0,0))COLOR000000{XG51};
DRAWRECTREL(625,CONST(100-B2)*1000/100,645,1000,RGB(0,255,0))COLOR000000{XG51};
DRAWTEXT_FIX(PERIOD=0,0,8,0,STRCAT(STRCAT('【大买】',CON2STR(B1,2)),'％')),COLOR0000FF{XG51};
DRAWTEXT_FIX(PERIOD=0,0.2,8,0,STRCAT(STRCAT('【大卖】',CON2STR(B2,2)),'％')),COLOR00FF00{XG51};
小买:=SUM(IF(现>0 AND V<500,V,0),FROMOPEN){XG51};
小卖:=SUM(IF(现<0 AND V<500,V,0),FROMOPEN){XG51};
B3:=小买/量*100{XG51};
B4:=小卖/量*100{XG51};
DRAWRECTREL(650,CONST(100-B3)*1000/100,670,1000,90){XG51};
DRAWRECTREL(675,CONST(100-B4)*1000/100,695,1000,RGB(0,255,0)){XG51};
DRAWTEXT_FIX(PERIOD=0,0.6,8,0,STRCAT(STRCAT('【小买】',CON2STR(B3,2)),'％')),COLOR0000FF{XG51};
DRAWTEXT_FIX(PERIOD=0,0.8,8,0,STRCAT(STRCAT('【小卖】',CON2STR(B4,2)),'％')),COLOR00FF00{X*G.5=1*C*N*{};

源码正文：

n:=20{XG51};
CC:=zig(3,N){XG51};
GT1:PEAKBARS(1,N,1),NODRAW{XG51};
DT1:=TROUGHBARS(2,N,1){XG51};
H1:DRAWLINE(CURRBARSCOUNT=CONst(GT1)+1,H,ISLASTBAR,REF(H,CONST(GT1)),0),DOTLINE,LINETHICK1,COLORRED{XG51};
L1:DRAWLINE(CURRBARSCOUNT=CONST(DT1)+1,L,ISLASTBAR,REF(L,CONST(DT1)),0),DOTLINE,LINETHICK1,COLORGREEN{XG51};
HX0:=IF(H/L>1.04 AND V>=HHV(V,BArslAST(CURRBARSCOUNT=CONST(GT1)+1)+1) AND LLV(L,N)=L,L,99){XG51};
HXW:=CONST(LLV(HX0,N))=L AND NOT(ISLASTBAR){XG51};
BW:=CURRBARSCOUNT=CONST(BARSLAST(HXW))+1{XG51};
YZX:REF(H,BARSLAST(BW))DOTLINE,COLORCYAN{XG51};
YZA:REF(L,BARSLAST(BW))DOTLINE,COLORBLUE{XG51};
YZU:REF((H+L)/2,BARSLAST(BW))DOTLINE,COLORWHITE{XG51};
DRAWTEXT(BW,L*0.97,VAR2STR(L,2)){XG51};
DRAWTEXT(ISLASTBAR,H1,'近期高点')COLORRED{XG51};
DRAWTEXT(ISLASTBAR,L1,'近期低点')COLORGREEN{XG51};
DRAWTEXT(ISLASTBAR,YZX,'上线就买')COLORCYAN{XG51};
DRAWTEXT(ISLASTBAR,(YZX+YZA)/2,'中线观望')COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,YZA,'下线就卖')COLORWHITE{XG51};
DRAWICON(crOSS(C>YZX,0.5),H,1){XG51};
DRAWICON(CROSS(C<YZA,0.5),L,2){XG51};
IF(BW,H,DRAWNULL)COLORCYAN,CIRCLEDOT,LINETHICK3{XG51};
IF(BW,(H+L)/2,DRAWNULL)COLORBLUE,CIRCLEDOT,LINETHICK3{XG51};
IF(BW,L,DRAWNULL)COLORWHITE,CIRCLEDOT,LINETHICK3{X*G_5_1*C*N*{};