筹码空间－副图源码 【通达信4.17版本使用】

股票王

{筹码空间}
IF(WINNER(CLOSE),WINNER(CLOSE)*100,20),VOLSTICK;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
K: EMA((CLOSE-VAR1)/(VAR2-VAR1)*100,6),COLORYELLOW,LINETHICK3;
D: EMA(0.667*REF(K,1)+0.333*K,2),COLORFF9900,LINETHICK3;
VAR3:=LLV(LOW,55);
VAR4:=HHV(HIGH,34);
VAR5:=EMA((CLOSE-VAR3)/(VAR4-VAR3)*100,3);
VAR6:=(K+VAR5)/2;
VAR7:=EMA(0.667*REF(VAR5,1)+0.333*K,2);
VAR8:=EMA(VAR6,5);
DRAWICON(LONGCROSS(D,K,0.1),D,35),COLORRED,LINETHICK3;
DRAWICON(LONGCROSS(K,D,0.1),K,34),COLORGREEN,LINETHICK3;
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
净流入:(超B+大B+中B+小B)-(超S+大S+中S+小S),NODRAW;
超大单:(超B)-(超S),NODRAW;
大单:(大B)-(大S),NODRAW;
中单:(中B)-(中S),NODRAW;
小单:(小B)-(小S),NODRAW;
DAZHI:CONST(MAX(ABS(净流入),MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))),NODRAW;
DRAWRECTREL(0,0,182,999.2,IF(120,RGB(10,0,0),0));
DRAWRECTREL(0,CONST(830-(ABS(净流入)*500/DAZHI)),30,830,IF(CONST(净流入)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(38,CONST(830-(ABS(超大单)*500/DAZHI)),68,830,IF(CONST(超大单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(76,CONST(830-(ABS(大单)*500/DAZHI)),106,830,IF(CONST(大单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(114,CONST(830-(ABS(中单)*500/DAZHI)),144,830,IF(CONST(中单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(152,CONST(830-(ABS(小单)*500/DAZHI)),182,830,IF(CONST(小单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.001,1,0,'净流入'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.037,1,0,'超大单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.073,1,0,'大单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.109,1,0,'中单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.145,1,0,'小单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0,0.001,0,'单位（万元）'),COLORYELLOW;
M:=0.58;M1:=0.39;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.001,M-ABS(净流入)*M1/DAZHI,0,CEILING(净流入));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.037,M-ABS(超大单)*M1/DAZHI,0,CEILING(超大单));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.073,M-ABS(大单)*M1/DAZHI,0,CEILING(大单));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.111,M-ABS(中单)*M1/DAZHI,0,CEILING(中单));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.147,M-ABS(小单)*M1/DAZHI,0,CEILING(小单));
TX80:80,POINTDOT, COLORYELLOW,LINETHICK4;
DX20:20,POINTDOT, COLORGREEN,LINETHICK4;
WK10:10,COLORCYAN,;
VAR9:EMA(0.667*REF(VAR8,1)+0.333*VAR8,2)LINETHICK0;

REFLINE: -15, {0}, {20}, {40}, {60};
VAR1K:=MA(WINNER(CLOSE),9)*100;
买！: CROSS(VAR1K,2)*30,COLOR0000FF ,LINETHICK3 ;
VAR2K:=(1-EMA((HHV(HIGH,15)-CLOSE)/(HHV(HIGH,15)-LLV(LOW,15)),15))*100;
VAR3K:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VAR4K:=SMA(VAR3K,9,1);
VAR5K:=SMA(VAR4K,9,1);
VAR6K:=(CLOSE-SMA(CLOSE,13,1))/SMA(CLOSE,13,1)*(-100);
VAR7K:=REF(VAR6K,1)>13 AND REF(VAR6K,1)/VAR6K>1.23 AND CLOSE/REF(CLOSE,1)>1.03;
VAR8K:=MA(CLOSE,27);
VAR9K:=(CLOSE-VAR8K)/VAR8K*100;
VARA:=MA(VAR9K,2);
VARB:=BARSLAST(CROSS(-10,VARA)=1);
VARC:=BARSLAST(CROSS(VARA,10)=1);
VARD:=VARA<-10 AND VARB>3;
VARE:=VARA>10 AND VARC>3;
黄金坑: IF(VARD,VARA,0),LINESTICK , COLORYELLOW;