通达信主力跟踪及选股指标(源码)

VAR1:=EMA(HHV(HIGH,500),21);
VAR2:=EMA(HHV(HIGH,250),21);
VAR3:=EMA(HHV(HIGH,90),21);
VAR4:=EMA(LLV(LOW,500),21);
VAR5:=EMA(LLV(LOW,250),21);
VAR6:=EMA(LLV(LOW,90),21);
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR1*0.558+VAR2*0.558+VAR3*0.558)/6,21);
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR1*0.55+VAR2*0.55+VAR3*0.65)/6,21);
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR1*0.68+VAR2*0.68+VAR3*0.68)/6,21);
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21);
VARB:=REF(LOW,1);
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100;
VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC/10),3);
VARE:=LLV(LOW,30);
VARF:=HHV(VARD,30);
QZG1: EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618, COLORRED;
VARL:=REF(HIGH,1);
VARM:=SMA(ABS(HIGH-VARL),3,1)/SMA(MAX(VARL-HIGH,0),3,1)*100;
VARN:=EMA(IF(CLOSE*1.35>=VARA,VARM*10,VARM/10),3);
VARO:=HHV(HIGH,30);
VARQ:=HHV(VARN,30);
QZG2: EMA(IF(HIGH>=VARO,(VARN+VARQ*2)/2,0),3)/618, COLORGREEN;
RSV1:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*100;
AT1:=EMA(RSV1,3),COLORFFFF00,LINETHICK1;
BT1:=MA(AT1,3),COLORFFFF00,LINETHICK1;
KM1:=SMA(RSV1,3,1);
KT1:=SMA(KM1,3,1),LINETHICK1;
DT1:=SMA(KM1,11,1),LINETHICK1;
LOWV:=LLV(LOW,8);
HIGHV:=HHV(HIGH,8);
RSV21:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
VAR1J:=5;
VAR2J1:=((3 * SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1)) - (2 * SMA(SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1),3,1)));
LONG:=IF(VAR2J1*2.5>100,100,VAR2J1*2.5);
STICKLINE(CROSS(VAR2J1,VAR1J),0,LONG,2,0),COLORLIRED;
RSV2:=(HHV(HIGH,100)-CLOSE)/(HHV(HIGH,100)-LLV(LOW,100))*100;
AT2:=EMA(RSV2,3),COLORFFFF00,LINETHICK1;
BT2:=MA(AT2,3),COLORFFFF00,LINETHICK1;
KM2:=SMA(RSV2,3,1);
KT2:=SMA(KM2,3,1),LINETHICK1;
DT2:=SMA(KM2,11,1),LINETHICK1;
RSV22:=EMA((HIGHV-CLOSE)/(HIGHV-LOWV)*100,3);
VAR2J2:=((3 * SMA((((HHV(HIGH,27)-CLOSE) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1)) - (2 * SMA(SMA((((HHV(HIGH,27)-CLOSE) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1),3,1)));
SHORT:=IF(VAR2J2*2.5>100,100,VAR2J2*2.5);
STICKLINE(CROSS(VAR2J2,VAR1J),0,SHORT,2,0),COLORLIBLUE;

{
选股公式:

VAR1:=EMA(HHV(HIGH,500),21);
VAR2:=EMA(HHV(HIGH,250),21);
VAR3:=EMA(HHV(HIGH,90),21);
VAR4:=EMA(LLV(LOW,500),21);
VAR5:=EMA(LLV(LOW,250),21);
VAR6:=EMA(LLV(LOW,90),21);
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR1*0.558+VAR2*0.558+VAR3*0.558)/6,21);
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR1*0.55+VAR2*0.55+VAR3*0.65)/6,21);
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR1*0.68+VAR2*0.68+VAR3*0.68)/6,21);
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21);
VARB:=REF(LOW,1);
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100;
VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC/10),3);
VARE:=LLV(LOW,30);
VARF:=HHV(VARD,30);
QZG1:=EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618, COLORRED;
RSV1:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*100;
AT1:=EMA(RSV1,3),COLORFFFF00,LINETHICK1;
BT1:=MA(AT1,3),COLORFFFF00,LINETHICK1;
KM1:=SMA(RSV1,3,1);
KT1:=SMA(KM1,3,1),LINETHICK1;
DT1:=SMA(KM1,11,1),LINETHICK1;
LOWV:=LLV(LOW,8);
HIGHV:=HHV(HIGH,8);
RSV21:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
VAR1J:=5;
VAR2J1:=((3 * SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1)) - (2 * SMA(SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1),3,1)));
CROSS(VAR2J1,VAR1J);
}