辛苦老师修改一下 (文华财经WH6赢顺V6.7)

第一个

NOTEXT1:60,POINTDOT;
NOTEXT2:20,POINTDOT;
PDI:"DMI.PDI",DOTLINE,COLORMAGENTA;
MDI:"DMI.MDI",DOTLINE,COLORCYAN;
ADX:"DMI.ADX",LINETHICK2,COLORWHITE;
ADXR:"DMI.ADXR",LINETHICK2,COLORYELLOW;


空军战场:IF(MDI>REF(MDI,1) AND PDI<REF(PDI,1),ADX,DRAWNULL),LINETHICK2,COLORGREEN;
DRAWICON(空军战场>0,60,39);
红军战场:IF(MDI<REF(MDI,1) AND PDI>REF(PDI,1),ADX,DRAWNULL),LINETHICK2,COLORRED;
DRAWICON(红军战场>0,60,38);


出局:=REF(PDI,1)>60 AND REF(PDI,1)>REF(PDI,2) AND REF(PDI,1)>PDI;
DRAWTEXT(出局,PDI,'止'),COLORGREEN;
进场:=REF(PDI,1)<20 AND REF(PDI,1)<REF(PDI,2) AND REF(PDI,1)<PDI;
DRAWTEXT(进场,PDI,'启'),COLORRED;

顺势启动:=CROSS(ADX,ADXR),NODRAW;
DRAWTEXT(顺势启动,ADX,'顺'),COLORYELLOW;
DRAWICON(顺势启动,70,11);
逆势启动:=CROSS(ADXR,ADX),NODRAW;
DRAWTEXT(逆势启动,ADX,'反'),COLORYELLOW;
DRAWICON(逆势启动,70,12);


上攻:=CROSS(PDI,MDI),NODRAW;
回踩:=CROSS(MDI,PDI),NODRAW;
DRAWICON(上攻,PDI,1);
DRAWICON(回踩,PDI,2);

强势启动:=PDI>REF(PDI,1) AND PDI>ADX AND ADX>ADXR AND CROSS(ADX,ADXR) AND PDI>MDI AND EXIST(CROSS(PDI,MDI),3);
DRAWICON(强势启动,PDI,33);

 第二个

 
STICKLINE(C>0,20,20,1,0),COLORRED;
STICKLINE(C>0,50,50,10,0),COLOR0099FF;
STICKLINE(C>0,80,80,1,0),COLOR00bb00;

WR1:=100*(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21));
WR2:=100*(HHV(H,42)-C)/(HHV(H,42)-LLV(L,42));
WR3:=100*(HHV(H,63)-C)/(HHV(H,63)-LLV(L,63));
WR4:=100*(HHV(H,84)-C)/(HHV(H,84)-LLV(L,84));
WR5:=100*(HHV(H,105)-C)/(HHV(H,105)-LLV(L,105));
WR6:=100*(HHV(H,126)-C)/(HHV(H,126)-LLV(L,126));
WR:(WR1+WR2+WR3+WR4+WR5+WR6)/6,COLORMAGENTA,LINETHICK2;
swr:sMA(wr,21,1),COLORAAAA00,DOTLINE;
KC:=MAX(MAX(ABS(H-L),ABS(H-REF(C,1))),ABS(REF(C,1)-L));
MTR:=EMA(KC+SLOPE(KC,21),21);
HD :=H-REF(H,1);
LD :=REF(L,1)-L;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0)+SLOPE(IF(HD>0&&HD>LD,HD,0),21),21);
DMM:=EMA(IF(LD>0&&LD>HD,LD,0)+SLOPE(IF(LD>0&&LD>HD,LD,0),21),21);
PDI:DMP*100/MTR,COLORRED,LINETHICK2;
MDI:DMM*100/MTR,COLOR00CCCC,LINETHICK2;
MG:=ABS(PDI-MDI)/(MDI+PDI)*100;
ADX:EMA(MG+SLOPE(MG,14),14),COLORFFCCAA,DOTLINE;
第3个
参数：N 1 100 14; MM 1 100 6;
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:DMP*100/MTR;
MDI:DMM*100/MTR;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM);
ADXR:=EXPMEMA(ADX,MM);
PM:=(PDI+MDI)/2;
STICKLINE(PDI>REF(PDI,1),PM,PDI,2,0),COLORRED;
STICKLINE(PDI<REF(PDI,1),PM,PDI,2,0),COLORCYAN;
STICKLINE(MDI<REF(MDI,1),PM,MDI,1,0),COLORMAGENTA;
STICKLINE(MDI>REF(MDI,1),PM,MDI,1,0),COLORBLUE;
第4个
 
DMI指标中用PDI上穿20线做一个选股指标
N:=14;
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
PDI:=DMP*100/MTR;
XG:CROSS(PDI,20);

第五个
TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=EMA(TR,N);
EMA1:=EMA(CLOSE,M);
CLOSE>REF(C,P)&&CLOSE>EMA1+R*ATR&&TIME<1457,BPK;
CLOSE<REF(C,P)&&CLOSE<EMA1-R*ATR&&TIME<1457,SPK;
CLOSEMINUTE<=3||BKPRICE-C>=200,SP;
CLOSEMINUTE<=3||C-SKPRICE>=200,BP;
AUTOFILTER;
非常感谢，辛苦辛苦。
 
    

不同软件函数处理机制不同，加载效果可能略有差异，参考：

指标1：

NOTEXT1:60,POINTDOT;
NOTEXT2:20,POINTDOT;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IFELSE(HD>0 && HD>LD,HD,0),14);
DMM:= SUM(IFELSE(LD>0 && LD>HD,LD,0),14);
PDI: DMP*100/TR,DOT,COLORMAGENTA;
MDI: DMM*100/TR,DOT,COLORCYAN;
ADX: MA(ABS(MDI-PDI)/(MDI+PDI)*100,6),LINETHICK2,COLORWHITE;
ADXR:(ADX+REF(ADX,6))/2,LINETHICK2,COLORYELLOW;

空军战场:IF(MDI>REF(MDI,1) AND PDI<REF(PDI,1),ADX,NULL),LINETHICK2,COLORGREEN;
DRAWICON(空军战场>0,60,39);
红军战场:IF(MDI<REF(MDI,1) AND PDI>REF(PDI,1),ADX,NULL),LINETHICK2,COLORRED;
DRAWICON(红军战场>0,60,38);

指标2

STICKLINE1(C>0,20,20,1,0),COLORRED;
STICKLINE1(C>0,50,50,10,0),COLOR0099FF;
STICKLINE1(C>0,80,80,1,0),COLOR00BB00;

WR1:=100*(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21));
WR2:=100*(HHV(H,42)-C)/(HHV(H,42)-LLV(L,42));
WR3:=100*(HHV(H,63)-C)/(HHV(H,63)-LLV(L,63));
WR4:=100*(HHV(H,84)-C)/(HHV(H,84)-LLV(L,84));
WR5:=100*(HHV(H,105)-C)/(HHV(H,105)-LLV(L,105));
WR6:=100*(HHV(H,126)-C)/(HHV(H,126)-LLV(L,126));
WR:(WR1+WR2+WR3+WR4+WR5+WR6)/6,COLORMAGENTA,LINETHICK2;
SWR:SMA(WR,21,1),COLORAAAA00,DOT;
KC:=MAX(MAX(ABS(H-L),ABS(H-REF(C,1))),ABS(REF(C,1)-L));
MTR:=EMA(KC+SLOPE(KC,21),21);
HD :=H-REF(H,1);
LD :=REF(L,1)-L;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0)+SLOPE(IF(HD>0&&HD>LD,HD,0),21),21);
DMM:=EMA(IF(LD>0&&LD>HD,LD,0)+SLOPE(IF(LD>0&&LD>HD,LD,0),21),21);
PDI:DMP*100/MTR,COLORRED,LINETHICK2;
MDI:DMM*100/MTR,COLOR00CCCC,LINETHICK2;
MG:=ABS(PDI-MDI)/(MDI+PDI)*100;
ADX:EMA(MG+SLOPE(MG,14),14),COLORFFCCAA,DOT;

指标3

N:=14;
MM:=6;
MTR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:DMP*100/MTR;
MDI:DMM*100/MTR;
ADX:=EMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM);
ADXR:=EMA(ADX,MM);
PM:=(PDI+MDI)/2;
STICKLINE1(PDI>REF(PDI,1),PM,PDI,2,0),COLORRED;
STICKLINE1(PDI<REF(PDI,1),PM,PDI,2,0),COLORCYAN;
STICKLINE1(MDI<REF(MDI,1),PM,MDI,1,0),COLORMAGENTA;
STICKLINE1(MDI>REF(MDI,1),PM,MDI,1,0),COLORBLUE;

指标4

N:=14;
MTR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N);
PDI:=DMP*100/MTR;
XG:CROSS(PDI,20);

以上指标是看盘思路，在wh6中使用

指标5，设计止盈止损收盘前平仓等程序化思路，要在wh8中使用（参数请自行定义）

TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=EMA(TR,N);
EMA1:=EMA(CLOSE,M);
CLOSE>REF(C,P)&&CLOSE>EMA1+R*ATR&&TIME<1457,BPK;
CLOSE<REF(C,P)&&CLOSE<EMA1-R*ATR&&TIME<1457,SPK;
CLOSEMINUTE<=3||BKPRICE-C>=200,SP;
CLOSEMINUTE<=3||C-SKPRICE>=200,BP;
AUTOFILTER;