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;
另:
{地量通達(dá)信源碼}
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; |