通达信振荡指标(通达信)

源码正文：

stICKLINE(100,120,50,5,0),COLOR669900{XG51};
STICKLINE(50,50,0,5,0),COLOR666600{XG51};
STICKLINE(1,0,-50,5,0),COLOR006600{XG51};
STICKLINE(-50,-50,-120,5,0),COLOR003300{XG51};
VARC:=SMA(((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10)))*(100),4,1){XG51};
VARD:=Sma(((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11)))*(100),4,1){XG51};
VARE:=SMA(((CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12)))*(100),4,1){XG51};
VARF:=SMA(((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13)))*(100),4,1){XG51};
VAR10:=SMA(((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14)))*(100),4,1){XG51};
VAR11:=SMA(((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100),4,1){XG51};
VAR12:=SMA(((CLOSE-LLV(LOW,16))/(HHV(HIGH,16)-LLV(LOW,16)))*(100),4,1){XG51};
VAR13:=SMA(((CLOSE-LLV(LOW,17))/(HHV(HIGH,17)-LLV(LOW,17)))*(100),4,1){XG51};
VAR14:=SMA(((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18)))*(100),4,1){XG51};
VAR17:=SMA(((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20)))*(100),4,1){XG51};
VAR18:=(HIGH+LOW+CLOSE)/(3){XG51};
VAR19:=(VAR18-MA(VAR18,14))/((0.015)*(AVEDEV(VAR18,14))){XG51};
VAR1A:=(VAR18-MA(VAR18,70))/((0.015)*(AVEDEV(VAR18,70))){XG51};
VAR1B:=IF((VAR19>=150) AND (VAR19<200) AND (VAR1A>=150) AND (VAR1A<200),(-10),0){XG51};
VAR1C:=IF((VAR19<=(-150)) AND (VAR19>(-200)) AND (VAR1A<=(-150)) AND (VAR1A>(-200)),10,0){XG51};
VAR1D:=((CLOSE-MA(CLOSE,13))/(MA(CLOSE,13)))*(100){XG51};
VAR1E:=100-Abs(VAR1D){XG51};
趋势: (SMA((VAR11-50)*(2),3,1)+SMA((VARD-50)*(2),3,1))/(2),COLORWHITE,LINETHICK2{XG51};
D: ((3)*(VAR17-50))*(2)-(2)*(SMA((VAR17-50)*(2),3,1)),COLOR00FFFF{XG51};
警1:IF((BARSCOUNT(CLOSE)<70),120,IF((VAR1A>=200) AND (VAR19>=150),(-15),VAR1B)+120),COLORCCFF66{XG51};
警2:IF((BARSCOUNT(CLOSE)<13),100,IF((VAR1E<88) AND (VAR1D>0),85,100)),COLORCCFFCC{XG51};
警3:IF((BARSCOUNT(CLOSE)<13),(-100),0-IF((VAR1E<92) AND (VAR1D<0),85,100)),COLORCYAN{XG51};
警4:IF((BARSCOUNT(CLOSE)<70),(-120),IF((VAR1A<=(-200)) AND (VAR19<=(-150)),15,VAR1C)-120),COLORYELLOW{XG51};
VAR50:=(HIGH+LOW+CLOSE)/3{XG51};
VAR60:=(VAR50-MA(VAR50,10))/(0.015*AVEDEV(VAR50,10)){XG51};
VAR70:=(VAR50-MA(VAR50,30))/(0.015*AVEDEV(VAR50,30)){XG51};
VAR80:=IF(VAR60>=150 AND VAR60<200 AND VAR70>=150 AND VAR70<200,100,0){XG51};
VAR90:=IF(VAR60<=-150 AND VAR60>-200 AND VAR70<=-150 AND VAR70>-200,-100,VAR80){XG51};
警5: (IF((VAR70>=200 AND VAR60>=150),100,IF(VAR70<=-200 AND VAR60<=-150,-100,VAR90))+0.01),COLORSTICK,COLORWHITE,LINETHICK1{XG51};
VARK1:=3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1),3,1){XG51};
VARK2:=ema(VARK1,3), COLORBLacK,COLORBLUE{XG51};
STICKLINE(VARK2<=13,-20,-18,8,0),COLOR0066FF{XG51};
STICKLINE(VARK2<=13 AND (VARK2-REF(VARK2,1))/REF(VARK2,1)*100>13,-20,-10,1,0),COLORLIMAGENTA{X-G+5?1-C-N-{};

源码正文：

R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100){XG51};
K:=ema(R,3){XG51};
D:=Ema(K,3){XG51};
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1){XG51};
N:=IF((陡峭度 > 0.35),6,65){XG51};
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110)){XG51};
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110)){XG51};
获利盘:=(WINNER(CLOSE))*(100){XG51};
获利线:=FORCAst(获利盘,7){XG51};
线:=(FORCAST(VAR1A,7))*((DATE < 20070110)){XG51};
满仓:=((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(获利盘 < 60),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0)){XG51};
DRAWTEXT(满仓,LOW*0.98,'满仓'),ColorRED{XG51};
轻仓:=IF((获利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0){XG51};
DRAWTEXT(轻仓,LOW*0.98,'轻仓'),ColorYELLOW{XG51};
出击:=crOSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(获利盘 < 70),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0){XG51};
DRAWTEXT(出击,LOW*0.98,'出击'),colorMAGENTA{XG51};
进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80){XG51};
进二:=CROSS(线,获利线) and (D > 30) and (获利线 > 25) and (D > REF(D,1)){XG51};
低进:=IF(进一 and (D > 获利线),进二,进一){XG51};
DRAWTEXT(低进,LOW*0.98,'低进'),ColorRED{XG51};
DRAWTEXT(进二,LOW*0.99,'高进'),ColorGRAY{XG51};
狂喜:=(CROSS(VAR1,(-2))){XG51};
DRAWTEXT(狂喜,(LOW*0.98),'要涨停'),coloryellow{XG51};
狂喜过望:=((VAR1 = 0)){XG51};
恐慌:=(VAR1 < -94);
DRAWTEXT(恐慌,(LOW*0.98),'恐慌'),ColorGREEN{XG51};
极度恐慌:=(-40)*(VAR1 = (-100));
DRAWTEXT(极度恐慌,(LOW*0.95),'极度恐慌'),ColorWHITE{XG51};
半仓:=(CROSS(VAR1,(-94)) and (COUNT(恐慌,5) > 0) and (N = REF(N,1)) and IF((N = 6),(获利盘 < 60),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0)){XG51};
DRAWTEXT(半仓,LOW*0.95,'半仓'),ColorWHITE{XG51};
加仓:=(CROSS(K,20) and (COUNT(半仓,5) > 0)){XG51};
DRAWTEXT(加仓,LOW*0.98,'加仓'),ColorRED{XG51};
背离:=(COUNT(恐慌,2) > 0) and (CLOSE < REF(CLOSE,1)) and (VAR1 > REF(VAR1,1)){XG51};
DRAWICON(背离,HIGH*1.02,1),ColorGRAY;

DD:=FInaNCE( 1){XG51};
SS:=FINANCE( 7){XG51};
FF:=FINANCE(18){XG51};
GG:=FINANCE(33){XG51};
HH:=DYNAINFO(39){XG51};
IF C>0 AND DISPSTATUS=2 THEN
DRAWTEXTREL(20,30,'总股本:'+NUMTOSTRN(DD,0)+'万股' +' 流通A股:'+NUMTOSTRN(SS,0)+'万股'+' 市盈率:'+NUMTOSTRN(HH,2)+'%'+' 每股收益:'+NUMTOSTRN(GG,3)),COLORbbffff;

MA1:=(LOW+HIGH+CLOSE)/3{XG51};
MA2:= MA(MA1,2);
箱顶:HHV(MA2,13),coloryellow,LINETHICK2{XG51};
箱底:LLV(MA2,13),colorwhite,LINETHICK2{XG51};
五日均价:MA(C,5),colorred,LINETHICK1{XG51};
十日均价:MA(C,10),colorwhite,LINETHICK1;
二十日均价:MA(C,20),colorgreen,LINETHICK1{XG51};
六十日均价:MA(C,60),coloree66ee,LINETHICK1{X-G_5!1-C-N-{};