通达信振荡副图源码
N:=1,30,9;
{背景}
STICKLINE(100,120,50,5,0),COLOR669900;
STICKLINE(50,50,0,5,0),COLOR666600;
STICKLINE(1,0,-50,5,0),COLOR006600;
STICKLINE(-50,-50,-120,5,0),COLOR003300;
VARC:=SMA(((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10)))*(100),4,1);
VARD:=SMA(((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11)))*(100),4,1);
VARE:=SMA(((CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12)))*(100),4,1);
VARF:=SMA(((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13)))*(100),4,1);
VAR10:=SMA(((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14)))*(100),4,1);
VAR11:=SMA(((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100),4,1);
VAR12:=SMA(((CLOSE-LLV(LOW,16))/(HHV(HIGH,16)-LLV(LOW,16)))*(100),4,1);
VAR13:=SMA(((CLOSE-LLV(LOW,17))/(HHV(HIGH,17)-LLV(LOW,17)))*(100),4,1);
VAR14:=SMA(((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18)))*(100),4,1);
VAR17:=SMA(((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20)))*(100),4,1);
VAR18:=(HIGH+LOW+CLOSE)/(3);
VAR19:=(VAR18-MA(VAR18,14))/((0.015)*(AVEDEV(VAR18,14)));
VAR1A:=(VAR18-MA(VAR18,70))/((0.015)*(AVEDEV(VAR18,70)));
VAR1B:=IF((VAR19>=150) AND (VAR19<200) AND (VAR1A>=150) AND (VAR1A<200),(-10),0);
VAR1C:=IF((VAR19<=(-150)) AND (VAR19>(-200)) AND (VAR1A<=(-150)) AND (VAR1A>(-200)),10,0);
VAR1D:=((CLOSE-MA(CLOSE,13))/(MA(CLOSE,13)))*(100);
VAR1E:=100-ABS(VAR1D);
趋势:(SMA((VAR11-50)*(2),3,1)+SMA((VARD-50)*(2),3,1))/(2),COLORRED,LINETHICK2;
D:((3)*(VAR17-50))*(2)-(2)*(SMA((VAR17-50)*(2),3,1)),COLOR00FFFF;
警1:IF((BARSCOUNT(CLOSE)<70),120,IF((VAR1A>=200) AND (VAR19>=150),(-15),VAR1B)+120),COLORCCFF66;
警2:IF((BARSCOUNT(CLOSE)<13),100,IF((VAR1E<88) AND (VAR1D>0),85,100)),COLORCCFFCC;
警3:IF((BARSCOUNT(CLOSE)<13),(-100),0-IF((VAR1E<92) AND (VAR1D<0),85,100)),COLORGREEN;
警4:IF((BARSCOUNT(CLOSE)<70),(-120),IF((VAR1A<=(-200)) AND (VAR19<=(-150)),15,VAR1C)-120),COLORBLUE;
{警戒区:}
VAR50:=(HIGH+LOW+CLOSE)/3;
VAR60:=(VAR50-MA(VAR50,10))/(0.015*AVEDEV(VAR50,10));
VAR70:=(VAR50-MA(VAR50,30))/(0.015*AVEDEV(VAR50,30));
VAR80:=IF(VAR60>=150 AND VAR60<200 AND VAR70>=150 AND VAR70<200,100,0);
VAR90:=IF(VAR60<=-150 AND VAR60>-200 AND VAR70<=-150 AND VAR70>-200,-100,VAR80);
警5:(IF((VAR70>=200 AND VAR60>=150),100,IF(VAR70<=-200 AND VAR60<=-150,-100,VAR90))+0.01),COLORSTICK,COLORRED,LINETHICK1;
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);
VARK2:=EMA(VARK1,3), COLORBLACK,COLORYELLOW;
STICKLINE(VARK2<=13,-20,-18,8,0),COLOR0066FF;
STICKLINE(VARK2<=13 AND (VARK2-REF(VARK2,1))/REF(VARK2,1)*100>13,-20,-10,1,0),COLORMAGENTA;
