【通达信源码分享】精品指标公式－见红有喜4代源码

公式源码：

VAR1:=1;

VAR3:=LLV(HIGH,240);

VAR4:=100*(CLOSE-VAR3)/VAR3*VAR1;

VAR5:=REF(LLV(CLOSE,480),1)*VAR1;

VAR6:=REF(HHV(CLOSE,480),1)*VAR1;

VAR7:=100*(CLOSE-VAR5)/(VAR6-VAR5)*VAR1;

VAR8:=(CLOSE-LLV(CLOSE,981))/(HHV(CLOSE,981)-LLV(CLOSE,981))*100*VAR1;

VAR9:=(CLOSE-LLV(CLOSE,393))/(HHV(CLOSE,393)-LLV(CLOSE,393))*100*VAR1;

VARA:=(CLOSE-LLV(LOW,981))/(HHV(HIGH,981)-LLV(LOW,981))*100*VAR1;

VARB:=(CLOSE-LLV(LOW,393))/(HHV(HIGH,393)-LLV(LOW,393))*100*VAR1;

VARC:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5)/4*VAR1;

VARD:=IF(VARC>23.16,VARC,0)*VAR1;

VARE:=VARC<1*VAR1;

VARF:=VARD*VAR1;

VAR10:=VAR4<0 AND VAR7<0;

VAR11:=1;

VAR12:=(HIGH+LOW+CLOSE*2)/4*VAR11;

VAR13:=EMA(VAR12,21);

VAR14:=STD(VAR12,21);

VAR15:=((VAR12-VAR13)/VAR14*100+200)/4*VAR11;

VAR16:=(EMA(VAR15,89)-25)*1.56*VAR11;

VAR17:=EMA(VAR16,5)*1.22*VAR11;

VAR18:=EMA(VAR17,3)*VAR11;

VAR19:=3*VAR17-2*VAR18*VAR11;

VAR1A:=IF(CROSS(VAR19,VAR17) AND CROSS(VAR19,VAR18) AND CROSS(VAR17,VAR18),1,0);

VAR1B:=IF(CROSS(VAR17,VAR19) AND CROSS(VAR18,VAR19) AND CROSS(VAR18,VAR17),1,0);

买点:=IF(FILTER(VAR8=0 AND VARE AND VAR10 AND VAR1A,5)=1,10,0);

卖点:=IF(FILTER(VAR8=100 AND VARF AND VAR1B,5)=1,10,0);

VAR1C:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),13)/4*VAR1;

VAR1D:=EMA(CLOSE,2)-EMA(CLOSE,89)*VAR1;

VAR1E:=EMA(VAR1D,30)*VAR1;

VAR1F:=2*(VAR1D-VAR1E)*10*VAR1;

VAR20:=POW(VAR1F,3)*0.1+POW(VAR1F,2)*VAR1;

VAR21:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));

VAR22:=EMA(VAR21*0.97,3)*VAR1;

VAR23:=(HIGH+LOW+CLOSE)/3*VAR1;

VAR24:=(VAR23-MA(VAR23,14))/(0.015*AVEDEV(VAR23,14))*VAR1;

VAR25:=IF(YEAR<9999 AND VAR1F>0.015,VAR20,0)/45*VAR1;

YZ:=VAR25/10,COLORRED;

VAR26:=EMA(CLOSE,2)-EMA(CLOSE,150);

VAR27:=EMA(VAR26,100);

VAR28:=2*(VAR26-VAR27);

VAR29:=POW(VAR28,3)*0.1+POW(VAR28,1);

VAR2A:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));

VAR2B:=EMA(VAR2A*0.97,3);

VAR2C:=(HIGH+LOW+CLOSE)/3;

VAR2D:=(VAR2C-MA(VAR2C,14))/(0.015*AVEDEV(VAR2C,14));

ZL:=IF(YEAR<9999 AND VAR28>0.1,VAR29,0)*5/10; 

绿柱持币:EMA((ZL+YZ),22),COLORWHITE,LINETHICK1;

红柱持股:IF(绿柱持币>REF(绿柱持币,1),绿柱持币,DRAWNULL),COLORRED,LINETHICK1;

STICKLINE(绿柱持币,0,绿柱持币,0.2,1),COLORWHITE;

STICKLINE(红柱持股,0,红柱持股,0.2,0),COLORRED;

高中:=HHV(绿柱持币,100);

DRAWTEXT(FILTER(高中,200),绿柱持币,'唯一授权(翔博软件)'),COLORRED;

录制:=MA(绿柱持币,3);