咨詢內容：

請老師幫助修改

VAR6:=(( ABS((OPEN-CLOSE))/(HIGH-LOW))*VOL);
VAR7:=(( (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN))/(HIGH-LOW))*VOL);
VAR8:=(( (IF((CLOSE>OPEN),OPEN,CLOSE)-LOW)/(HIGH-LOW))*VOL);
CAPITAL:=GETPRICE1('流通股本');
VAR9:=IF(((VOL/CAPITAL)>0.001),1,EXP(ABS(LOG10(((VOL/CAPITAL)*100)))));
加倉:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE>OPEN,NODRAW,COLORRED;
減倉:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE<OPEN,NODRAW,COLORBLUE;
洗盤:VAR8>VAR6 AND VAR8>VAR7,NODRAW,COLORWHITE;
高拋:VAR7>VAR6 AND VAR7>VAR8,NODRAW,COLORMAGENTA;
地量:VAR9>2 AND VOL<MA(VOL,5)/2,NODRAW,COLORGREEN;
DRAWKLINE1(H,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(H,BARSLAST(HD)), COLORFF00FF,POINTDOT,LINETHICK3;
//前期低位:REF(L,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),COLORGREEN;
STICKLINE(地量,O,C,1,0),COLORGREEN;
JJ:=(3*C+H+L+O)/6;
VAR1:=(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:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
STICKLINE(LJL,OPEN,CLOSE,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:=ZIGZAG(C,0.1,1)>REF(ZIGZAG(C,0.1,1),1) AND REF(ZIGZAG(C,0.1,1),1)<=REF(ZIGZAG(C,0.1,1),2) AND REF(ZIGZAG(C,0.1,1),2)<=REF(ZIGZAG(C,0.1,1),3);
PL10:=ZIGZAG(C,0.1,1);
走強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,LOW,'追'),COLORYELLOW,VALIGN0;
PL5:=ZIGZAG(C,0.05,1);
EX1:=ZIGZAG(C,0.05,1)<REF(ZIGZAG(C,0.05,1),1) AND REF(ZIGZAG(C,0.05,1),1)>=REF(ZIGZAG(C,0.05,1),2) AND REF(ZIGZAG(C,0.05,1),2)>=REF(ZIGZAG(C,0.05,1),3);
EN2:=ZIGZAG(C,0.1,1)>REF(ZIGZAG(C,0.1,1),1) AND REF(ZIGZAG(C,0.1,1),1)<=REF(ZIGZAG(C,0.1,1),2) AND REF(ZIGZAG(C,0.1,1),2)<=REF(ZIGZAG(C,0.1,1),3);
EX2:=ZIGZAG(C,0.1,1)<REF(ZIGZAG(C,0.1,1),1) AND REF(ZIGZAG(C,0.1,1),1)>=REF(ZIGZAG(C,0.1,1),2) AND REF(ZIGZAG(C,0.1,1),2)>=REF(ZIGZAG(C,0.1,1),3);
PL20:=ZIGZAG(C,0.2,1);
EN3:=ZIGZAG(C,0.2,1)>REF(ZIGZAG(C,0.2,1),1) AND REF(ZIGZAG(C,0.2,1),1)<=REF(ZIGZAG(C,0.2,1),2) AND REF(ZIGZAG(C,0.2,1),2)<=REF(ZIGZAG(C,0.2,1),3);
EX3:=ZIGZAG(C,0.2,1)<REF(ZIGZAG(C,0.2,1),1) AND REF(ZIGZAG(C,0.2,1),1)>=REF(ZIGZAG(C,0.2,1),2) AND REF(ZIGZAG(C,0.2,1),2)>=REF(ZIGZAG(C,0.2,1),3);
PL40:=ZIGZAG(C,0.4,1);
走強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));
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,'反彈低點'),COLORLIGHTRED,VALIGN1;
//DRAWTEXT(EX1 AND DTJD5=2,H,'反彈高點！'),COLORMAGENTA,VALIGN2;
DRAWTEXT(EN2 AND ZTJZ5=1,L,'底!'),COLORYELLOW,VALIGN0;
//DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H,'減倉'),COLORFFFF00;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L,'----買'),COLOR0000FF,VALIGN0;
//DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H,'短賣'),COLORGREEN;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L,'----短買'),COLOR0000FF,VALIGN0;
//DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H,'短賣'),COLORGREEN;
DRAWTEXT(EN2 AND DTJZ10=1,L,'Ⅰ'),COLORFF00FF,VALIGN0;
DRAWTEXT(EX2 AND DTJD10=2,H*1.03,'Ⅱ'),COLORFF6000;
DRAWTEXT(EN3 AND ZTJZ10=1,L,'Ⅲ'),COLORYELLOW,VALIGN0;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H,'①'),LINETHICK3,COLORFFFF00;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L,'②'),LINETHICK3,COLORYELLOW,VALIGN0;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H,'清倉!'),COLORWHITE,VALIGN2;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L,'④'),LINETHICK3,COLORYELLOW,VALIGN0;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L,'⑷'),COLORYELLOW,VALIGN0;
EMA13:=EMA(C,13);
EMA34:=EMA(C,34);
EMA55:=EMA(C,55);
EMA120:=EMA(C,120);
CR1:=(C-REF(C,1))/REF(C,1)*100>0.5;
CR2:=V>MA(V,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,'風險'),COLORWHITE,VALIGN0;
?

?

?來源:程序化99網（ www.tumamayizhan.com ）

博易技術人員： VAR6:=(( ABS((OPEN-CLOSE))/(HIGH-LOW))*VOL);
VAR7:=(( (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN))/(HIGH-LOW))*VOL);
VAR8:=(( (IF((CLOSE>OPEN),OPEN,CLOSE)-LOW)/(HIGH-LOW))*VOL);

VAR9:=IF(((VOL/CAPITAL)>0.001),1,EXP(ABS(LOG(((VOL/CAPITAL)*100)))));
加倉:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE>OPEN,NODRAW,COLORRED;
減倉:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE<OPEN,NODRAW,COLORBLUE;
洗盤:VAR8>VAR6 AND VAR8>VAR7,NODRAW,COLORWHITE;
高拋:VAR7>VAR6 AND VAR7>VAR8,NODRAW,COLORMAGENTA;
地量:VAR9>2 AND VOL<MA(VOL,5)/2,NODRAW,COLORGREEN;
DRAWKLINE(H,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(H,BARSLAST(HD)), COLORFF00FF,POINTDOT,LINETHICK3;
//前期低位:REF(L,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),COLORGREEN;
STICKLINE(地量,O,C,1,0),COLORGREEN;
JJ:=(3*C+H+L+O)/6;
VAR1:=(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:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
STICKLINE(LJL,OPEN,CLOSE,1,0),COLORYELLOW;

EN1:=ZIG(C,0.1,1)>REF(ZIG(C,0.1,1),1) AND REF(ZIG(C,0.1,1),1)<=REF(ZIG(C,0.1,1),2) AND REF(ZIG(C,0.1,1),2)<=REF(ZIG(C,0.1,1),3);
PL10:=ZIG(C,0.1,1);
走強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,LOW,'追'),COLORYELLOW,VALIGN0;
PL5:=ZIG(C,0.05,1);
EX1:=ZIG(C,0.05,1)<REF(ZIG(C,0.05,1),1) AND REF(ZIG(C,0.05,1),1)>=REF(ZIG(C,0.05,1),2) AND REF(ZIG(C,0.05,1),2)>=REF(ZIG(C,0.05,1),3);
EN2:=ZIG(C,0.1,1)>REF(ZIG(C,0.1,1),1) AND REF(ZIG(C,0.1,1),1)<=REF(ZIG(C,0.1,1),2) AND REF(ZIG(C,0.1,1),2)<=REF(ZIG(C,0.1,1),3);
EX2:=ZIG(C,0.1,1)<REF(ZIG(C,0.1,1),1) AND REF(ZIG(C,0.1,1),1)>=REF(ZIG(C,0.1,1),2) AND REF(ZIG(C,0.1,1),2)>=REF(ZIG(C,0.1,1),3);
PL20:=ZIG(C,0.2,1);
EN3:=ZIG(C,0.2,1)>REF(ZIG(C,0.2,1),1) AND REF(ZIG(C,0.2,1),1)<=REF(ZIG(C,0.2,1),2) AND REF(ZIG(C,0.2,1),2)<=REF(ZIG(C,0.2,1),3);
EX3:=ZIG(C,0.2,1)<REF(ZIG(C,0.2,1),1) AND REF(ZIG(C,0.2,1),1)>=REF(ZIG(C,0.2,1),2) AND REF(ZIG(C,0.2,1),2)>=REF(ZIG(C,0.2,1),3);
PL40:=ZIG(C,0.4,1);

走強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));
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,'反彈低點'),COLORLIGHTRED,VALIGN1;
//DRAWTEXT(EX1 AND DTJD5=2,H,'反彈高點！'),COLORMAGENTA,VALIGN2;
DRAWTEXT(EN2 AND ZTJZ5=1,L,'底!'),COLORYELLOW,VALIGN0;
//DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H,'減倉'),COLORFFFF00;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L,'----買'),COLOR0000FF,VALIGN0;
//DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H,'短賣'),COLORGREEN;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L,'----短買'),COLOR0000FF,VALIGN0;
//DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H,'短賣'),COLORGREEN;
DRAWTEXT(EN2 AND DTJZ10=1,L,'Ⅰ'),COLORFF00FF,VALIGN0;
DRAWTEXT(EX2 AND DTJD10=2,H*1.03,'Ⅱ'),COLORFF6000;
DRAWTEXT(EN3 AND ZTJZ10=1,L,'Ⅲ'),COLORYELLOW,VALIGN0;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H,'①'),LINETHICK3,COLORFFFF00;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L,'②'),LINETHICK3,COLORYELLOW,VALIGN0;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H,'清倉!'),COLORWHITE,VALIGN2;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L,'④'),LINETHICK3,COLORYELLOW,VALIGN0;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L,'⑷'),COLORYELLOW,VALIGN0;
EMA13:=EMA(C,13);
EMA34:=EMA(C,34);
EMA55:=EMA(C,55);
EMA120:=EMA(C,120);
CR1:=(C-REF(C,1))/REF(C,1)*100>0.5;
CR2:=V>MA(V,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,'風險'),COLORWHITE,VALIGN0; 來源 程序化久久網