S波段指标(通达信)

源码正文：

LC:=REF(CLOSE,1){XG51};
E:=-100*(HHV(HIGH,84)-CLOSE)/(HHV(HIGH,84)-LLV(LOW,84)){XG51};
顶:crOSS(-1,E)*7000,colorgreen{XG51};
DRAWTEXT(CROSS(0,E) , 6500,' 顶 ')colorgreen{XG51};
Varb:=SMA(maX(CLOSE-LC,0),7,1)/SMA(Abs(CLOSE-LC),7,1)*100{XG51};
Varc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100{XG51};
Vard:=BARSCOUNT(CLOSE){XG51};
底:( E<-98)*2000,COLORwhite{XG51};
DRAWTEXT(CROSS(1000,底) , 2100,' 底 ')colorgreen{XG51};
Var1:=(HHV(HIGH,n)-CLOSE)/(HHV(HIGH,n)-LLV(LOW,n))*1000-700{XG51};
Var2:=SMA(Var1,n,1)+100{XG51};
Var3:=(CLOSE-LLV(LOW,n))/(HHV(HIGH,n)-LLV(LOW,n))*10000{XG51};
Var4:=SMA(Var3,3,1){XG51};
Var5:=SMA(Var4,3,1)+100{XG51};
Var6:=Var5-Var2{XG51};
S:= IF(Var6>100,Var6-100,0){XG51};
stICKLINE(REF(S,1)<S,S,REF(S,1),8,1)colorred{XG51};
STICKLINE(REF(S,1)>S,S,REF(S,1),8,1)COLORBLUE{XG51};
a:=if((c-ref(c,1))/ref(c,1)>0.98,ref(c,1),L){XG51};
b:=if((c-ref(c,1))/ref(c,1)<-0.98,ref(c,1),H){XG51};
天时:cross((CLOSE-REF(CLOSE,12))/REF(CLOSE,12),0){XG51};
地利:cross((((HIGH + LOW + CLOSE)/3)-MA(((HIGH + LOW + CLOSE)/3),12))
/(0.015*AVEDEV(((HIGH + LOW + CLOSE)/3),12)),0)*-1{XG51};
人和:ema(CLOSE,12) - EMA(CLOSE,26){XG51};
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))){XG51};
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))){XG51};
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34)){XG51};
F:DRAWTEXT(CROSS(VAR200,MA(VAR300,5)),LOW*0.98,'利多'),,,COLOREE00EE{XG51};
洗盘:DRAWTEXT(cross(A,0),-0.3,'异动'),colorgreen{X_G-5_1_C_N_{};

源码正文：

Vvol:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW{XG51};
stICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,-1,-1),COLOR00C0C0{XG51};
VOLUME:VOL,VOLSTICK{XG51};
虚换手:VVOL/FInaNCE(7)*10000{XG51};
VAR1:=VOL/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
主买:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+ (CLOSE-LOW)),VOL/2)),COLORWHITE,POINTDOT{XG51};
主卖:IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN- LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT{XG51};
STICKLINE(主买>0,0,主买,2,0),COLORWHITE{XG51};
STICKLINE(主卖>0,0,主卖,0.5,0),COLORYELLOW{XG51};
净买:(主买-主卖)/10000{XG51};
虚量:VVOL/10000{X*G-5*1*C*N*{};