VAR1:=EMA(EMA(CLOSE,13),13);
控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盤<0,控盤,0,1,1),COLOR00FF00;
STICKLINE(控盤>REF(控盤,1) AND 控盤<0,控盤,0,1,1),COLORFF00FF;
無莊控盤:=控盤<0;
STICKLINE(控盤>REF(控盤,1) AND 控盤>0,控盤,0,1,1),COLOR0000FF;
有莊控盤:=控盤>REF(控盤,1) AND 控盤>0;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤,0,1,1),COLORFFFF00;
主力出貨:=控盤<REF(控盤,1) AND 控盤>0;
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0,1,1),COLOR00FFFF;
高度控盤: VAR2>50 AND COST(85)<CLOSE AND 控盤>0,COLOR00FFFF,LINETHICK2;
A10:=CROSS(控盤,0);
控盤B:=FILTER(IF(A10,1,0),5);
{分時價格原碼}
JJ:=DYNAINFO(11);
{波段買賣原碼}
P:=55;S:=8;M1:=3;
財:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORRED,LINETHICK2;
神:=EMA(財,M1),COLORGREEN,LINETHICK1;
DRAWBAND(財,RGB(255,0,0),神,RGB(0,100,50));
{股價與均線偏離買賣條件}
BTJ1:=(C-JJ)/JJ<-0.03;
BTJ11:=(C-JJ)/JJ<-0.03;
BTJ12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ<0.005;
STJ1:=(C-JJ)/JJ>0.005;
{控盤買賣條件}
STJ01:=控盤<REF(控盤,1) AND 控盤>0.5;
STJ02:=控盤>0;
BTJ2:=控盤>REF(控盤,1) AND 控盤<-0.2;
BTJ22:=控盤>REF(控盤,1) AND 控盤<0 ;
{波段買賣條件}
BTJ3:=CROSS(財,神) AND 財<-0.3;
BTJ32:=CROSS(財,神) AND 財<-0.1;
STJ31:=CROSS(神,財);
STJ32:=CROSS(神,財) AND 財>1.618;
{以下為信號};
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13);
DRAWTEXT(BTJ81,神,'↑買底'),COLORRED;
DRAWTEXT(BTJ811,神*1.2,'↑有莊'),COLORWHITE;
STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,13);
STJ82:=FILTER(STJ02 AND STJ32 ,13);
STJ83:=STJ81 AND STJ82;
DRAWTEXT(STJ83,神,'↓賣'),COLOR00FF00;
DIFF: (EMA(CLOSE,8) - EMA(CLOSE,55))*10,COLORRED;
DEA: EMA(DIFF,3),COLORGREEN;
莊:= BTJ11 AND BTJ2 AND BTJ3;
有莊:FILTER(莊,55),COLORWHITE;
DRAWTEXT(BTJ811,有莊,'有莊'),COLORWHITE;
