自用预测主图
指标源码
DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0);JRH:=HHV(C,2);JRL:=LLV(C,2);MA3:=MA(CLOSE,3);YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;VAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));VAR2:=(REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR3:=(REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR4:=(REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR5:=(REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR6:=(REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR7:=(REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR8:=(REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR9:=(REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VARA:=(REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VARD:=(CLOSE< REF(CLOSE,1) AND CLOSE< REF(CLOSE,2));VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR10:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR11:=(REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR12:=(REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR13:=(REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR14:=(REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR15:=(REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR16:=(REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR19:=((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1);VAR1A:=((REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1)) AND VARD);红色持股:VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,COLOR0000FF,NODRAW;主力减仓:=IF(红色持股,JRL,DRAWNULL);明离场价:=主力减仓,COLORFF99FF,NODRAW;今离场价:=REF(主力减仓,1),COLORFF0000,NODRAW;青色观望:VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,COLORFFFF00,NODRAW;进:=IF(青色观望,JRH,DRAWNULL);明进场价:=进,COLOR33AACC,NODRAW;今进场价:=REF(明进场价,1),COLORFF0000,NODRAW;主力建仓:=VAR19,COLOR33AACC,NODRAW;品红离场:=VAR1A,COLORFF99FF,NODRAW;急速超跌:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100< -14,COLORFFFFFF,NODRAW;辰星线:=(20*YTSL+19*REF(YTSL,1)+18*REF(YTSL,2)+17*REF(YTSL,3)+16*REF(YTSL,4)+15*REF(YTSL,5)+14*REF(YTSL,6)+13*REF(YTSL,7)+12*REF(YTSL,8)+11*REF(YTSL,9)+10*REF(YTSL,10)+9*REF(YTSL,11)+8*REF(YTSL,12)+7*REF(YTSL,13)+6*REF(YTSL,14)+5*REF(YTSL,15)+4*REF(YTSL,16)+3*REF(YTSL,17)+2*REF(YTSL,18)+REF(YTSL,20))/211,COLOR0000FF;牵牛线:=MA(CLOSE,26),COLORFF00FF;等待:=IF(MA3>辰星线,辰星线,MA3);STICKLINE(ISLASTBAR AND (红色持股 OR REF(红色持股,1)=1),今离场价,今离场价,30,1),COLOR0000FF;STICKLINE(ISLASTBAR AND (青色观望 OR REF(青色观望,1)=1),今进场价,今进场价,30,1),COLOR00FF00;STICKLINE(C>=O,L,H,0,0),COLOR0000CC;STICKLINE(C< O,L,H,0,0),COLOR999900;STICKLINE(1,C,O,3.5,0),COLOR858500;STICKLINE(C>=O,C,O,3.5,0),COLOR0000E5;STICKLINE(红色持股,CLOSE,O,2.8,0),COLOR000055;STICKLINE(红色持股,CLOSE,O,2,0),COLOR000088;STICKLINE(红色持股,CLOSE,O,1.5,0),COLOR0000AA;STICKLINE(红色持股,CLOSE,O,1,0),COLOR0000CC;STICKLINE(红色持股,CLOSE,O,0.5,0),COLOR0000EE;STICKLINE(青色观望,CLOSE,O,2.8,0),COLOR555500;STICKLINE(青色观望,CLOSE,O,2,0),COLOR888800;STICKLINE(青色观望,CLOSE,O,1.5,0),COLORAAAA00;STICKLINE(青色观望,CLOSE,O,1,0),COLORCCCC00;STICKLINE(青色观望,CLOSE,O,0.5,0),COLOREEEE00;CO:=(C-O);STICKLINE(急速超跌,O,C-CO/2,2.8,0),COLOR555555;STICKLINE(急速超跌,O,C-CO/2,2,0),COLOR888888;STICKLINE(急速超跌,O,C-CO/2,1.5,0),COLORAAAAAA;STICKLINE(急速超跌,O,C-CO/2,1,0),COLORCCCCCC;STICKLINE(急速超跌,O,C-CO/2,0.5,0),COLOREEEEEE;STICKLINE(主力建仓,O,O+CO/3,2.8,0),COLOR335555;STICKLINE(主力建仓,O,O+CO/3,2,0),COLOR338888;STICKLINE(主力建仓,O,O+CO/3,1.5,0),COLOR33AAAA;STICKLINE(主力建仓,O,O+CO/3,1,0),COLOR33CCCC;STICKLINE(主力建仓,O,O+CO/3,0,0),COLOR33EEEE;STICKLINE(品红离场,O,O+CO/3,2.8,0),COLOR550055;STICKLINE(品红离场,O,O+CO/3,2,0),COLOR880088;STICKLINE(品红离场,O,O+CO/3,1.5,0),COLORAA00AA;STICKLINE(品红离场,O,O+CO/3,1,0),COLORCC00CC;STICKLINE(品红离场,O,O+CO/3,0.5,0),COLOREE00EE;顶价:=REF(H,BARSLAST(H>REF(H,1)));底价:=REF(L,BARSLAST(L< REF(L,1)));分型顶0:=H>REF(顶价,1) AND L>REF(底价,1);分型底0:=L< REF(底价,1) AND H< REF(顶价,1);分型顶1:=分型顶0 AND H=HHV(H,BARSLAST(分型底0));分型底1:=分型底0 AND L=LLV(L,BARSLAST(分型顶0));分型顶:=FILTERX(分型顶1,BARSLAST(分型底1));分型底:=FILTERX(分型底1,BARSLAST(分型顶1));UP1:=BARSLAST(分型底);顶力度1:=HHV(L,UP1+1)>LLV(H,UP1+1);顶包含1:=COUNT(L>REF(L,1),UP1)>2 AND COUNT(H>REF(H,1),UP1)>2;DN1:=BARSLAST(分型顶);底力度1:=HHV(L,DN1+1)>LLV(H,DN1+1);底包含1:=COUNT(H< REF(H,1),DN1)>2 AND COUNT(L< REF(L,1),DN1)>2;笔顶10:=分型顶 AND UP1>3 AND 顶力度1 AND 顶包含1;笔底10:=分型底 AND DN1>3 AND 底力度1 AND 底包含1;笔顶11:=笔顶10 AND H=HHV(H,BARSLAST(笔底10));笔底11:=笔底10 AND L=LLV(L,BARSLAST(笔顶10));笔顶12:=笔顶11 AND H=HHV(H,BARSLAST(笔底11));笔底12:=笔底11 AND L=LLV(L,BARSLAST(笔顶11));笔顶1:=FILTERX(笔顶12,BARSLAST(笔底12));笔底1:=FILTERX(笔底12,BARSLAST(笔顶12));UP2:=BARSLAST(笔底1);顶力度2:=HHV(L,UP2+1)>LLV(H,UP2+1);顶包含2:=COUNT(L>REF(L,1),UP2)>2 AND COUNT(H>REF(H,1),UP2)>2;DN2:=BARSLAST(笔顶1);底力度2:=HHV(L,DN2+1)>LLV(H,DN2+1);底包含2:=COUNT(H< REF(H,1),DN2)>2 AND COUNT(L< REF(L,1),DN2)>2;笔顶20:=分型顶 AND UP2>3 AND 顶力度2 AND 顶包含2;笔底20:=分型底 AND DN2>3 AND 底力度2 AND 底包含2;笔顶21:=笔顶20 AND H=HHV(H,BARSLAST(笔底20));笔底21:=笔底20 AND L=LLV(L,BARSLAST(笔顶20));笔顶2:=FILTERX(笔顶21,BARSLAST(笔底21));笔底2:=FILTERX(笔底21,BARSLAST(笔顶21));笔顶3:=笔顶1 OR 笔顶2;笔底3:=笔底1 OR 笔底2;笔顶41:=FILTERX(笔顶3 AND H=HHV(H,BARSLAST(笔底3)),BARSLAST(笔底3));笔底41:=FILTERX(笔底3 AND L=LLV(L,BARSLAST(笔顶3)),BARSLAST(笔顶3));笔顶42:=FILTERX(笔顶41 AND H=HHV(H,BARSLAST(笔底41)),BARSLAST(笔底41));笔底42:=FILTERX(笔底41 AND L=LLV(L,BARSLAST(笔顶41)),BARSLAST(笔顶41));笔顶431:=笔顶42 AND (BARSLAST(笔底42)>1 OR BARSLAST(笔底42)=DRAWNULL);笔底431:=笔底42 AND (BARSLAST(笔顶42)>1 OR BARSLAST(笔顶42)=DRAWNULL);笔顶432:=笔顶431 AND (H=HHV(H,BARSLAST(笔底431)) OR BARSLAST(笔底431)=DRAWNULL);笔底432:=笔底431 AND (L=LLV(L,BARSLAST(笔顶431)) OR BARSLAST(笔顶431)=DRAWNULL);笔顶43:=FILTERX(笔顶432,BARSLAST(笔底431));笔底43:=FILTERX(笔底432,BARSLAST(笔顶431));笔顶441:=笔顶43 AND (BARSLAST(笔底43)>2 OR BARSLAST(笔底43)=DRAWNULL);笔底441:=笔底43 AND (BARSLAST(笔顶43)>2 OR BARSLAST(笔顶43)=DRAWNULL);笔顶442:=笔顶441 AND (H=HHV(H,BARSLAST(笔底441)) OR BARSLAST(笔底441)=DRAWNULL);笔底442:=笔底441 AND (L=LLV(L,BARSLAST(笔顶441)) OR BARSLAST(笔顶441)=DRAWNULL);笔顶44:=FILTERX(笔顶442,BARSLAST(笔底441));笔底44:=FILTERX(笔底442,BARSLAST(笔顶441));笔顶451:=笔顶44 AND (BARSLAST(笔底44)>3 OR BARSLAST(笔底44)=DRAWNULL);笔底451:=笔底44 AND (BARSLAST(笔顶44)>3 OR BARSLAST(笔顶44)=DRAWNULL);笔顶452:=笔顶451 AND (H=HHV(H,BARSLAST(笔底451)) OR BARSLAST(笔底451)=DRAWNULL);笔底452:=笔底451 AND (L=LLV(L,BARSLAST(笔顶451)) OR BARSLAST(笔顶451)=DRAWNULL);笔顶45:=FILTERX(笔顶452,BARSLAST(笔底452));笔底45:=FILTERX(笔底452,BARSLAST(笔顶452));DN511:=BARSLAST(笔顶45);底力度511:=HHV(L,DN511+1)>LLV(H,DN511+1);底包含511:=COUNT(H< REF(H,1),DN511)>2 AND COUNT(L< REF(L,1),DN511)>2;笔底511:=笔底43 AND (笔底45<>1) AND DN511>3 AND 底力度511 AND 底包含511 AND (L=LLV(L,BARSLAST(笔顶45)));笔底51:=FILTERX(笔底511,BARSLAST(笔顶45));UP512:=BARSLAST(笔底45);顶力度512:=HHV(L,UP512+1)>LLV(H,UP512+1);顶包含512:=COUNT(L>REF(L,1),UP512)>2 AND COUNT(H>REF(H,1),UP512)>2;笔顶512:=笔顶43 AND (笔顶45<>1) AND UP512>3 AND 顶力度512 AND 顶包含512 AND (H=HHV(H,BARSLAST(笔底45)));笔顶51:=FILTERX(笔顶512,BARSLAST(笔底45));笔顶521:=笔顶45 OR 笔顶51;笔底521:=笔底45 OR 笔底51;笔顶52:=FILTERX(笔顶521 AND H=HHV(H,BARSLAST(笔底521)),BARSLAST(笔底521));笔底52:=FILTERX(笔底521 AND L=LLV(L,BARSLAST(笔顶521)),BARSLAST(笔顶521));UP53:=BARSLAST(笔底52);顶力度53:=HHV(L,UP53+1)>LLV(H,UP53+1);顶包含53:=COUNT(L>REF(L,1),UP53)>2 AND COUNT(H>REF(H,1),UP53)>2;DN53:=BARSLAST(笔顶52);底力度53:=HHV(L,DN53+1)>LLV(H,DN53+1);底包含53:=COUNT(H< REF(H,1),DN53)>2 AND COUNT(L< REF(L,1),DN53)>2;笔顶53:=笔顶52 AND UP53>3 AND 顶力度53 AND 顶包含53 AND (H=HHV(H,BARSLAST(笔底52)));笔底53:=笔底52 AND DN53>3 AND 底力度53 AND 底包含53 AND (L=LLV(L,BARSLAST(笔顶52)));笔顶54:=FILTERX(笔顶53 AND H=HHV(H,BARSLAST(笔底53)),BARSLAST(笔底53));笔底54:=FILTERX(笔底53 AND L=LLV(L,BARSLAST(笔顶53)),BARSLAST(笔顶53));笔顶55:=H=HHV(H,BARSLAST(笔底54)) AND L>LLV(L,BARSLAST(笔底54)) AND BARSLAST(笔顶54)< BARSLAST(笔底54) AND (BARSNEXT(笔底54)< BARSNEXT(笔顶54) OR BARSNEXT(笔顶54)=DRAWNULL);笔底55:=L=LLV(L,BARSLAST(笔顶54)) AND H< HHV(H,BARSLAST(笔顶54)) AND BARSLAST(笔底54)< BARSLAST(笔顶54) AND (BARSNEXT(笔顶54)< BARSNEXT(笔底54) OR BARSNEXT(笔底54)=DRAWNULL);笔顶56:=笔顶54 OR 笔顶55;笔底56:=笔底54 OR 笔底55;笔顶6:=FILTERX(笔顶56 AND H=HHV(H,BARSLAST(笔底56)),BARSLAST(笔底56));笔底6:=FILTERX(笔底56 AND L=LLV(L,BARSLAST(笔顶56)),BARSLAST(笔顶56));笔顶7:=笔顶6 AND BARSLAST(笔底6)>3;笔底7:=笔底6 AND BARSLAST(笔顶6)>3;笔顶:=BARSLAST(笔顶6),NODRAW;笔底:=BARSLAST(笔底6),NODRAW;NOTEXT_上笔:DRAWLINE(笔底=0,L,笔顶=0,H,0),COLORRED,LINETHICK2;NOTEXT_下笔:DRAWLINE(笔顶=0,H,笔底=0,L,0),COLORGREEN,LINETHICK2;DRAWICON(笔顶=0,H*1.01,2);DRAWICON(笔底=0,L*0.99,1);N:=99;HH:=HHVBARS(H,N);LL:=LLVBARS(L,N);XX:=CONST(HH)>CONST(LL);SX:=CONST(HH)< CONST(LL);G:=CONST(REF(H,HH));D:=CONST(REF(L,LL));D1:=D*1.0418;D2:=(G-D1)*0.218+D1;D3:=(G-D2)*0.382+D2;G1:=G*0.9618;G3:=(G1-D)*0.382+D;G2:=(G1-D)*0.682+D;DRAWLINE(SX AND CURRBARSCOUNT=CONST(LL)+1,L,SX AND CURRBARSCOUNT=CONST(HH)+1,H,0),COLORFF0080,LINETHICK2;DRAWLINE(XX AND CURRBARSCOUNT=CONST(HH)+1,H,XX AND CURRBARSCOUNT=CONST(LL)+1,L,0),COLOR408000,LINETHICK2;STICKLINE(SX AND CURRBARSCOUNT=CONST(HH)+1,H,D1,0,-1),COLORFF0080;低3:DRAWLINE(SX AND CURRBARSCOUNT=CONST(HH)+1,D1,SX AND ISLASTBAR,D1,0),COLORFF0080,DOTLINE;低2:DRAWLINE(SX AND CURRBARSCOUNT=CONST(HH)+1,D2,SX AND ISLASTBAR,D2,0),COLORFF0080,DOTLINE;低1:DRAWLINE(SX AND CURRBARSCOUNT=CONST(HH)+1,D3,SX AND ISLASTBAR,D3,0),COLORFF0080,DOTLINE;STICKLINE(XX AND CURRBARSCOUNT=CONST(LL)+1,L,G1,0,-1),COLOR408000;高3:DRAWLINE(XX AND CURRBARSCOUNT=CONST(LL)+1,G1,XX AND ISLASTBAR,G1,0),,COLOR408000,DOTLINE;高2:DRAWLINE(XX AND CURRBARSCOUNT=CONST(LL)+1,G2,XX AND ISLASTBAR,G2,0),,COLOR408000,DOTLINE;高1:DRAWLINE(XX AND CURRBARSCOUNT=CONST(LL)+1,G3,XX AND ISLASTBAR,G3,0),,COLOR408000,DOTLINE;A:=SX AND CURRBARSCOUNT=CONST(HH)+15;B:=SX AND CURRBARSCOUNT=CONST(HH)+3;A1:=XX AND CURRBARSCOUNT=CONST(HH);B1:=XX AND CURRBARSCOUNT=CONST(LL)+3;DRAWTEXT(A,G*0.998,VARCAT(VARCAT('区间振幅:',VAR2STR((G-D)/D*100,2)),'%,')),COLORFF0080;DRAWNUMBER(B,D1,D1),COLORFF0080;DRAWNUMBER(B,D2,D2),COLORFF0080;DRAWNUMBER(B,D3,D3),COLORFF0080;DRAWTEXT(A1,G*0.98,VARCAT(VARCAT('区间振幅:',VAR2STR((G-D)/D*100,2)),'%,')),COLOR408000;DRAWNUMBER(B1,G1,G1),COLOR408000;DRAWNUMBER(B1,G2,G2),COLOR408000;DRAWNUMBER(B1,G3,G3),COLOR408000;波1:=12;高:=5;低:=10;高选:=1;低选:=1;波2:=1;PURC:=CONST(FINDHIGH(H,0,高*5,高选));PLZ:=CONST(BARSLAST(PURC=H))+1;顶X:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));QQT:=CONST(FINDLOW(L,0,低*10,低选));PLL:=CONST(BARSLAST(QQT=L))+1;低X:=CONST(IF(PLL=1,L,REF(L,PLL-1)));顶点:=顶X,COLORRED;底点:=低X,COLORRED;波动速率:=100*((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))/(PLL-PLZ),NODRAW,COLORMAGENTA;波动幅度:=((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))*100;波动价位:=(顶X-低X)*(IF(PLL>PLZ,1,-1));BPURC:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ< PLL,高,低)))*5,波2));BPLZ:=CONST(BARSLAST(BPURC=H))+1;BQQT:=CONST(FINDLOW (L,0,(IF(波1>0,波1,IF(PLZ< PLL,高,低)))*5,波2));BPLL:=CONST(BARSLAST(BQQT =L))+1;BLC1:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ< PLL,高,低)))*5,波2));BLC2:=CONST(BARSLAST(BPURC=H))+1;BLC顶X:=CONST(IF(BPLZ=1,H,REF(H,BPLZ-1)));BLC3:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ< PLL,高,低)))*5,波2));B6C4:=CONST(BARSLAST(BQQT=L))+1;BLC低X:=CONST(IF(BPLL=1,L,REF(L,BPLL-1)));BASE:=IF(波动速率< 0,BLC顶X,BLC低X),COLORRED;BLCX:=IF(波动速率< 0,-1,1);BLCZ:=(顶点-底点)*(IF(PLL>PLZ,1,-1));B12:=BASE+(BLCZ*0.775),COLORRED;B14:=BASE+(BLCZ*0.868),COLORRED;B200:=BASE+(BLCZ*1 ),COLORRED;XZDD:=IF(PLL>PLZ,BPLL,BPLZ);X1:=SX AND CURRBARSCOUNT=XZDD;STICKLINE(SX AND CURRBARSCOUNT=XZDD ,L,B200,0,-1),COLORGREEN;DRAWNUMBER(X1,B12,B12),COLORGREEN;DRAWNUMBER(X1,B14,B14),COLORGREEN;DRAWNUMBER(X1,B200,B200),COLORGREEN;顶1:DRAWLINE(SX AND CURRBARSCOUNT=XZDD,B12,SX AND ISLASTBAR,B12,0),,COLORGREEN,DOTLINE;顶2:DRAWLINE(SX AND CURRBARSCOUNT=XZDD,B14,SX AND ISLASTBAR,B14,0),,COLORGREEN,DOTLINE;顶3:DRAWLINE(SX AND CURRBARSCOUNT=XZDD,B200,SX AND ISLASTBAR,B200,0),,COLORGREEN,DOTLINE;
