霸王布林主图

DRAWGBK(C>0, RGB(40,120,20),RGB(00,00,00),0,0,1),LINETHICK2;

M:=20;
趋势: MA(CLOSE,20),COLORYELLOW,CIRCLEDOT,LINETHICK2;
强: 趋势+STD(CLOSE,20),COLORGRAY,LINETHICK2;
弱: 趋势-STD(CLOSE,20),COLORGRAY,LINETHICK2;
天: 趋势+2*STD(CLOSE,20),COLORCYAN,LINETHICK2;
地: 趋势-2*STD(CLOSE,20),COLORCYAN,LINETHICK2;

{霸王线}
DIFF:=(EMA(C,26)-EMA(C,52));
DEA:=EMA(DIFF,52);
MACD:=(2*(DIFF-DEA));
DIF:=(EMA(C,26)-EMA(C,52));
ESS:=EMA(C,26);
EGG:=EMA(C,52);
霸王线:(((((((((52-1)*(26+1))*EGG)*1)-
((((52+1)*(26-1))*ESS)*1))+(((26+1)*(52+1))*DIF))*1)/((2*52)-(2*26)))*1)COLORGREEN,LINETHICK2;

K1:= 霸王线>=REF(霸王线,1);
K12:=BACKSET(K1,2);
DRAWLINE(K12, 霸王线,K1, 霸王线,0),COLORRED,LINETHICK2;
K2:= 霸王线<REF(霸王线,1);
K22:=BACKSET(K2,2);
DRAWLINE(K22, 霸王线,K2, 霸王线,0),COLORGREEN,LINETHICK2;
日:=M;昨前:=3;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
H1:=高1-(高1-低1)*0.191; 
H2:=高1-(高1-低1)*0.382; 
H3:=高1-(高1-低1)*0.5; 
H4:=高1-(高1-低1)*0.618; 
H5:=高1-(高1-低1)*0.809;
顶:REFDATE(高1,DATE),COLORRED;
一0.809:REFDATE(H1,DATE),COLORYELLOW;
二0.618:REFDATE(H2,DATE),COLORMAGENTA;
三0.500:REFDATE(H3,DATE),COLORRED,CIRCLEDOT,LINETHICK1;
四0.382:REFDATE(H4,DATE),COLORGREEN;
五0.191:REFDATE(H5,DATE),COLORYELLOW;
低:REFDATE(低1,DATE),COLORRED;

{买卖K线}
VAR9Q:=C= HHV(C,4)AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF (C,3)) OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2) =HHV(C,4) AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3) =HHV(C,4) AND C>=REF(C,1) AND C>=REF(C,2); 
STICKLINE(VAR9Q,H,L,0,0),COLOR0000FF; 
STICKLINE(VAR9Q,C,O,3.5,0),COLOR0000CC; 
STICKLINE(VAR9Q,C,O,3,0),COLOR0000DD; 
STICKLINE(VAR9Q,C,O,2,0),COLOR0000EE; 
STICKLINE(VAR9Q,C,O,1,0),COLOR0000FF; 
VARCQ:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1); 
STICKLINE(VARCQ,H,L,0,0),COLOR00FF00; 
STICKLINE(VARCQ,O,C,3.5,0),COLOR00CC00; 
STICKLINE(VARCQ,O,C,3,0),COLOR00DD00; 
STICKLINE(VARCQ,O,C,2,0),COLOR00EE00; 
STICKLINE(VARCQ,O,C,1,0),COLOR00FF00; 
VARDQ:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF (C,2)) AND REF(C,2)>=REF(C,4) AND C<REF(C,1); 
STICKLINE(VARDQ AND C<O,H,L,0,0),COLORFF9900; 
STICKLINE(VARDQ AND C<O,O,C,3.5,0),COLORFF2200; 
STICKLINE(VARDQ AND C<O,O,C,3,0),COLORFF4400; 
STICKLINE(VARDQ AND C<O,O,C,2,0),COLORFF6600; 
STICKLINE(VARDQ AND C<O,O,C,1,0),COLORFF8800;
MTM:=CLOSE-REF(CLOSE,1);
  DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
    DY:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);
      LC:=REF(CLOSE,1);
        RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
           ZDF:=(C-REF(C,1))/REF(C,1)*100;
     STICKLINE(ZDF>9.8,O,C,2.5,0),COLORRED;
     STICKLINE(ZDF<-9.8,O,C,2.5,0),COLORBLUE;
白买进:DRAWNULL,NODRAW,COLORWHITE;
黄加仓:DRAWNULL,NODRAW,COLORYELLOW;
蓝跌:DRAWNULL,NODRAW,COLORBLUE;
绿见顶:DRAWNULL,NODRAW,COLORGREEN;
红强势:DRAWNULL,NODRAW,COLORRED;
红蓝调整:DRAWNULL,NODRAW,COLORGRAY;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),1);
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),9);
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.984),'↖买 '),COLOR4440FF;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'卖 '),COLORFFFF34;
VARE1:=EMA(C,3);VARE2:=EMA(C,5);VARE3:=EMA(C,10);VAR4:=EMA(C,20);VAR5:=EMA(C,30);VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;
VAR8:=(VAR6-REF(VAR6,15))/REF(VAR6, 15)*100;VAR9:=EMA(VAR7,8);
    STICKLINE(VAR7<1*REF(VAR7,1),H,L,0,1),COLORBLUE;
    STICKLINE(VAR7<1*REF(VAR7,1),O,C,2.5,1),COLORBLUE;
    STICKLINE(VAR7<1*REF(VAR7,1) AND C<O,O,C,2.5,0),COLORBLACK;
    STICKLINE(VAR7<1*REF(VAR7,1) AND C<O,O,C,2.3,0),COLORBLUE;
    STICKLINE(VAR7>1*REF(VAR7,1),H,L,0,1),COLORRED;
    STICKLINE(VAR7>1*REF(VAR7,1),O,C,2.5,1),COLORRED;
    STICKLINE(VAR7>1*REF(VAR7,1) AND C<O,O,C,2.5,0),COLOR0000DD;
    STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),H,L,0,1),COLORGREEN;
    STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),O,C,2.5,1),COLORGREEN;
  STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1) AND C<O,O,C,2.5,0),COLORGREEN;
买进价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;
买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);
STICKLINE(买进条件,H,L,0,1),COLORWHITE,LINETHICK1;
STICKLINE(买进条件,O,C,2.5,0),COLORWHITE,LINETHICK2;
加码价:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;
加码条件:=CROSS(C,加码价) AND 加码价>REF(加码价,1);
STICKLINE(加码条件,H,L,0,1),COLORYELLOW,LINETHICK2;
STICKLINE(加码条件,O,C,2.5,0),COLORYELLOW,LINETHICK2;