该指标源码主要用于股票技术分析，通过计算价格波动和成交量比来判断主力资金动向。核心功能包括：计算主力进场和拉升信号，通过颜色和柱状图显示资金流入流出情况。
识别地量（成交量异常小），标记可能的底部反转点。
计算成交量比，反映买卖力量对比。
绘制主力持仓线，显示资金持仓比例。
通过交叉点和图标标记主力掘金机会。
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
VAR3:=EMA(VAR2,10);
VAR4:=LLV(LOW,33);
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);
主力进场:IF(VAR5>REF(VAR5,1),VAR5,0),COLOR0000FF,NODRAW;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3,0 ),COLOR000055;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.6,0 ),COLOR000077;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.1,0 ),COLOR000099;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,1.5,0 ),COLOR0000BB;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.9,0 ),COLOR0000DD;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.3,0 ),COLOR0000FF;
拉升:IF(VAR5<REF(VAR5,1),VAR5,0),COLORGREEN,NODRAW;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLOR005500;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.6,0),COLOR007700;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.1,0),COLOR009900;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,1.5,0),COLOR00BB00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.9,0),COLOR00DD00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.3,0),COLOR00FF00;
地量:DRAWTEXT(CROSS(0.9,1/VOL*1000>0.01 AND "KDJ.J"<0),L*1,''),COLOR00FFFF;
STICKLINE(地量>0,0,30,2,0),COLOR008888;
STICKLINE(地量>0,0,30,1.5,0),COLOR00AAAA;
STICKLINE(地量>0,0,30,0.8,0),COLOR00DDDD;
STICKLINE(地量>0,0,30,0.3,0),COLOR00FFFF;
AA:=VOL/((H-L)*2-ABS(C-O));
VAR6:=IF(C>O,AA*(H-L),IF(C<O,AA*((H-O)+(C-L)),VOL /2));
成交量比%:VAR6/VOL*100,NODRAW;
主力持仓:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),NODRAW;
VAR7:=C>MA(C,60);{公式之家 BBS.GSZB.TOP}
VAR8:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
VAR9:=C-REF(C,1);
DRAWICON(CROSS(82,VAR8),10,15);
主力线:100*EMA(EMA(VAR9,9),9)/EMA(EMA(ABS(VAR9),9),9),COLOR00FFFF,LINETHICK2;
VAR10:=MA(主力线,5),COLOR0000FF,LINETHICK2;
IF(主力线<REF(主力线,1),主力线,DRAWNULL),COLOR00FF00,LINETHICK2;
IF(主力线>REF(主力线,1),主力线,DRAWNULL),COLOR0000FF,LINETHICK2;
0 COLORCYAN DOTLINE;
主力掘金:BARSLASTCOUNT(主力线>0 AND VAR10>0)=1 AND VAR7,NODRAW;
STICKLINE(主力掘金,0,主力线,1,0 ),COLORFF00FF;
DRAWICON(主力掘金,主力线,5);
DRAWTEXT(主力掘金,主力线*1,' ★主力掘金'),COLORFF00FF;
DRAWTEXT(CROSS(0.9,1/VOL*1000>0.01 AND "KDJ.J"<0),L*1,' 地量'),COLORWHITE;
DRAWICON(CROSS(VAR10,主力线),VAR10,2); |
|
