芝麻量

M1:=5;
M2:=10;
M3:=20;
M4:=60;
VL:VOL,VOLSTICK;
VL5:=MA(VOL,M1);
VL10:=MA(VOL,M2);
VL20:=MA(VOL,M3);
VL60:MA(VOL,M4);
V1:=MIN(REF(VOL,1),REF(VOL,2));
V2:=MIN(REF(VOL,3),REF(VOL,4));
V3:=MIN(REF(VOL,5),REF(VOL,6));
V4:=MIN(REF(VOL,7),REF(VOL,8));
V5:=MIN(REF(VOL,9),REF(VOL,10));
V6:=MIN(REF(VOL,11),REF(VOL,12));
V7:=MIN(REF(VOL,13),REF(VOL,14));
V8:=MIN(REF(VOL,15),REF(VOL,16));
W1:=MIN(MIN(V1,V2),MIN(V3,V4));
W2:=MIN(MIN(V5,V6),MIN(V7,V8));
ZM1:=MIN(W1,W2);
芝麻量:ZM1,COLORGREEN,LINETHICK1;

下載地址：芝麻量 http://www./soft/sort013/sort03/down-18932.html



另：

{地量通達信源碼}

M1:=5;
M2:=35;
M3:=135;
VOLUME:VOL,COLOR009000,LINETHICK4;
V1:MA(VOLUME,M1),COLORWHITE;
V2:MA(VOLUME,M2),COLORYELLOW;
V3:MA(VOLUME,M3),COLORRED;
地量:=VOL<LLV(VOL,14)*1.001;
STICKLINE(地量>0,0,VOL,7,0),COLORYELLOW;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主動買盤:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主動賣盤:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
買賣盤比:-(主動買盤/主動賣盤),COLORYELLOW;
STICKLINE(主動買盤>0,0,主動買盤,1,0),COLORRED;
{STICKLINE(主動賣盤<0,VOL,主動買盤,1,0),COLOR00FF00;}
換手:=VOL/CAPITAL*100;
STICKLINE(換手>0,0,主動買盤,6,0),COLOR9900AA;
STICKLINE(換手>0,VOL,主動買盤,6,1);
STICKLINE(地量>0,0,VOL,7,0),COLORYELLOW;