R1:=(REF((C>REF(C,1)AND C>REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));

R2:=(REF((REF(R1,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));

R3:=(REF((REF(R2,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));

R4:=(REF((REF(R3,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));

A1:=((REF((C>REF(C,1)AND C>REF(C,2))OR R1 OR(REF(R1,1)AND C>=REF(C,1)AND C<=REF(C,2))OR R2 OR

(REF(R2,1)AND C>=REF(C,1)AND C<=REF(C,2))OR R3 OR(REF(R3,1)AND C>=REF(C,1)AND C<=REF(C,2))OR R4 OR

(REF(R4,1)AND C>=REF(C,1)AND C<=REF(C,2))OR(REF((REF(R4,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND

C<=REF(C,1)AND C>=REF(C,2))OR(REF((REF((REF(R4,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)

AND C>=REF(C,2)),1)AND C>=REF(C,1)AND C<=REF(C,2))OR(REF((REF((REF((REF(R4,1)AND C>=REF(C,1)AND

C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2)),1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)

AND C>=REF(C,2)),1))AND(C<REF(C,1)AND C<REF(C,2)));

 

DRAWGBK(C>0,RGB(0,150,150),RGB(0,00,100),0,' ',0);

DRAWKLINE(H,O,L,C);

MA3:=MA(C,3);

IF(MA3>=REF(MA3,1),MA3,DRAWNULL),COLOR0066FF,LINETHICK1; 

IF(MA3< REF(MA3,1),MA3,DRAWNULL),COLORGREEN,LINETHICK1;

R:=(3*C+L+O+H)/6;

多空线:(20*R+19*REF(R,1)+18*REF(R,2)+17*REF(R,3)+16*REF(R,4)+15*REF(R,5)+14*REF(R,6)+13*REF(R,7)+12*REF(R,8)+11*REF(R,9)+10*REF(R,10)+9*REF(R,11)+8*REF(R,12)+7*REF(R,13)+6*REF(R,14)+5*REF(R,15)+4*REF(R,16)+3*REF(R,17)+2*REF(R,18)+REF(R,20))/210,COLORGREEN,LINETHICK2;

IF(多空线>=REF(多空线,1),多空线,DRAWNULL),COLORRED,LINETHICK2; 

IF(多空线< REF(多空线,1),多空线,DRAWNULL),COLORGREEN,LINETHICK2; 

牛皮熊:DRAWICON(CROSS(MA3,多空线)AND C/REF(C,1)>1.03,L*0.96,25);

 

DRAWICON(CROSS(SLOPE(EMA(C,3),3),SLOPE(EMA(C,7),7))AND C/REF(C,1)>1.03,L*0.96,23);

DRAWTEXT(CROSS(SLOPE(EMA(C,3),3),SLOPE(EMA(C,7),7))AND C/REF(C,1)>1.03,L*0.98,'↖买'),COLORWHITE;

 

{波峰} 

波峰:REF(H,BARSLAST(FILTER(BACKSET(FILTER(REF(H,10)=HHV(H,2*10+1),10),10+1),10))),COLORYELLOW,POINTDOT,LINETHICK2; 

STICKLINE(H,波峰,波峰,2,-1),COLORYELLOW,LINETHICK2;

高点:REF(C,BARSLAST(FILTER(CROSS(0.8,C=HHV(C,13)),2))+1),COLORFF00FF,LINETHICK4,POINTDOT;

STICKLINE(BARSLAST(FILTER(CROSS(0.8,C=HHV(C,13)),2))+1<=6,高点,高点,2,-1),COLORGREEN,LINETHICK2;

DS:=BARSLAST(FILTER(CROSS(0.8,C=LLV(C,13)),2))+1;

低点:REF(C,DS),COLOR0055FF,POINTDOT,LINETHICK4;

STICKLINE(DS<=6,低点,低点,2,-1),COLORWHITE,LINETHICK4;

 

MA10:MA(C,10)COLORWHITE,DOTLINE,LINETHICK1;

MA54:MA(C,54)COLORFF00FF,DOTLINE,LINETHICK1;

偏离率:=((((((C-MA54)/MA54)<0.1)=1)AND((((C-MA10)/MA10)<0.3)=1))*0.2);

突破:=((((偏离率=0)AND(REF(偏离率,1)=0.2))AND(REF((COUNT((偏离率=0.2),10)=10),1)=1))*1);

DRAWTEXT(突破,L,'＝＝＝＝＝＝＝'),COLORWHITE;

DRAWTEXT(突破,L-0.05,'突破平台'),COLORGREEN;

{跳空}

STICKLINE(REF(L,1)>H,H,REF(L,1),2,-1),COLORWHITE;

STICKLINE(REF(H,1)<L,L,REF(H,1),2,-1),COLORWHITE;

{彩色K线}

X:=MA(REF(HHV((C+L+O+H)/4,30),1),3);

Y:=MA((C+L+O+H)/4,13);

Z:=EMA((C+L+O+H)/4,21);

{红色立柱}

STICKLINE(C<Z AND C>O,C,O,3.2,0),COLOR0000AA;

STICKLINE(C<Z AND C>O,C,O,2.2,0),COLOR0000CC;

STICKLINE(C<Z AND C>O,C,O,1.0,0),COLOR0000EE;

STICKLINE(C<Z AND C>O,C,O,0.1,0),COLORAA55FF;

{绿色立柱}

STICKLINE(C<Z AND C<O,C,O,3.2,0),COLOR009900;

STICKLINE(C<Z AND C<O,C,O,2.1,0),COLOR00BB00;

STICKLINE(C<Z AND C<O,C,O,0.5,0),COLOR00DD00;

STICKLINE(C<Z AND C<O,C,O,0.1,0),COLOR00FF00;

{白立柱}

STICKLINE(C>Z AND C<O,C,O,3.1,0),COLOR999999;

STICKLINE(C>Z AND C<O,C,O,2,0),COLORBBBBBB;

STICKLINE(C>Z AND C<O,C,O,1,0),COLORDDDDDD;

STICKLINE(C>Z AND C<O,C,O,0.1,0),COLORFFFFFF;

{黄立柱}

STICKLINE(C>Z AND C>O,C,O,3.0,0),COLOR335555;

STICKLINE(C>Z AND C>O,C,O,2.1,0),COLOR338888;

STICKLINE(C>Z AND C>O,C,O,1.6,0),COLOR33AAAA;

STICKLINE(C>Z AND C>O,C,O,0.8,0),COLOR33CCCC;

STICKLINE(C>Z AND C>O,C,O,0.1,0),COLOR33EEEE;

{粉红立柱}

STICKLINE(C>Y AND C>O,C,O,3.1,0),COLOR880088;

STICKLINE(C>Y AND C>O,C,O,2.0,0),COLORBB00BB;

STICKLINE(C>Y AND C>O,C,O,1.0,0),COLORDD00DD;

STICKLINE(C>Y AND C>O,C,O,0.1,0),COLORFF00FF;

{青立柱}

STICKLINE(C>Y AND C<O,C,O,3.1,0),COLOR999900;

STICKLINE(C>Y AND C<O,C,O,2,0),COLORBBBB00;

STICKLINE(C>Y AND C<O,C,O,1,0),COLORDDDD00; 

STICKLINE(C>Y AND C<O,C,O,0.1,0),COLORFFFF00;

{深红立柱}

STICKLINE(C>X AND C>O,H,L,0,0),COLORFF00FF;

STICKLINE(C>X AND C>O,C,O,3.5,0),COLOR0000AA;

STICKLINE(C>X AND C>O,C,O,2.5,0),COLOR0000CC;

STICKLINE(C>X AND C>O,C,O,1.1,0),COLOR0000EE;

STICKLINE(C>X AND C>O,C,O,0.1,0),COLORFF00FF;

{蓝抛}

STICKLINE(A1,REF(C,1),REF(C,2),3.0,0),COLORAA0000;

STICKLINE(A1,REF(C,1),REF(C,2),2.0,0),COLORCC0000;

STICKLINE(A1,REF(C,1),REF(C,2),1.1,0),COLORFF4400;

STICKLINE(A1,REF(C,1),REF(C,2),0.2,0),COLORFF8800;

STICKLINE(A1,REF(C,1),REF(C,2),0.0,0),COLORFFCC00;

 

STICKLINE(C=C,O+((C-O)/2),(O+(C-O)/2),3,0),COLOR00FFFF;{当日实体幅度的1/2}

{红绿三角【副图】}

TD1:=BACKSET(FILTER(REF(H,3)=HHV(H,2*3+1),3),3+1); 

TD2:=BACKSET(FILTER(REF(L,3)=LLV(L,2*3+1),3),3+1); 

TD3:=(REF(LLV(L,2*3),1)+REF(HHV(H,2*3),1))/2; 

TD4:=(H+L)/2;{高低点出现在同一K线上时可作取舍}

DT0:=(FILTER(TD1,3{高点})AND NOT(FILTER(TD2,3{低点})AND TD3>=TD4))OR BARSTATUS=2 OR BARSCOUNT(C)=1;

DT1:=(FILTER(TD2,3{低点})AND NOT(FILTER(TD1,3{高点})AND TD3=TD4));

DT2:=BACKSET(DT0 AND COUNT(DT1,REF(BARSLAST(DT0),1)+1)>0,LLVBARS(IF(DT1,L,10000),REF(BARSLAST(DT0),1)+1));

DT3:=BACKSET(DT2>REF(DT2,1),2)>REF(BACKSET(DT2>REF(DT2,1),2),1);{过滤后低点}

DT4:=DT3 OR BARSTATUS=2 OR BARSCOUNT(C)=1;

DT5:=BACKSET(DT4 AND COUNT(DT0,REF(BARSLAST(DT4),1)+1)>0,HHVBARS(IF(DT0,H,0),REF(BARSLAST(DT4),1)+1));

XD1:=BACKSET(DT5>REF(DT5,1),2); 

XD3:=BACKSET(BARSTATUS=2,BARSLAST(DT3)+1);

XD5:=BACKSET(BARSTATUS=2,BARSLAST(XD1>REF(XD1,1{过滤后高点}))+1);

XD6:=XD5>REF(XD5,1);

{以下语句为三角形部分}

底:REF(L,BARSLAST(XD3>REF(XD3,1))),COLORWHITE,LINETHICK1; 

顶:REF(H,BARSLAST(XD6)),COLORYELLOW,LINETHICK1;

{下跌三角形：绿色三角形画完介入}

STICKLINE(XD3>REF(XD3,1),顶,底,0,0),COLORFF00FF,LINETHICK2;

DRAWLINE(XD6,H,XD3>REF(XD3,1),L,0),COLORFF00FF,LINETHICK2;{斜}

DRAWLINE(XD6,H,XD3>REF(XD3,1),顶,0),COLORFF00FF,LINETHICK2;

{上涨三角形：红色三角形画完出局}

STICKLINE(XD6,顶,底,0,0),COLORYELLOW,LINETHICK1;

DRAWLINE(XD3>REF(XD3,1),L,XD6,H,0),COLORYELLOW,LINETHICK1;{斜}

DRAWLINE(XD3>REF(XD3,1),L,XD6,底,0),COLORYELLOW,LINETHICK1;

 

{长阴短柱:=C/REF(C,1)<=0.96 AND V<HHV(V,30)/1.9;

DRAWTEXT(长阴短柱 ,V+1.6*0.098,'长阴短柱↙'),COLOR00FF00;}

T01:=CONST(LLVBARS(L,10));

XD7:=CONST(REF(H,T01));

T02:=CONST(BARSLAST(CURRBARSCOUNT>CONST(CURRBARSCOUNT)+T01 AND H>XD7));

XD8:=CONST(REF(H,T02));

T03:=CONST(BARSLAST(CURRBARSCOUNT>CONST(CURRBARSCOUNT)+T02 AND H>XD8));

XD9:=CONST(REF(H,T03));

攻击线:DRAWLINE(CURRBARSCOUNT=T03+1,XD9,ISLASTBAR,XD9,1),LINETHICK2,COLOR8080FF;

DRAWTEXT(ISLASTBAR,XD9,'攻击线')LINETHICK1,COLORCYAN;

 

D6A:=FILTER(BACKSET(FILTER(REF(H,6)=HHV(H,2*6+1),6),6+1),6);

D7A:=FILTER(BACKSET(FILTER(REF(L,6)=LLV(L,2*6+1),6),6+1),6);

L6A:=D7A AND NOT(D6A AND (REF(LLV(L,2*6),1)+REF(HHV(H,2*6),1))/2=(H+L)/2);

X6A:=REF(BARSLAST(((REF(LLV(L,2*6),1)+REF(HHV(H,2*6),1))/2 AND NOT(D7A AND(REF(LLV(L,2*6),1)+REF(HHV(H,2*6),1))/2>=(H+L)/2))OR BARSTATUS=2 OR BARSCOUNT(C)=1),1)+1;

F6A:=BACKSET((D6A AND NOT(D7A AND (REF(LLV(L,2*6),1)+REF(HHV(H,2*6),1))/2>=(H+L)/2))OR BARSTATUS=2 OR BARSCOUNT(C)=1 AND COUNT(L6A,X6A)>0,LLVBARS(IF(L6A,L,10000),X6A));

LDA:=BACKSET(F6A>REF(F6A,1),2)>REF(BACKSET(F6A>REF(F6A,1),2),1);

X7A:=REF(BARSLAST(LDA OR BARSTATUS=2 OR BARSCOUNT(C)=1),1)+1; 

F7A:=BACKSET(LDA OR BARSTATUS=2 OR BARSCOUNT(C)=1 AND COUNT(D6A AND NOT(D7A AND(REF(LLV(L,2*6),1)+REF(HHV(H,2*6),1))/2>=(H+L)/2),X7A)>0,HHVBARS(IF(D6A AND NOT(D7A AND (REF(LLV(L,2*6),1)+REF(HHV(H,2*6),1))/2>=(H+L)/2),H,0),X7A));

DU1:=BACKSET(BACKSET(BARSTATUS=2,BARSLAST(LDA)+1)>REF(BACKSET(BARSTATUS=2,BARSLAST(LDA)+1),1),REF(BARSLAST(LDA),1)+2);

DRAWLINE(DU1>REF(DU1,1),L,BACKSET(BARSTATUS=2,BARSLAST(LDA)+1)>REF(BACKSET(BARSTATUS=2,BARSLAST(LDA)+1),1),L,1),COLORCYAN,LINETHICK2;

DU2:=BACKSET(DU1>REF(DU1,1),REF(BARSLAST(BACKSET(F7A>REF(F7A,1),2)>REF(BACKSET(F7A>REF(F7A,1),2),1)),1)+2);

 

DRAWLINE(DU2>REF(DU2,1),H,DU1>REF(DU1,1),H,1),COLOR8000F0,LINETHICK2;

DRAWICON(FILTER(BACKSET(REF(H,10)=HHV(H,2*11),11),10)AND H=HHV(H,11),H*1.01,15); 

 

{牛熊轨道上抓启爆点 适合抓爆涨股}

AH1:=EMA((EXPMA(C*VOL,27)/EXPMA(VOL,27)+EXPMA(C*VOL,54)/EXPMA(VOL,54)+EXPMA(C*VOL,108)/EXPMA(VOL,108)+EXPMA(C*VOL,316)/EXPMA(VOL,316))/4,34);

启爆:=CROSS(C,1.06*AH1)OR CROSS(C,AH1*0.94)AND REF(C,1)*1.1-C<0.01 AND H=C;

DRAWTEXT(启爆,L,'↖启爆'),COLORCYAN;

 

M23:MA(C,23)COLORYELLOW,DOTLINE,LINETHICK1;

M34:MA(C,34)COLORGREEN,DOTLINE,LINETHICK1;

 

DRAWTEXT(FILTER(牛皮熊,8),多空线-0.05,'↖跟庄'),COLORGREEN;

DRAWTEXT(CROSS(MA3,多空线)AND MA3>0,多空线-0.23,'↖买'),COLORYELLOW;

 

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(STRCAT(STRCAT(STRCAT(HYBLOCK,' '),DYBLOCK),' '),GNBLOCK)),COLORLIRED;

DRAWTEXT_FIX(ISLASTBAR,0,0.04,0,EXTERNSTR(0,3)),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR,0,0.06,0,EXTERNSTR(0,6)),COLORLIBLUE;

DRAWTEXT_FIX(ISLASTBAR,0,0.09,0,EXTERNSTR(0,12)),COLORLIGREEN;{老王}

DRAWTEXT_FIX(ISLASTBAR,0,0.10,0,FGBLOCK),COLORLIMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0,0.14,0,EXTERNSTR(0,1)),COLORYELLOW;{融胜};

 

DRAWTEXT_FIX(1,0.0,0.22,0,'青柱... 主力洗筹'),COLORFFFF00,LINETHICK1;{GREEN}

DRAWTEXT_FIX(1,0.0,0.26,0,'红柱... 主力积极主动吸筹进货拉台股价'),COLORRED,LINETHICK1;

DRAWTEXT_FIX(1,0.0,0.34,0,'蓝柱... 出现股价已到近期相对高位主力逃跑'),COLOR0080FF,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.3,0,'白柱... 股价在高位主力出货 股价在低位主力洗筹'),COLORWHITE,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.38,0,'粉柱... 主力 试探进入'),COLORFF00FF,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.42,0,'黄金柱...股价到了底部主力强劲吸筹进货'),COLORYELLOW,LINETHICK1;

{老鼠仓}

老鼠:=L<AMOUNT/V*0.9 AND (C-REF(C,1))/REF(C,1)*100>1.2 AND L<MA(C,5)*0.921 AND V<MA(V,5)*1.5;

DRAWTEXT(老鼠,(L*0.998),'↖老鼠仓'),COLOR40CCFF;

{涨跌停提示}

DRAWTEXT(C>=1.099*REF(C,1),H+0.1,'↙涨停'),COLORYELLOW;

DRAWTEXT(((C-REF(C,1))/REF(C,1)*100)<-9.9,L-0.1,'↖跌停'),COLOR00FF00;