通达信发个自用指标，有点长

以下是通达信发个自用指标，有点长

通达信发个自用指标，有点长

高:=REFDATE(HHV(H,ZHOU),DATE);
低:=REFDATE(LLV(L,ZHOU),DATE);
H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382,COLORFF6198;
H3:=高-(高-低)*0.5,COLORFFFFFF;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
STICKLINE(CURRBARSCOUNT=13,高,高,100,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,-1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,-1),COLORCCCCCC;
DRAWTEXT(CURRBARSCOUNT=1,高,CON2STR(高,0)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,H1,CON2STR( H1,0)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,H2,CON2STR(H2,0)),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=1,H3,CON2STR(H3,0)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,H4,CON2STR(H4,0)),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=1,H5,CON2STR(H5,0)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,低,CON2STR(低,0)),COLORRED;
STICKLINE(CURRBARSCOUNT=13,H3,H3,100,-1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,-1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=13,H5,H5,100,-1),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=13,低,低,100,-1),COLORRED;
RSV90:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
K90:=SMA(RSV90,3,1);
D90:=SMA(K90,3,1);
STICKLINE(K90>D90,L,H,2,0),COLORRED;
STICKLINE(D90>K90,H,L,2,0),COLOR00FF00;
买进:=IF(D90<25 AND CROSS(K90,D90) ,1,0);
DRAWTEXT(买进>0 , L*0.922,'<-4级买～'),COLORRED;
AA3:=LLV(LOW,34);
BB3:=HHV(HIGH,30);
DD3:=(EMA(((CLOSE-AA3)/(BB3-AA3))*(4),4))*(25);
绝谷:=(((DD3-LLV(DD3,21))/(HHV(DD3,21)-LLV(DD3,21)))*(4))*(25);
杀入:=IF(CROSS(绝谷,90) AND (DD3<40),70,0),COLORFFFF00;
DRAWTEXT(杀入>0,L*0.933,'<-7级买入'),COLORWHITE;
 

RSV67:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
K:=SMA(RSV67,9,1);
D:=SMA(K,3,1);
趋势J1:=3*K-2*D,COLORRED;
趋势J2:=EMA(K,3),LINETHICK1;
买人:=IF(趋势J1<30,趋势J1,DRAWNULL),COLORGREEN,LINETHICK5;
买人2:=CROSS(买人,趋势J2);
DRAWTEXT(买人2,L*0.909,'<-5级买'),COLORRED;
 

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
DRAWTEXT(REF(CROSS(DEA,DIF),1) AND CROSS(DIF,DEA),L*0.97,'<-5级买'),COLORMAGENTA;

VARQQ1:=LLV(LOW,36);
VARQQ2:=HHV(HIGH,20);
游资:=EMA((CLOSE-VARQQ1)/(VARQQ2-VARQQ1)*4,4)*25;
DRAWTEXT(CROSS(游资,40),L*0.966,'<-3级买'),COLORRED;

{}

WAR1:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*200;
WAR2:=SMA(WAR1,3,1);
WAR3:=SMA(WAR2,3,1);
WAR4:=3*WAR2-2*WAR3;
WAR5:=LLV(LOW,5);
WAR6:=HHV(HIGH,5);
WAR7:=EMA((CLOSE-WAR5)/(WAR6-WAR5)*100,4)*2;
WAR8:=EMA(0.667*REF(WAR7,1)+0.333*WAR7,2);
WAR9:=3*WAR7-2*WAR8;
WARA:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
WARB:=POW(MA(LOW,5),2)+MA(LOW,5);
WARC:=POW(MA(HIGH,5),2)+MA(HIGH,5);
WARD:=(WARA-LLV(WARB,64))/(HHV(WARC,64)-LLV(WARB,64))*150+65-10;
WARE:=SMA(WARD,3,1)*1.5-100;
WARF:=SMA(WARE,3,1);
WAR10:=3*WARE-2*WARF;
WAR11:=(HIGH+LOW+CLOSE*2)/4;
WAR12:=EMA(WAR11,13);
WAR13:=STD(WAR11,13);
WAR14:=(WAR11-WAR12)*100/WAR13;
WAR15:=EMA(WAR14,5);
WAR16:=EMA(WAR15,13);
WAR17:=EMA(WAR15,13)+200-100;
WAR18:=EMA(WAR17,10);
WAR19:=3*WAR17-2*WAR18;
WAR1A:=WAR2+WAR7+WARE+WAR17;
WAR1B:=WAR3+WAR8+WARF+WAR18;
WAR1C:=WAR4+WAR9+WAR10+WAR19;
WAR1D:=(HIGH+LOW+CLOSE)/3;
WAR1E:=AMOUNT/VOL/100;
WAR1F:=SUM(AMOUNT,5)/SUM(VOL,5)/100;
WAR20:=(WAR1D-MA(WAR1D,34))/(0.015*AVEDEV(WAR1D,34));
WAR21:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
WAR22:=(HIGH+LOW+CLOSE+WAR1D)/4;
WAR23:=EMA(WAR22,24);
WAR24:=STD(WAR22,24);
WAR25:=(WAR22-WAR23)/WAR24*100;
WAR26:=(WAR1D-MA(WAR1D,24))/(0.015*AVEDEV(WAR1D,24));
WAR27:=EMA(WAR25,5);
WAR28:=(WAR1E-MA(WAR1E,21))/(0.015*AVEDEV(WAR1E,21));
WAR29:=(WAR1F-MA(WAR1F,90))/(0.015*AVEDEV(WAR1F,90));
WAR2A:=((WAR29+WAR28+WAR27+WAR26+WAR20)/5+165)/4;
WAR2B:=(WAR1A+WAR1B+WAR1C*30)/32/5-15;
WAR2C:=(WAR2A+WAR2B)/2/1.1;
短线:= WAR2C;
MID:=MA(短线,26);
UPPER:= MID+2*STD(短线,26);
{LOWER: MID-2*STD(短线,26), , COLORFFFFFF; }
DRAWTEXT(CROSS(短线,MID),L*0.97,'<-4级买'),COLORYELLOW;
{DRAWICON(CROSS(短线,LOWER),LOWER*0.97,3);}

VBR1:=((LLV(LOW,5) = LLV(LOW,45)) AND (CLOSE >= (OPEN * 1.04)));
VBR2:=(CLOSE > ((REF(HIGH,1) + REF(LOW,1)) / 2));
 

DRAWTEXT(VBR1 AND VBR2,L*0.987,'<-3级买'),COLORRED;
 

VARW2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VARW3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWTEXT(CROSS(VARW2,MA(VARW3,6)),(LOW * 0.998),'<-6级买'),COLORWHITE;
VARW1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
DRAWTEXT(CROSS(MA(VARW3,6),VARW1),(HIGH * 1.02),'<-4级卖 '),COLORFFFF34;
 

A27:=REF(LOW,1);

A28:=((SMA(ABS((LOW - A27)),3,1)) / (SMA((MAX((LOW - A27),0)),3,1))) * 100;

A29:=EMA((IF((CLOSE * 1.2),(A28 * 10),(A28 / 10))),3);

A30:=LLV(LOW,38);

A31:=HHV(A29,38);

A32:=IF((LLV(LOW,90)),1,0);

A33:=((EMA((IF((LOW <= A30),((A29 + (A31 * 2)) / 2),0)),3)) / 618) * A32;

DRAWTEXT(FILTER(A33>1,8),L*0.963,'<--筑底'),COLORYELLOW;

工作线:=EMA(C,14);
止盈线:=EMA(C,7),LINETHICK1,COLORGRAY;
工作区:=IF(C>=工作线 AND EMA(C,14)>=EMA(C,25),工作线,DRAWNULL), COLORRED,LINETHICK2;
生命线:=EMA(C,25),COLORYELLOW;
DRAWTEXT(CROSS(工作线,生命线),L*0.903,'<-2级买～'),COLORFF6EB4;
DRAWTEXT(CROSS(C,生命线) AND C>EMA(C,14),L*0.905,'<-3级买'),COLORFF1493;
DRAWTEXT(COUNT(C<EMA(C,7),2)=2 AND EMA(C,7)>EMA(C,14) AND COUNT(C>止盈线,6)>=3,H*1.05,'<-3级卖'),COLOR32CD32;

{}
DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA1:=EMA(DIF1,9);
AAA1:=(DIF1-DEA1)*2*60;
AAA上:=IF(AAA1>REF(AAA1,1),AAA1,DRAWNULL),STICK,COLORRED,LINETHICK8;
主力:=AAA1-REF(AAA1,1),COLORRED;
MM:=主力>30 AND 主力<70 AND AAA上>0 ;
DRAWTEXT(MM,L*0.97,'<-3级涨'),COLORFF00FF;
MM3:=CROSS(主力,2) AND CROSS(AAA上,0.5) AND 主力>AAA上 AND 主力<15;
DRAWTEXT(MM3,L*(0.958),'<-关注'),COLORFFFF00;
MM1:=主力>15 AND 主力<30 AND AAA上>0;
DRAWTEXT(MM1,L*(0.968),'<-1级涨'),COLORYELLOW;
MM2:=主力>80 AND AAA上>0 ;
DRAWTEXT(MM2,L*(0.978),'<-2级涨'),COLORRED;
{WUMING}
VVAR1:=(C-EMA(C,7))/EMA(C,7);
VVAR2:=EMA(EMA(VVAR1,3),3);
VVAR3:=EMA(EMA(VVAR1,3),2);
VVAR4:=100*( VVAR2+ VVAR3);
VVAR5:=EMA(VVAR4,2.5);
BI:=100*(H+L)/2/EMA(C,17)-100;
BUY1:=VVAR4>REF(VVAR4,1) AND REF(VVAR4,1)<REF(VVAR4,2) AND REF(VVAR4,2)<REF(VVAR4,3);
BUY2:=REF(BI,1)>0 AND BUY1 AND VVAR4<-2;
BUY3:=REF(BI,1)<0 AND BUY1 AND REF(VVAR4,1)<-3;
BUY4:=VVAR4<0 AND CROSS(VVAR4,VVAR5) AND BUY1;
BUY:=(BUY2 OR BUY3 OR BUY4) AND (EMA(INDEXC,5)>REF(EMA(INDEXC,5),1) OR VVAR4>=REF(VVAR4,1));
DRAWTEXT(BUY,L*0.975,'<-3级买!'),COLORRED;
AA:=EMA(C,5)-EMA(C,13);
BBP:=EMA(AA,3);
X:=AA>REF(AA,1); Y:=REF(AA,3)>=REF(AA,2);Z:=REF(AA,2)>=REF(AA,1);Z1:=AA<BBP;
注意:=X AND Y AND Z AND Z1 ;
DRAWTEXT(注意,L*0.954,'<-2级买!'),COLORYELLOW;
 

快线:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
慢线:=SMA(快线,3,1);
空:=SMA(慢线,3,1);
DRAWTEXT(BARSLAST(CROSS(慢线,空))<9 AND BARSLAST(CROSS(空,慢线))<9 AND CROSS(慢线,空) AND 慢线<20,L*0.967,'<-4级买'),COLOR00FFFF;
DRAWTEXT(BARSLAST(CROSS(慢线,快线))>=3 AND CROSS(快线,慢线) AND 慢线<30,L*0.966,'<-3级买'),COLORYELLOW;
 

MA18:=MA(CLOSE,18);
MTM2:=C-REF(C,1);
DX2:=100*EMA(EMA(MTM2,6),6)/EMA(EMA(ABS(MTM2),6),6);
买:=LLV(DX2,2)=LLV(DX2,7) AND COUNT(DX2<0,2) AND CROSS(DX2,MA(DX2,2));
DRAWTEXT(FILTER(买=1,5),LOW*0.97,'<-1级买'),COLORRED;
加1:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18);
DRAWTEXT(加1,LOW*0.99,'<-3级买'),COLORCC66FF;

{WUMING}
MA05:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA30:=MA(C,30);
五日乖离率:=(C-MA05)/MA05*100;
BB05:=ATAN((MA05/REF(MA05,1)-1)*100)*180/3.1416;
速度5:=SMA(EMA((MA05-REF(MA05,1))/REF(MA05,1),3)*100,3,1);
加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;

BB10:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416;

三拾日乖离率:=(C-MA30)/MA30*100,NODRAW;

BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416;
强势狙击:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND MA05>REF(MA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND MA10>REF(MA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) ;
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>MA30 OR O>MA30) AND MA05<REF(MA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND MA10<REF(MA10,1),10);

JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND MA10>REF(MA10,1) ;
减仓:=FILTER(JC,10);
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND MA05>REF(MA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<MA30;
买入BA:=FILTER(MR,10);

DRAWTEXT(买入BA,LOW*0.96,'<-1级买'),COLORYELLOW;
DRAWTEXT(清仓 ,HIGH*1.00,'<-3级卖'),COLORGREEN;
{WUMING}

TH:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),21);
TL:=SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),21);
TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),21);
VAR0:=100*(TH*2+TQ)/(TL*2+TQ);
VAR1W:=MA(VAR0,5);
W:=CROSS(VAR0,VAR1W);
WL1:=VAR1W<100;
WL2:=VAR1W<150 AND VAR1W>REF(VAR1W,1);
WLT1:=W AND WL1;
WLT2:=W AND WL2;
TJ1:=FILTER(WLT1,5);
TJ2:=FILTER(WLT2,8);
DRAWTEXT(TJ1,L*0.938,'<--1级买'),COLORRED;

{满};