量價量指標

鬼舞十七 2015-02-04

展開全文

{資金注入}
REFLINE:0;
K1:=IF(CLOSE>=REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW+CLOSE-REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW);
K2:=IF(CLOSE<=REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPEN-LOW+HIGH-CLOSE);
DT:=VOL*K1/(K1+K2);
KT:=VOL-DT;
買量:=SUM(DT,1);
賣量:=SUM(KT,1);
DDX:=EMA(買量-賣量,5)*VOL/CAPITAL;
DDX2:=EMA(賣量-買量,5)*VOL/CAPITAL;
{質變成交量}
萬手:=VOL/10000,LINETHICK0,NODRAW;
AA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);
預測成交量:=AA/10000;
預測換手率:=AA/FINANCE(7)*10000;
BB:=VOL/((H-L)*2-ABS(C-O));
主動買:=IF(C>O,BB*(H-L),IF(C<O,BB*((H-O)+(C-L)),V/2));
主買:=主動買/10000,COLORRED,NODRAW;
主動賣:=IF(C>O,0-BB*((H-C)+(O-L)),IF(C<O,0-BB*(H-L),0-VOL/2));
主賣:=-主動賣/10000,COLORGREEN,NODRAW;
差額:(主動買+主動賣)/10000,NODRAW;
STICKLINE(C> REF(C,1),0,V,2,0),COLORRED;
STICKLINE(C< REF(C,1),0,V,2,0),COLORCYAN;
STICKLINE(C= REF(C,1),0,V,2,0),COLORWHITE;
{STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,0,2,0),COLORYELLOW;}

STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,0,2,0),COLOR8811AA;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,0,1.3.5,0),COLOR8811BB;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,0,0.6,0),COLOR8811CC;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,0,0.2,0),COLOR8811DD;

{如果您還想用以前的假陰陽線，就把上面三行代碼用大括號"()"括起來！}
{并把下面四行代碼的大括號"()"去掉！}
STICKLINE(C>-1,0,VOL,3,1),COLORRED;
STICKLINE(C<O ,0,VOL,3,1),COLORFFFF00;
STICKLINE(C=O AND C<REF(C,1),0,VOL,2,1),COLORFFFF00;
STICKLINE(C=O AND C>REF(C,1),0,VOL,2,1),COLORRED;

STICKLINE(DDX>0,0,DDX*20,2.6,0),COLORYELLOW;{資金注入顯示}
{STICKLINE(DDX<0,ABS(DDX),ABS(DDX)*50,2.6,0),COLORGREEN;{資金注入顯示}

{STICKLINE(主動買>0,0,主動買,1.5,0),COLORBROWN;}
STICKLINE(主動買>0,0,主動買,2,0),COLOR000088;
STICKLINE(主動買>0,0,主動買,1.3.5,0),COLOR0000AA;
STICKLINE(主動買>0,0,主動買,0.6,0),COLOR0000CC;
STICKLINE(主動買>0,0,主動買,0.2,0),COLOR0000EE;
{STICKLINE(主動賣<0,VOL,主動買,1.5,0),COLOR808000;}
STICKLINE(主動賣<0,VOL,主動買,2,0),COLOR008800;
STICKLINE(主動賣<0,VOL,主動買,1.3.5,0),COLOR00AA00;
STICKLINE(主動賣<0,VOL,主動買,0.6,0),COLOR00CC00;
STICKLINE(主動賣<0,VOL,主動買,0.2,0),COLOR00EE00;

{價量托提示}
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA40:=MA(CLOSE,40);
MA60:=MA(C,60);
MA120:=MA(C,120);
MA250:=MA(C,250),COLORYELLOW;
月價托:=MA5>MA20 AND MA5>MA10 AND CROSS(MA10,MA20),COLORYELLOW ;
季價托:=MA20>MA60 AND MA20>MA40 AND CROSS(MA40,MA60),COLORF00FF0 ;
短、長價托:=MA5>MA60 AND MA5>MA10 AND CROSS(MA10,MA60),COLORRED;
{DRAWTEXT(月價托,V,'月價托'),COLORYELLOW;}
{STICKLINE(月價托,L,H,0.05,1), COLORYELLOW;}
{STICKLINE(月價托,O,C,2,1),LINETHICK3, COLORYELLOW;}
{DRAWTEXT(季價托,V,'季價托'),COLORF00FF0;}
{STICKLINE(季價托,L,H,0.05,1), COLORF00FF0;}
{STICKLINE(季價托,O,C,2,1),LINETHICK3, COLORF00FF0;}
{DRAWTEXT(短、長價托,V,'短、長價托'),COLOR36C0C1;}
{STICKLINE(短、長價托,L,H,0.05,1), COLOR36C0C1;}
{STICKLINE(短、長價托,O,C,2,0),LINETHICK3, COLOR36C0C1;}

{量托}
VOL1:=MA(VOL,5),COLORWHITE;
VOL2:=MA(VOL,10),COLORYELLOW;
VOL3:=MA(VOL,20),COLORFF00FF ;
VOL4:=MA(VOL,135),COLORRED ;
量托:=VOL1>=VOL3 AND CROSS(VOL2,VOL3) AND REF(VOL2,1)<REF(VOL3,1);
{DRAWTEXT(量托,15000,'▲'),COLORWHITE;}
DRAWTEXT(量托,V/5,'量托'),COLORYELLOW,;
{STICKLINE(量托,L,H,0.05,1), COLORWHITE;
STICKLINE(量托,O,C,2,1),LINETHICK3, COLORWHITE;}
AAA:=BARSLAST(MA60>MA40 AND (MA40=MA20 OR MA40>MA20));
BBB:=REF(COUNT(C<MA60,AAA)=AAA,1);
CCC:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3;
芙蓉出水:=BBB AND CCC,COLOR00FF00;
{DRAWTEXT(芙蓉出水,V,'★'),COLOR00FF00;}
{DRAWTEXT(芙蓉出水,V,'芙蓉出水'),COLOR00FF00;}
{STICKLINE(芙蓉出水,H,L,0.05,0),COLOR00FF00;}
{STICKLINE(芙蓉出水,O,C,2,0),COLOR00FF00,LINETHICK2;};

{金蜘蛛提示}
JMA2:=EMA(C,2);
JMA5:=EMA(C,5);
JMA13:=EMA(C,13);
JMA34:=EMA(C,34);
JMA55:=EMA(C,55);
YCX:=JMA5>=REF(JMA5,1);
H1:=MAX(MAX(JMA5,JMA13),JMA34);
L1:=MIN(MIN(JMA5,JMA13),JMA34);
一陽穿三線:= H1<C AND O<L1 AND YCX AND JMA2>REF(JMA2,1);
{DRAWTEXT(一陽穿三線,L-0.1 ,'金蜘蛛');}

{精準T+0 60 OR 30分線}
{N 2 90 14 ; M 2 60 6}
N:=14;
M:=6;
TRT:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:=DMP*100/TRT;
MDI:=DMM*100/TRT;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
抄底:=IF(PDI<7 AND PDI>=3,-5,0);
{STICKLINE(抄底,L,H,0.5,1), COLORGREEN;}

{黑馬初現(xiàn)}
個股:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3),COLOR1010FF;
大盤:=EMA(100*(INDEXC-LLV(INDEXL,34))/(HHV(INDEXH,34)-LLV(INDEXL,34)),3),COLORE67010,LINETHICK2;
{STICKLINE(個股>=大盤,個股,大盤,3,0),COLORRED;
STICKLINE(個股<大盤,個股,大盤,3,0),COLORBLUE;
STICKLINE(個股>=大盤,0,大盤,3,0),COLORYELLOW;
STICKLINE(個股<大盤,0,個股,3,0),COLORYELLOW;}
黑馬初現(xiàn):=IF(CROSS(個股,9),50,0),STICK,LINETHICK3,COLOR00FF00;
{DRAWTEXT(CROSS(個股,9),L-0.08,'黑馬'),COLOR00FF00;}
{DRAWTEXT(CROSS(個股,9),60,'1'),COLOR00FF00;}
VAR1:=EMA(CLOSE,3);
VAR2:=EMA(CLOSE,21);
VAR3:=BARSLAST(CROSS(VAR2,VAR1))>15;
VAR4:=VOL>MA(VOL,5)*2 AND VOL<MA(VOL,5)*5;
黑馬:=CROSS(VAR1,VAR2) AND CLOSE>OPEN AND VAR4 AND VAR3;
{黑馬:IF(VAR5,60,0),STICK,LINETHICK3,COLORF00FF0;};
{DRAWTEXT(黑馬,L-0.16,'黑馬'),COLORMAGENTA;}

{RSI出擊}
R1:=60;
R2:=200;
M3:=2;
AA1:="RSI.RSI1"(6,28,48),LINETHICK2,COLOR6295D6;
BB1:=REF("RSI.RSI1"(6,28,48),3),LINETHICK2,COLORFF9800;
上漲幅度RSI:=IF((AA1-BB1)/BB1>23/10,45,0),,LINETHICK2,COLORRED ;
{DRAWICON(MA((AA1-BB1)/BB1> R1 /100,4) AND MA(EMA(C, 30 ) > EMA(C, 40 ),3) AND MA(機構建倉,M3*9) ,L-0.5,7);}
{DRAWICON(MA((AA1-BB1)/BB1> R1 /1000,4),L-0.005,7);
DRAWICON(MA((AA1-BB1)/BB1< R2 /1000,4),L-0.005,8);}
RS1:=MA((AA1-BB1)/BB1> (R1 /1000,4),M3) ;
RS2:=MA((AA1-BB1)/BB1< (R1 /1000,4),M3) ;

{資金異動質}
VOLUME:=VOL,VOLSTICK;
主力啟動線:=MA(VOLUME,5);
主力洗盤線:=MA(VOLUME,35);
資金異動線:=MA(VOLUME,135);

{質變成交量}
VOLUME135:MA(VOLUME,135),COLORGREEN,LINETHICK2;
VOLUME35:MA(VOLUME,35),COLORYELLOW,LINETHICK2;
VOLUME5:MA(VOLUME,5),COLORRED,LINETHICK2;
DG2:=(CROSS(VOLUME,主力啟動線) AND(主力啟動線<資金異動線)AND C>OPEN);
DRAWTEXT(DG2,V/2,'資金異動'),COLORWHITE;
DRAWICON(DG2,V/2,1);

{老鴨頭}
{MA5:= MA(CLOSE,5);
MA10:= MA(CLOSE,10);
MA60:=MA(CLOSE,60);}
PDAY1 := BARSLAST(CROSS(MA5,MA60));
{5日均線上穿60日均線}
PDAY2 := BARSLAST(CROSS(MA10,MA60));
{10日均線上穿60日均線，至此形成鴨頸部}
PDAY3 := BARSLAST(HIGH=HHV(HIGH,PDAY2));
{形成頭部，要下跌}
PDAY4 := BARSLAST(CROSS(MA10,MA5) OR (REF(MA10,1)<REF(MA5,1) AND MA5=MA10));
{下跌后，5日均線和10日均線死叉}
PDAY5 := BARSLAST(CROSS(MA5,MA10) OR (REF(MA5,1)=REF(MA10,1) AND MA5>MA10));
{回落不久，5日均線和10日均線形成金叉，形成部}
A1:= PDAY1>PDAY2 AND PDAY2>PDAY3 AND PDAY3>PDAY4 AND PDAY4>PDAY5 AND PDAY5<5;
A2:= COUNT(CROSS(MA10,MA5),PDAY2)=1;
A3:=MA5>MA60 AND MA10>MA60;
老鴨頭:=(A1 AND A2 AND A3) AND FILTER(A1 AND A2 AND A3 ,5);
{DRAWTEXT(老鴨頭,L,'老鴨頭'),COLORYELLOW;
STICKLINE(老鴨頭,H,L,0.05,0),COLORYELLOW;
STICKLINE(老鴨頭,O,C,2,1),COLORYELLOW,LINETHICK3;}

{STICKLINE(DDX>0,0,DDX/5,0.01,0),COLORMAGENTA;}
{STICKLINE(DDX>0,0,DDX,3,0),COLOR000088;
STICKLINE(DDX>0,0,DDX,2.5,0),COLOR0000AA;
STICKLINE(DDX>0,0,DDX,1.5,0),COLOR0000CC;
STICKLINE(DDX>0,0,DDX,1,0),COLOR0000EE;
STICKLINE(DDX<0,0,DDX,3,0),COLOR008800;
STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00;
STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00;
STICKLINE(DDX<0,0,DDX,1,0),COLOR00EE00;
DDX1:SMA(DDX,3,1),COLORFFFFFF;}
{注資選股: (DDX >0 AND REF(DDX<=0 ,1) ) >0.5;}

{ KDJ }
PK1:=5;
PK2:=4;
VARK1:=LLV(LOW,PK1);
VARK2:=HHV(HIGH,PK1);
K:=EMA((CLOSE-VARK1)/(VARK2-VARK1)*100,PK2),COLORFF9900 , ;
D:=EMA(0.667*REF(K,1)+0.333*K,2) ;

{變色紅綠燈線}
{紅色買進，綠色賣出，粉紅色變盤預警信號}
BM1:=5;
BM2:=5;
BM3:=5;
BM4:=5;
BSM051:=MA(CLOSE,5),COLORMAGENTA,LINETHICK3;
水平面1:=MA(CLOSE,89),COLORFFA2FF;
BBI1:=(MA(CLOSE,BM1)+MA(CLOSE,BM2)+MA(CLOSE,BM3)+MA(CLOSE,BM4))/4;
紅色價:=IF(BBI>REF(BBI,1),BBI,DRAWNULL),COLORRED,LINETHICK3;
綠色價:=IF(BBI<REF(BBI,1),BBI,DRAWNULL),COLORGREEN,LINETHICK3;

{變色紅綠燈線}
{紅色買進，綠色賣出，粉紅色變盤預警信號}
BSM1:=5;
BSM2:=5;
BSM3:=5;
BSM4:=5;
BSM5:=5;
BSM05:MA(V,5),COLORMAGENTA,LINETHICK2;
水平面:=MA(V,89),COLORFFA2FF;
BBI:=(MA(V,BSM1)+MA(V,BSM2)+MA(V,BSM3)+MA(V,BSM4)+MA(V,BSM5))/5;
IF(BBI>REF(BBI,1),BBI,DRAWNULL),COLORRED,LINETHICK2;
IF(BBI<REF(BBI,1),BBI,DRAWNULL),COLORGREEN,LINETHICK2;
紅色量:=IF(BBI>REF(BBI,1),BBI,DRAWNULL),COLORRED,LINETHICK2;
綠色量:=IF(BBI<REF(BBI,1),BBI,DRAWNULL),COLORGREEN,LINETHICK2;

DRAWTEXT( CROSS(MA(V,3),MA(V,5)) AND 紅色量 AND 綠色價 ,V/4,'打壓'),COLORGREEN;
DRAWTEXT(V>主力洗盤線 AND 主力啟動線> 資金異動線 AND 主力洗盤線< 資金異動線 AND C<O AND   紅色量 AND 綠色價 ,V/4,'做空'),COLORGREEN;
{DRAWTEXT(V> 資金異動線 AND   紅色量 AND 綠色價 ,V/3,'吸籌'),COLORYELLOW;
DRAWTEXT(主力啟動線 > 主力洗盤線 AND   紅色價 AND 綠色量 ,V/4,'出貨'),COLORWHITE;}
DRAWTEXT(主力洗盤線 < 資金異動線 AND DG2 AND C>O AND CROSS(MA(C,2),MA(C,5)) AND V< 資金異動線 AND   紅色價 AND 綠色量 ,V/4,'股價啟動'),COLORWHITE;
股價啟動:= 主力啟動線 < 資金異動線 AND DG2 AND C>O AND CROSS(MA(C,2),MA(C,5)) AND V< 資金異動線 AND   紅色價 AND 綠色量 ;
打壓:=V>資金異動線 AND 主力洗盤線 > 資金異動線 AND 主力啟動線< 資金異動線   AND 紅色量 AND 綠色價;
IF(打壓,DRAWNULL,BBI),COLORWHITE,LINETHICK2;{打壓洗盤為白色線}
{IF(股價啟動,DRAWNULL,BBI),COLORYELLOW,LINETHICK2;{股價啟動為黃色線}