通达信〖问鼎拉升〗识别潜在拉升信号指标公式源码

VAR1:=IF((CLOSE>REF(CLOSE, 1)), 88, 0);
VAR2:=IF(((CLOSE)/(REF(CLOSE, 1))>1.05)AND((HIGH)/(CLOSE)< 1.01)AND(VAR1>0), 91, 0);
VAR3:=(FILTER((VAR2>90), 45)), COLORYELLOW;
VAR4:=(CLOSE-LLV(LOW, 9))/(HHV(HIGH, 9)-LLV(LOW, 9))*100;
VAR5:=SMA(VAR4, 3, 1);
VAR6:=SMA(VAR5, 3, 1);
VAR7:=3*VAR5-2*VAR6;
VAR8:=REVERSE(VAR7);
VAR9:=REF(MA(C, 1), 10)>REF(MA(C, 60), 10);
STICKLINE(VAR3, 150, 0, 4, 0), COLOR000099;
STICKLINE(VAR3, 150, 0, 2, 0), COLOR0000BB;
STICKLINE(VAR3, 150, 0, 1, 0), COLOR0000DD;
STICKLINE(VAR3, 150, 0, 0.9, 0), COLOR0000FF;
DRAWTEXT(VAR3>0, 130, '★问鼎拉升'), COLORYELLOW;
XG:=crOSS(VAR7, VAR8) AND VAR9;
STICKLINE(XG, 0, 30, 6, 0), COLORYELLOW;
STICKLINE(XG, 30, 60, 4, 0), COLORLIRED;
STICKLINE(XG, 60, 80, 2, 0), COLORLIBLUE;
DRAWTEXT(XG, 70, '★问鼎初开'), COLORYELLOW;
XG2:=COUNT(XG, 60)=4;
STICKLINE(XG2, 80, 100, 1, 0), COLORFF00FF;