?

?

DRAWGBK(C>0, RGB(0,0,00),RGB(0,0,0),0,'11',0);MA10:MA(CLOSE,10);MA60:MA(CLOSE,60);cxh6:=(( ABS((O-C))/(H-L))*V);cxh7:=(( (H-IF((C>O),C,O))/(H-L))*V);cxh8:=(( (IF((C>O),O,C)-L)/(H-L))*V);cxh9:=IF(((V/CAPITAL)>0.001),1,EXP(ABS(LOG(((V/CAPITAL)*100)))));加倉:cxh6>=cxh7 AND cxh6>=cxh8 AND C>O,NODRAW,COLORRED;減倉:cxh6>=cxh7 AND cxh6>=cxh8 AND C<O,NODRAW,COLORBLUE;洗盤:cxh8>cxh6 AND cxh8>cxh7,NODRAW,COLORWHITE;高拋:cxh7>cxh6 AND cxh7>cxh8,NODRAW,COLORMAGENTA;地量:cxh9>2 AND V<MA(V,5)/2,NODRAW,COLORGREEN;DRAWKLINE(HIGH,O,L,C);TY:=C;A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);前期高位:REF(HIGH,BARSLAST(HD)), COLORFF00FF,POINTDOT,LINETHICK3;前期低位:REF(LOW,BARSLAST(LD)), COLORGREEN,POINTDOT,LINETHICK3;STICKLINE(加倉,O,C,1,0),COLORRED;STICKLINE(洗盤,O,C,1,0),COLORWHITE;STICKLINE(減倉,O,C,1,0),COLORBLUE;STICKLINE(高拋,O,C,1,0),COLORMAGENTA;STICKLINE(地量,O,C,1,0),COLORGREEN;JJ:=(3*C+HIGH+LOW+O)/6;cxh1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;TJ1:=V=HHV(V,10) AND V>2*REF(V,1) AND C>cxh1 AND C>REF(CLOSE,1);LJL:=FILTER(TJ1,5);STICKLINE(C,REF(L,BARSLAST(LJL)),REF(L,BARSLAST(LJL)),1,0),COLORRED;STICKLINE(C,REF(C,BARSLAST(LJL)),REF(C,BARSLAST(LJL)),1,0),COLORYELLOW;STICKLINE(LJL,O,C,1,0),COLORYELLOW;DRAWTEXT_FIX(1,0.0,0.0,0,'藍芯-主力低位深度洗盤或高位出貨堅決'),COLORBLUE,LINETHICK1;DRAWTEXT_FIX(1,0.00,0.06,0,'白芯-主力輕度洗盤'),COLORWHITE,LINETHICK1;DRAWTEXT_FIX(1,0.00,0.12,0,'棕芯-出現了近期相對地量'),COLORGREEN,LINETHICK1;DRAWTEXT_FIX(1,0.00,0.18,0,'粉芯-主力在做高拋低吸或低吸高拋'),COLORFF00FF,LINETHICK1;DRAWTEXT_FIX(1,0.00,0.24,0,'紅芯-主力吸籌進貨積極主動'),COLORRED,LINETHICK1;DRAWTEXT_FIX(1,0.00,0.3,0,'黃芯-主力吸籌進貨強并且成交量出現黃金柱'),COLORYELLOW,LINETHICK1;DRAWTEXT_FIX(C>0,0.004,1,0,DYBLOCK),COLORYELLOW,LINETHICK2;DRAWTEXT_FIX(C>0,0.06,1,0,HYBLOCK),COLORRED,LINETHICK2;DRAWTEXT_FIX(C>0,0.12,1,0,EXTERNSTR(0,1)),COLORWHITE,LINETHICK2;EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);PL10:=ZIG(3,10);走強2:=BARSLAST(PL10<REF(PL10,1));ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強2),0);追2:=EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2;追4:=EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3;DRAWTEXT(追2 OR 追4,L*0.978,'追'),COLORYELLOW;PL5:=ZIG(3,5);EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);PL20:=ZIG(3,20);EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);PL40:=ZIG(3,40);走強1:=BARSLAST(PL5<REF(PL5,1));走弱1:=BARSLAST(PL5>REF(PL5,1));走弱2:=BARSLAST(PL10>REF(PL10,1));走強3:=BARSLAST(PL20<REF(PL20,1));走弱3:=BARSLAST(PL20>REF(PL20,1));{ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強2),0);}ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強2),0);DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強3),0);ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強3),0);DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'反彈低點'),COLORLIRED;DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'反彈高點！'),COLORLIBLUE;DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'底'),COLORYELLOW;DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'減倉'),COLORFFFF00;DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'----買'),COLOR0000FF;DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'短賣'),COLORGREEN;DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'----短買'),COLOR0000FF;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'短賣'),COLORGREEN;DRAWTEXT(EN2 AND DTJZ10=1,L*0.96,'Ⅰ'),COLORFF00FF;DRAWTEXT(EX2 AND DTJD10=2,H*1.03,'Ⅱ'),COLORFF6000;DRAWTEXT(EN3 AND ZTJZ10=1,L*0.95,'Ⅲ'),COLORYELLOW;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.06,'①'),LINETHICK3,COLORFFFF00;DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.96,'②'),LINETHICK3,COLORYELLOW;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.02,'清倉!'),LINETHICK3,COLORWHITE;DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.96,'④'),LINETHICK3,COLORYELLOW;DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.95,'⑷'),COLORYELLOW;EMA13:=EMA(CLOSE,13);EMA34:=EMA(CLOSE,34);EMA55:=EMA(CLOSE,55);EMA120:=EMA(CLOSE,120);CR1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>0.5;CR2:=V>MA(VOL,5)*0.6;CR3:=COUNT(CROSS(EMA13,EMA55),3)=1;CR4:=ABS(EMA34-EMA55)/EMA55<0.03;CR5:=EMA55<=EMA120 AND EMA55>=REF(EMA55,1);CR6:=FILTER(CR1 AND CR2 AND CR3 AND CR4 AND CR5,2);DRAWTEXT(CR6,C*0.98,'風險'),COLORWHITE;{程序化交易 www.tumamayizhan.com }