GBS筹码方向副图指标 通达信 源码 附图

{GBS筹码方向}
{通达信副图}

VAR1:=1;
VAR3:=MA(CLOSE,75);
VAR4:=100-ABS((CLOSE-VAR3)/VAR3*100);
VAR5:=LLV(LOW,75);
VAR6:=HHV(HIGH,75);
VAR7:=(VAR6-VAR5)/100;
VAR8:=SMA((CLOSE-VAR5)/VAR7,120,1);
VAR9:=SMA((OPEN-VAR5)/VAR7,120,1);
VARA:=3*VAR8-2*SMA(VAR8,100,1);
VARB:=3*VAR9-2*SMA(VAR9,100,1);
VARC:=100-VARB;
空方: (100-VARA)*VAR1,LINETHICK2,COLORBLUE;
VARD:=空方>VAR4;
VARE:=REF(LOW,1)*0.9;
VARF:=LOW*0.9;
VAR11:=EMA(VARF,30);
VAR12:=CLOSE-REF(CLOSE,1);
VAR13:=MAX(VAR12,0);
VAR14:=ABS(VAR12);
VAR15:=SMA(VAR13,7,1)/SMA(VAR14,7,1)*100;
VAR16:=SMA(VAR13,13,1)/SMA(VAR14,13,1)*100;
VAR17:=BARSCOUNT(CLOSE);
VAR18:=SMA(MAX(VAR12,0),6,1)/SMA(ABS(VAR12),6,1)*100;
VAR19:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
VAR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
VAR1B:=SMA((SMA(VAR1A,4,1)-50)*2,3,1);
VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
VAR1D:=SMA(VAR1C,4,1);
VAR1E:=SMA(VAR1D,3,1);
VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
VAR20:=VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30
AND VAR1E<30 AND VAR11-CLOSE>=-0.25 AND VAR15<22 AND
VAR16<28 AND VAR17>50;
STICKLINE(VARD,VAR4,空方,1,0),COLORRED;
STICKLINE(VAR20,0,80,1,0),COLOR4D4DFF;
DRAWTEXT(VAR20=1 AND REF(VAR20,1)=0,75,'买进'),COLORYELLOW;
做底轴线:95,COLORYELLOW ,LINETHICK2 ;
做大底轴线:100,COLORMAGENTA ,LINETHICK3 ;
做顶轴线:0,COLORCYAN ,LINETHICK2 ;
中轴:50,COLORMAGENTA ,LINETHICK2 ;
VAR2高宝生:=(CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100;
多方: SMA(VAR2高宝生,75,1)+0.2,LINETHICK2,COLORWHITE;
DRAWTEXT(CROSS(空方,多方),多方,'卖卖卖'),COLORBLUE;
{DRAWTEXT(CROSS(多方,空方),空方,'买买买'),COLORWHITE;};