求把通达信抄底宝指标,改成反向的逃顶指标.提醒底改成提醒顶.

Question

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);
VAR10:=IF(MA(CLOSE,58),1,0);
QZG: EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10, COLORRED;
QZG2:EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/-618*VAR10, COLORYELLOW;
IF(QZG>REF(QZG,1),QZG,DRAWNULL),COLORGREEN;
这是我改的,最下边那抄底宝1.改了这一段.达不到原版那样清楚.
VARD:=EMA(IF(CLOSE*1.35>=VARA,VARC*10,VARC/10),3);
VARE:=HHV(HIGH,30); VARF:=LLV(VARD,30); VAR10:=IF(MA(CLOSE,58),1,0); QZG: EMA(IF(HIGH>=VARE,(VARD-VARF/2)*2,0),3)*618/VAR10, COLORRED;QZG2:EMA(IF(HIGH>=VARE,(VARD-VARF/2)*2,0),3)*-618/VAR10, COLORYELLOW;IF(QZG<REF(QZG,1),QZG,DRAWNULL),COLORGREEN;

Answer 1

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); 

VAR10:=IF(MA(CLOSE,58),1,0); 

QZG: EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10, COLORRED;

QZG2:EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/-618*VAR10, COLORYELLOW;

IF(QZG>REF(QZG,1),QZG,DRAWNULL),COLORGREEN;

VARC1:=SMA(ABS(HIGH-VARB),3,1)/SMA(MAX(HIGH-VARB,0),3,1)*100;

VARE1:=LLV(LOW,30); 

VARF1:=HHV(VARD,30); 

QZGQ: EMA(IF(HIGH>=VARF1,(VARD+VARF*2)/2,0),3)*0.8*VAR10, COLORFFFFFF;

QZG2Q:EMA(IF(HIGH>=VARF1,(VARD+VARF*2)/2,0),3)*-0.8*VAR10, COLORFFFFFF;

IF(QZGQ>REF(QZGQ,1),QZGQ,DRAWNULL),COLORFF9900;

追问

确实动过手.但不完美,信号不明显,没原来那么清楚啊,还能再改进吗?

追答

改不了啦，这个已经是最优的效果了

Answer 2

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);
VAR10:=IF(MA(CLOSE,58),1,0);
QZG: EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10, COLORRED;
QZG2:EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/-618*VAR10, COLORYELLOW;
IF(QZG>REF(QZG,1),QZG,DRAWNULL),COLORGREEN;
{短线顶，未必是真的顶，可能顶上还有顶}