|
{我的主图}
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;
8000423.png
|
