|
VOLUME:VOL,VOLSTICK;
MAVOL1:=MA(VOLUME,5);
MAVOL2:=MA(VOLUME,10);
VVOL:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5 ,VVOL,V,2,-1);
主力啟動線:MA(VOLUME,5),COLORRED,LINETHICK1;
主力洗盤線:MA(VOLUME,35),COLORYELLOW,LINETHICK1;
資金異動線:MA(VOLUME,135),COLORBLUE,LINETHICK1;
{出擊:}STICKLINE(CROSS(主力啟動線,資金異動線) OR ((主力洗盤線 > 資金異動線) AND CROSS(主力啟動線,主力洗盤線)),V*0.75,VOL,2.5,0),COLORYELLOW;
DRAWICON(CROSS(主力啟動線,資金異動線) OR ((主力洗盤線 > 資金異動線) AND CROSS(主力啟動線,主力洗盤線)),主力洗盤線*2.5,15);
{啟動:}STICKLINE(主力啟動線>REF(主力啟動線,1) AND (CROSS(VOL,主力啟動線) AND (REF(VOL,1)<REF(資金異動線,1) AND REF(VOL,2)<REF(資金異動線,2))),V*0.75,V*0.5,2.5,0),COLORBLUE;
DRAWICON(主力啟動線>REF(主力啟動線,1) AND (CROSS(VOL,主力啟動線) AND (REF(VOL,1)<REF(資金異動線,1) AND REF(VOL,2)<REF(資金異動線,2))),資金異動線*1.5,19);
V1:=CLOSE/LLV(C,4){REF(CLOSE,2)}>=1.095;
V2:=BACKSET(V1,2);
V3:=REF(CLOSE,3)*1.1;
V4:=CROSS(C,V3);
{OK:}STICKLINE((V2 AND COUNT(V2,2)=1),0.2*V,V*0.5,2.5,0),COLORRED;
OKOK:=(V2 AND COUNT(V2,2)=1);
COND:=(CROSS(主力啟動線,資金異動線) OR ((主力洗盤線 > 資金異動線) AND CROSS(主力啟動線,主力洗盤線)))
OR (主力啟動線>REF(主力啟動線,1) AND (CROSS(VOL,主力啟動線) AND (REF(VOL,1)<REF(資金異動線,1) OR REF(VOL,2)<REF(資金異動線,2))))
OR (V2 AND COUNT(V2,2)=1),LINETHICK02,COLORRED;
牛股:=(CROSS(主力啟動線,資金異動線) {OR (V2 AND COUNT(V2,2)=1)} OR ((主力洗盤線 > 資金異動線) AND CROSS(主力啟動線,主力洗盤線))) AND (主力啟動線>REF(主力啟動線,1) AND (CROSS(VOL,主力啟動線) AND (REF(VOL,1)<REF(資金異動線,1) OR REF(VOL,2)<REF(資金異動線,2)))) ;
{主力控盤}
VAR11:=EMA(EMA(CLOSE,9),9);
控盤:=(VAR11-REF(VAR11,1))/REF(VAR11,1)*1000;
A10:=CROSS(控盤,0);
{開始控盤:=IF(A10,5,0),LINETHICK2,COLORYELLOW;}
STICKLINE(控盤>REF(控盤,1) AND 控盤>0,0,VOL*0.2,2.5,0),COLORLIRED;
有莊控盤:=IF(控盤>REF(控盤,1) AND 控盤>0,控盤,0),COLORRED,NODRAW;
有控盤:=有莊控盤;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,0,VOL*0.2,2.5,0),COLORFF00FF;
高度控盤:=IF(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0);
高控盤:=高度控盤;
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,V*0.87,VOL*0.97,2.5,0),COLOR00FF00;
選股公式:=EXIST(牛股,3) AND ( 有控盤 OR 高控盤 );
換手:=VOL/CAPITAL*100;
十日換手:=SUM(換手,10);
二十日換手:SUM(換手,20),NODRAW;
欣喜:=MEMA(XMA((((C-O)*2)+O),30),13);
若狂:=MEMA(MEMA((((C-O)*2)+O),5),13);
DRAWICON(LONGCROSS(欣喜,若狂,1),{V*0.6}主力啟動線,7),COLORRED;
DRAWICON(LONGCROSS(若狂,欣喜,1),{V*0.6}主力啟動線,8),COLORGREEN;
DRAWTEXT(LONGCROSS(欣喜,若狂,1),{V*0.6}主力啟動線,'買入'),COLORRED;
機構資金趨勢:=MA(MA(C,2),1),COLORWHITE,LINETHICK2;
機構持倉:=STICKLINE(MA(C,20)>=REF(MA(C,20),1),REF(MA(C,20),4),MA(C,20),5,0),COLORLIRED;
丹:=CROSS(欣喜,機構資金趨勢) AND ( COUNT(CROSS(若狂,欣喜),15)>=1 OR (MA(C,20)<=REF(MA(C,20),1)));
DRAWICON(丹,資金異動線*2.3,6);
{斜率1:=(機構資金趨勢-REF(機構資金趨勢,1))/REF(機構資金趨勢,1);
斜率2:=(REF(機構資金趨勢,1)-REF(機構資金趨勢,2))/REF(機構資金趨勢,2);
斜率增大:=斜率1<=斜率2;}
金丹:=((LONGCROSS(機構資金趨勢,欣喜,1) OR LONGCROSS(機構資金趨勢,若狂,1) ) AND 機構資金趨勢>REF(機構資金趨勢,1) ) AND (欣喜 >若狂) AND (欣喜>REF(欣喜,1)) {AND 若狂>=REF(若狂,1)} AND (EMA(C,20)>=REF(EMA(C,20),1)) AND 機構資金趨勢>若狂 ;
DRAWICON(金丹,主力啟動線*3.5,17);
金丹2:=((LONGCROSS(機構資金趨勢,欣喜,1) {OR CROSS(機構資金趨勢,若狂)} OR LONGCROSS(機構資金趨勢,若狂,1) OR (十日換手>40 AND 二十日換手>80 )) AND 機構資金趨勢>REF(機構資金趨勢,1) ) AND ((COUNT(CROSS(欣喜,若狂),15)>=1 ) AND 欣喜>REF(欣喜,1)) {AND 若狂>=REF(若狂,1)} AND (EMA(C,20)>=REF(EMA(C,20),1)) AND 機構資金趨勢>若狂 ;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),資金異動線*5,'短賣'),COLORLIGREEN;
DRAWICON(金丹2,資金異動線,23);
滿倉:=(ZIG(3,35)>REF(ZIG(3,35),1) AND REF(ZIG(3,35),1)<REF(ZIG(3,35),2));{DRAWICON((ZIG(3,35)>REF(ZIG(3,35),1) AND REF(ZIG(3,35),1)<REF(ZIG(3,35),2)),資金異動線*4,25);}
DRAWTEXT(滿倉,資金異動線*4,'滿倉'),COLORRED;
空倉:=(ZIG(3,35)<REF(ZIG(3,35),1) AND REF(ZIG(3,35),1)>REF(ZIG(3,35),2));{DRAWICON((ZIG(3,35)<REF(ZIG(3,35),1) AND REF(ZIG(3,35),1)>REF(ZIG(3,35),2)),資金異動線*3.8,27);}
DRAWTEXT(空倉,資金異動線*3.8,' 空倉'),COLORGREEN;
JL01:=MA(C,3);
LJL07:=(3*C+L+O+H)/6;
牛線:=(20*LJL07+19*REF(LJL07,1)+18*REF(LJL07,2)+17*REF(LJL07,3)+16*REF(LJL07,4)+15*REF(LJL07,5)+14*REF(LJL07,6)+13*REF(LJL07,7)+12*REF(LJL07,8)+11*REF(LJL07,9)+10*REF(LJL07,10)+9*REF(LJL07,11)+8*REF(LJL07,12)+7*REF(LJL07,13)+6*REF(LJL07,14)+5*REF(LJL07,15)+4*REF(LJL07,16)+3*REF(LJL07,17)+2*REF(LJL07,18)+REF(LJL07,20))/210;
馬線:=MA(牛線,5);
VAR1L:=(C>REF(C,1) AND C>REF(C,2));
VAR2L:=(REF(VAR1L,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR3L:=(REF(VAR2L,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR4L:=(REF(VAR3L,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR5L:=(REF(VAR4L,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR6L:=(REF(VAR5L,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR7L:=(REF(VAR6L,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR8L:=(REF(VAR7L,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR9L:=(REF(VAR8L,1) AND C>=REF(C,1) AND C<=REF(C,2));
VARAL:=(REF(VAR9L,1) AND C<=REF(C,1) AND C>=REF(C,2));
VARBL:=(REF(VARAL,1) AND C>=REF(C,1) AND C<=REF(C,2));
VARCL:=(REF(VARBL,1) AND C<=REF(C,1) AND C>=REF(C,2));
機構持倉區域:=MA(C,20)>=REF(MA(C,20),1),NODRAW,COLORLIRED;
持股:=IF(VAR1L OR VAR2L OR VAR3L OR VAR4L OR VAR5L OR VAR6L OR VAR7L OR VAR8L OR VAR9L OR VARAL OR VARBL OR VARCL,牛線,DRAWNULL),COLORMAGENTA,LINETHICK2;
VARDL:=(C<REF(C,1) AND C<REF(C,2));
VAREL:=(REF(VARDL,1) AND C>=REF(C,1) AND C<=REF(C,2));
VARFL:=(REF(VAREL,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR1L0:=(REF(VARFL,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR1L1:=(REF(VAR1L0,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR1L2:=(REF(VAR1L1,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR1L3:=(REF(VAR1L2,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR1L4:=(REF(VAR1L3,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR1L5:=(REF(VAR1L4,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR1L6:=(REF(VAR1L5,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR1L7:=(REF(VAR1L6,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR1L8:=(REF(VAR1L7,1) AND C>=REF(C,1) AND C<=REF(C,2));
持幣:=IF(VARDL OR VAREL OR VARFL OR VAR1L0 OR VAR1L1 OR VAR1L2 OR VAR1L3 OR VAR1L4 OR VAR1L5 OR VAR1L6 OR VAR1L7 OR VAR1L8,牛線,DRAWNULL),COLORGREEN,LINETHICK2;
DRAWTEXT(OKOK AND MA(C,20)>=REF(MA(C,20),1) AND 持股,資金異動線*5,'OK');
DRAWTEXT(EXIST(牛股,1) AND ( 有控盤 OR 高控盤 ) AND MA(C,20)>=REF(MA(C,20),1) AND 持股,主力啟動線*5.5,'?？?),COLORRED;
|
