{我的主图}都是从网上抄来的。请高手别笑话。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)ANDC<=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)ANDC<=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; |
