软件名称：[B]顺势而为及选股源码（通达信副图 源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-01-25 07:30:10
软件简介:

顺势而为

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*(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);
MOVEAVG:=MA(PR,5);
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:CROSS(PR- AMALOW>FFILTER,0.5);

[url=http://www.70822.com/soft/sort013/sort05/down-29635.html]顺势而为及选股源码（通达信副图 源码）[/url]