通达信顺势而为及源码

来函数检测结果如下：
该公式没有未来函数

R:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));

PERIODD:=10;

EMA1:=EMA(R,PERIODD);

EMA2:=EMA(EMA1,5);

DIFFERENCE:=EMA1-EMA2;

ZEROLAGEMA:=EMA1+DIFFERENCE;

PR:100-ABS(ZEROLAGEMA) COLORRED LINETHICK1;

MOVEAVG:MA(PR,5) COLORWHITE LINETHICK1;

K:=15;{股票指标网}

FFILTER:=(K/100)*STD(PR-REF(PR,1),10); 

XA:=IF(PR<REF(PR,1),PR,0); 

XN:=BARSLAST(XA>0 ); 

AMALOW:=REF(PR,XN); 

YA:=IF(PR>REF(PR,1),PR,0); 

YN:=BARSLAST(YA>0) ; 

AMAHIGH :=REF(PR,YN); 

RR:=IF( AMAHIGH-PR>FFILTER,-1,0) ; 

TT:=IF( PR- AMALOW>FFILTER,1,RR) ; 

{PARTLINE(TT=1,PR) , COLORRED , LINETHICK2; 

PARTLINE(TT= -1,PR) , COLORGREEN , LINETHICK2; 

PARTLINE(TT= 0,PR) , COLORWHITE , LINETHICK2;}

IF(TT=1,PR,DRAWNULL), COLORRED , LINETHICK4;

IF(TT=-1,PR,DRAWNULL), COLORGREEN , LINETHICK2; 

IF(TT=0,PR,DRAWNULL), COLORWHITE , LINETHICK2;

80 COLORBROWN LINETHICK1;

20 COLORBROWN LINETHICK1;

 

原理解析：
R赋值:-100*(14日内最高价最高值-收盘价)/(14日内最高价最高值-14日内最低价最低值)


PERIODD:=10


EMA1:=R的PERIODD日指数移动平均


EMA2:=1的5日指数移动平均


DIFFERENCE:=EMA1-EMA2


ZEROLAGEMA:=EMA1+DIFFERENCE


P输出R:100-ZEROLAGEMA的绝对值 COLORRED LINETHICK1


MOVEAVG:PR的5日简单移动平均 COLORWHITE LINETHICK1


K:=15
{股票指标网}

FFILTER赋值:(K/100)*PR-1日前的PR的10估算标准差


XA:=IF(PR<1日前的PR,PR,0)


XN:=上次XA>0 距今天数


AMA最低价:=XN日前的PR


YA:=IF(PR>1日前的PR,PR,0)


YN:=上次YA>0距今天数


AMA最高价 :=YN日前的PR
如果 AMA最高价-PR>FFILTER返回-1否则返回0
如果 PR- AMA最低价>FFILTER返回1否则返回RR


{PARTLINE(TT=1,PR) , COLORRED , 线宽为2


PARTLINE(TT= -1,PR) , COLORGREEN , 线宽为2


PARTLINE(TT= 0,PR) , COLORWHITE , 线宽为2
如果TT=1返回PR否则返回DRAWNULL
如果TT=-1返回PR否则返回DRAWNULL
如果TT=0返回PR否则返回DRAWNULL


80 COLORBROWN LINETHICK1


20 COLORBROWN LINETHICK1