新量能成交量通達信指標公式源碼

{量能飽和度}
{N=1,100,30;
M=1,100,1.2;
N1:=10,100,34;}
N2:=N1*1.05;
N3:=N1+3;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能飽和度:IF(SAT>1,1,SAT)*100,COLORLIBLUE,NODRAW;
中點:=REFDATE(HHV(V,100)/2,DATE);{量能飽和的變色切換}
STICKLINE(CURRBARSCOUNT=N1,中點*1.9,中點*1.5,100,1),COLOR00DDDD;
STICKLINE(CURRBARSCOUNT=N1,中點*1.88,中點*1.52,量能飽和度,0),COLOR0033FF;
STICKLINE(CURRBARSCOUNT=N1,中點*1.82,中點*1.58,量能飽和度,0),COLOR0077FF;
STICKLINE(CURRBARSCOUNT=N1,中點*1.76,中點*1.64,量能飽和度,0),COLOR0099FF;
STICKLINE(CURRBARSCOUNT=N1,中點*1.7,中點*1.7,量能飽和度,0),COLORFFDD55;
DRAWTEXT(CURRBARSCOUNT=N3,中點*1.82,'量能飽和度'),COLORBLUE;

VOLUME:VOL,VOLSTICK;
{主力量能}
SHORT:=12;
LONG:=26;
MID:=9;
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIF,MID);
MACD:=(DIF-DEA)*2,COLORSTICK;
STICKLINE(DIF>DEA,0,VOL,3,0),COLORRED;
STICKLINE(DIF<DEA,0,VOL,3,0),COLORGREEN;
N:=9;
M1:=3;
M2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=3*K-2*D;
STICKLINE(J>D,VOL/2,VOL,3,0),COLORRED;
STICKLINE(J<D,VOL/2,VOL,3,0),COLORGREEN;
{量能潮}
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
OBV2:=EMA(OBV1,3)-MA(OBV1,9);
OBV3:=EMA(IF(OBV2>0,OBV2,0),3);
MAC3:=MA(C,3);
限制:=IF(OBV3>=VOL,VOL,IF(OBV3<VOL,OBV3,0));
STICKLINE(OBV3>REF(OBV3,1) AND MAC3>REF(MAC3,1),0,限制,2,0),COLORYELLOW;

{量:=V,VOLSTICK;}
PJJ:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);
JJ:=REF(EMA(PJJ,3),1);
QJJ:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN)))); XVL:=(IF((CLOSE > OPEN),(QJJ * (HIGH - LOW)),IF((CLOSE < OPEN),(QJJ * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2))) + IF((CLOSE > OPEN)
,(0 - (QJJ * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (QJJ * (HIGH - LOW))),(0 - (VOL / 2)))));
ZLL:=(VOL / CAPITAL);
HSL1:=IF((ZLL > 10),10,ZLL);
HSL:=((XVL / 20) / 1.15);
進攻流量:=(((HSL * 0.55) + (REF(HSL,1) * 0.33)) + (REF(HSL,2) * 0.22));
GJJ:=EMA(進攻流量,8); LLJX:=EMA(進攻流量,3);
動態天量:=CONST(IF(V=HHV(V,N),V,REF(V,BARSLAST(V=HHV(V,N))))),COLOR00FF00,POINTDOT;
STICKLINE(((HSL * 0.4) >= 0),動態天量*M+((HSL * 0.4) +LLJX)*20,動態天量*M,3,0),COLORYELLOW;
STICKLINE(((HSL * 0.4) < 0),動態天量*M+((HSL * 0.4) +LLJX)*20,動態天量*M,3,0),COLOR00FF00;
資金流入:=IF((HSL*0.4+LLJX)>0,(HSL*0.4+LLJX),DRAWNULL),COLORRED;
資金流出:=IF((HSL*0.4+LLJX)<0,(HSL*0.4+LLJX),DRAWNULL),COLOR00FF00;
資金收支:=(HSL*0.4+LLJX),LINETHICK0;
萬元:=AMOUNT/10000{0000},VOLSTICK,COLORFF00FF;
資金凈收支:IF((HSL*0.4+LLJX)>0,資金流入,資金流出),COLORWHITE,POINTDOT;
收支比例%:IF((HSL*0.4+LLJX)>0,資金流入/萬元*100,資金流出/萬元*100),COLORYELLOW;
連紅天1:=BARSLASTCOUNT(資金凈收支>0),,COLORA20FFD,NODRAW;
連紅天2:=IF(連紅天1=0,REF(連紅天1,1),連紅天1),,COLORA20FFD,NODRAW;
連紅天3:=IF(連紅天2=0,REF(連紅天1,2),連紅天2),,COLORA20FFD,NODRAW;
連紅天4:=IF(連紅天3=0,REF(連紅天1,3),連紅天3),,COLORA20FFD,NODRAW;
近期連紅天:IF(連紅天4=0,REF(連紅天1,4),連紅天4),,COLORYELLOW,NODRAW;
三日資金:SUM(資金收支,3),COLORWHITE,NODRAW;
五日資金:SUM(資金收支,5),COLORFF00FF,NODRAW;
十日資金:SUM(資金收支,10),COLOR0000FF,NODRAW;
資金流量:=LLJX,LINETHICK0,COLOR0000FF;
STICKLINE((資金流量 > 0),動態天量*M+資金流量*20,動態天量*M,3,0),COLOR0000FF;
STICKLINE((資金流量 < 0),動態天量*M+資金流量*20,動態天量*M,3,0),COLOR008000;
{135均線}
MAVOL5:MA(VOLUME,5),LINETHICK1,COLORFFFFFF;
資金異動135:MA(VOLUME,135),LINETHICK2,COLORFF80FF;
主力洗盤35:MA(VOL,35),LINETHICK2,COLORFFFF80;
TT:=240/FROMOPEN;
比:=TT;
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);
AZ2:=EMA(AY2,9);
LT2:=(AY2-AZ2);
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
ZGD:=HHV(H,80)*0.99;
ZGD2:=CONST(ZGD);
ZDD:=LLV(L211,80);
ZDD2:=CONST(ZDD);
YYA4:=MA(CLOSE,20);
YYA5:=(CLOSE > MA(CLOSE,5));
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));
YYA7:=(CLOSE > MA(CLOSE,10));
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
YYA9:=(CLOSE > MA(CLOSE,20));
YYA10:=REF(YYA4,1);
YYA11:=(YYA4 > YYA10);
YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
YYV1:=MA(VOL,5);
YYV2:=MA(VOL,10);
J1:=CONST(IF( YYAVX > 0,200,100));
J2:=CONST(IF( YYAVX > 0,00,100));
J3:=CONST(IF( YYAVX > 0,100,100));
ZGD3:=ZGD2;
ZDD3:=ZDD2;
ZGD4:=ZGD2;{時代圖文證券教學 WWW.GUSHOW.COM 提供}
情況1:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)),NODRAW;
情況2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));
情況4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0));
情況5:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情況6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
情況8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
情況9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情況10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況11:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
情況12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
情況13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情況14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
情況16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
大盤1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
大盤2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
大盤3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
大盤4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
大盤5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));
大盤6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));
大盤7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));
大盤8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));
MFI:=(HIGH-LOW)*1000000/(VOL*比);
綠燈:=MFI>=REF(MFI,1)AND VOL*比>=REF(VOL,1);
MMM1:=CONST(綠燈);
衰退:=MFI<REF(MFI,1)AND VOL*比<REF(VOL,1);
MMM2:=CONST(衰退);
偽裝:=MFI>=REF(MFI,1)AND VOL*比<REF(VOL,1);
MMM3:=CONST(偽裝);
蟄伏:=MFI<REF(MFI,1)AND VOL*比>=REF(VOL,1);
MMM4:=CONST(蟄伏);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
買盤1:=DYNAINFO(23)*比;
賣盤1:=DYNAINFO(22)*比;
買盤2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
賣盤2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
買盤:=IF(ISLASTBAR AND PERIOD=5 AND C<300,買盤1,買盤2);
賣盤:=IF(ISLASTBAR AND PERIOD=5 AND C<300,賣盤1,賣盤2);
{買賣差:=買盤-賣盤;}
量大:=(賣盤+買盤)/REF(VOL,1)>2;
MMM5:=CONST(量大);
量縮:=REF(VOL,1)/(賣盤+買盤)>1.5;
MMM6:=CONST(量縮);
賣量大:=(賣盤-買盤)/買盤>0.4;
MMM7:=CONST(賣量大);
買量大:=(買盤-賣盤)/賣盤>0.4;
MMM8:=CONST(買量大);
TS1:=IF(情況1=1,0.06+0.06,0.06); TS2:=IF(情況2=1,TS1+0.06,TS1);
TS3:=IF(情況3=1,TS2+0.06,TS2); TS4:=IF(情況4=1,TS3+0.06,TS3);
TS5:=IF(情況5=1,TS4+0.06,TS4); TS6:=IF(情況6=1,TS5+0.06,TS5);
TS7:=IF(情況7=1,TS6+0.06,TS6); TS8:=IF(情況8=1,TS7+0.06,TS7);
TS9:=IF(情況9=1,TS8+0.06,TS8); TS10:=IF(情況10=1,TS9+0.06,TS9);
TS11:=IF(情況11=1,TS10+0.06,TS10); TS12:=IF(情況12=1,TS11+0.06,TS11);
TS13:=IF(情況13=1,TS12+0.06,TS12); TS14:=IF(情況14=1,TS13+0.06,TS13);
TS15:=IF(情況15=1,TS14+0.06,TS14); TS16:=IF(情況16=1,TS15+0.06,TS15);
TS17:=IF(大盤1=1,TS16+0.06,TS16); TS18:=IF(大盤2=1,TS17+0.06,TS17);
TS19:=IF(大盤3=1,TS18+0.06,TS18); TS20:=IF(大盤4=1,TS19+0.06,TS19);
TS21:=IF(大盤5=1,TS20+0.06,TS20); TS22:=IF(大盤6=1,TS21+0.06,TS21);
TS23:=IF(大盤7=1,TS22+0.06,TS22); TS24:=IF(大盤8=1,TS23+0.06,TS23);
TS25:=IF(MMM1=1,TS24+0.06,TS24);
TS26:=IF(MMM2=1,TS25+0.06,TS25);
TS27:=IF(MMM3=1,TS26+0.06,TS26);
TS28:=IF(MMM4=1,TS27+0.06,TS27);
TS29:=IF(MMM5=1,TS28+0.03,TS28);
TS30:=IF(MMM6=1,TS29+0.03,TS29);
TS31:=IF(MMM7=1,TS30+0.03,TS30);
TS32:=IF(MMM8=1,TS31+0.03,TS31);
DRAWTEXT_FIX(情況1=1 ,0.10,0,0,'量能理想,明顯走強，中線參與，倉位控制在70%左右。'),COLORFF00FF;
DRAWTEXT_FIX(情況2=1 ,0.10,0,0,'走勢趨強,量能不足，短線進場，倉位控制在50%左右。'),COLORFF00FF;
DRAWTEXT_FIX(情況3=1 ,0.10,0,0,'量價良好,并無明顯走強，短線可進場，倉位50%左右。'),COLORFF00FF;
DRAWTEXT_FIX(情況4=1 ,0.10,0,0,'形態尚可,量能不足，未全走強，短入，倉位30%左右。'),COLORFF00FF;
DRAWTEXT_FIX(情況5=1 ,0.10,0,0,'形態已變壞,走勢尚可，重倉者減大半，清倉者%觀望。'),COLOR00FFFF;
DRAWTEXT_FIX(情況6=1 ,0.10,0,0,'隨大盤下跌，明顯縮量，考慮大盤風險，減持或清倉。'),COLOR00FFFF;
DRAWTEXT_FIX(情況7=1 ,0.10,0,0,'該股放量下跌，走勢明顯偏弱，不搶反彈，離場觀望。'),COLORFFFFFF;
DRAWTEXT_FIX(情況8=1 ,0.10,0,0,'該股縮量下跌，走勢偏弱無力，人氣散失，離場觀望。'),COLORFFFF00;
DRAWTEXT_FIX(情況9=1 ,0.10,0,0,'該股形態良好，強勢明顯，量能充足，可以繼續持有。'),COLOR00FFFF;
DRAWTEXT_FIX(情況10=1,0.10,0,0,'上行趨勢不變，強勢依然，量能開始轉弱，注意風險。'),COLOR00FFFF;
DRAWTEXT_FIX(情況11=1,0.10,0,0,'該股仍然具備上漲潛力，但股性偏弱，可以考慮減倉。'),COLORFFFFFF;
DRAWTEXT_FIX(情況12=1,0.10,0,0,'該股走勢趨弱，量能明顯不足，減大部分籌碼或空倉。'),COLORFFFF00;
DRAWTEXT_FIX(情況13=1,0.10,0,0,'該股形態不佳，注意成交量變化，但目前不適合參與。'),COLORFFFF00;
DRAWTEXT_FIX(情況14=1,0.10,0,0,'該股趨勢不明，股價偏弱，注意量能變化，暫不參與。'),COLORFFFF00;
DRAWTEXT_FIX(情況15=1,0.10,0,0,'有走強跡象，但量能不足，趨勢不明朗，不適合操作。'),COLORFFFF00;
DRAWTEXT_FIX(情況16=1,0.10,0,0,'該股走勢太弱，主動性買盤弱，沒有太大的參與價值。'),COLORFFFFFF;
DRAWTEXT_FIX(大盤1,0.10,0.05,0,'總勢量能理想,70%倉位, 若最佳買點，否則謹慎介入。'),COLOR00FF00;
DRAWTEXT_FIX(大盤2,0.10,0.05,0,'總勢趨強，量不足,若前輪下跌，短進50%，量大加倉。'),COLORFF00FF;
DRAWTEXT_FIX(大盤3,0.10,0.05,0,'總勢形態走壞，重倉者可減去大部分倉位或放空籌碼。'),COLORAAAAAA;
DRAWTEXT_FIX(大盤4,0.10,0.05,0,'總勢縮量調整，注意大盤系統風險，短線可清倉觀望。'),COLORFFFFFF;
DRAWTEXT_FIX(大盤5,0.10,0.05,0,'總勢走勢良好，量能理想，可繼續持有或加倉強勢股。'),COLOR00FFFF;
DRAWTEXT_FIX(大盤6,0.10,0.05,0,'總勢形態良好，但量能稍顯不足，隨時準備減倉調倉。'),COLOR00FF00;
DRAWTEXT_FIX(大盤7,0.10,0.05,0,'總勢趨勢不明，注意成交量變化，目前暫不適宜進場。'),COLORFFFFFF;
DRAWTEXT_FIX(大盤8,0.10,0.05,0,'總勢趨勢向下，量能萎縮，短線可殺跌，不適合進場。'),COLORFFFFFF;
DRAWTEXT_FIX(MMM1,0.10,0.10,0,'［綠燈］實計交易量增加。MFI促進指數增加。'),COLORFFFFFF;
DRAWTEXT_FIX(MMM2,0.10,0.10,0,'［衰退］實計交易量減少。MFI促進指數減少。'),COLORGREEN;
DRAWTEXT_FIX(MMM3,0.10,0.10,0,'［偽裝］實計交易量減少。MFI促進指數增加。'),COLORGREEN;
DRAWTEXT_FIX(MMM4,0.10,0.10,0,'［蟄伏］實計交易量增加。MFI促進指數減少。'),COLORYELLOW;
DRAWTEXT_FIX(MMM5,0.10,0.15,0,'★今天比昨天的成交量放大一倍以上。'),COLORGREEN;
DRAWTEXT_FIX(MMM6,0.10,0.15,0,'★今天比昨天的成交量縮量一半以上。'),COLORYELLOW;
DRAWTEXT_FIX(MMM7,0.10,0.20,0,'☆該股今天賣出量大于買入量40％以上。'),COLORGREEN;
DRAWTEXT_FIX(MMM8,0.10,0.20,0,'☆該股今天買入量大于賣出量40％以上。'),COLORYELLOW;