TR1:=EMA(EMA(EMA(CLOSE,12),12),12); TRIX:(TR1-REF(TR1,1))/REF(TR1,1)*100,COLORWHITE; MATRIX:MA(TRIX,9),COLORYELLOW; DRAWTEXT(CROSS(TRIX,MATRIX),MATRIX,'买'),COLORYELLOW; DRAWTEXT(CROSS(MATRIX,TRIX),TRIX,'卖'),COLORGREEN; 水平线:0,COLOR00BBBB; A1:STICKLINE(TRIX<MATRIX,MATRIX,TRIX,1,0),COLORGREEN; A2:STICKLINE(TRIX>MATRIX,TRIX,MATRIX,1,0),COLORRED;
2variable:tr=0,up=0,dn=0;
N:=10;
M:=1.5;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,N);
median:= (high + low) / 2;
up:= median+atr * M;
dn:= median-atr * M;
tr:=if(c>ref(up,1),1,if(c<ref(dn,1),-1,tr));
flag:=tr<0 and ref(tr,1)>0;
flagh:=tr>0 and ref(tr,1)<0;
dn:=if(tr>0 and dn<ref(dn,1),ref(dn,1),dn);
up:=if(tr<0 and up>ref(up,1),ref(up,1),up);
up:=if(flag,median + atr * M,up);
dn:=if(flagh,median - atr * M,dn);
outtr:=tr;
outup:=up;
outdn:=dn;
supertren:if(outtr=1,outdn,outup),colorwhite;
PARTLINE(supertren,tr=1,rgb(200,0,0),tr=-1,rgb(0,200,0));
3{通达信版}{SUPERTREN优化}
N:=10;M:=2.5;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
UP:=(H+L)/2+MA(TR1,N)*M;
DN:=(H+L)/2-MA(TR1,N)*M;
L1:=REF(UP,BARSLAST(UP<=REF(UP,1)));
L2:=LLV(UP,N*1.5);
LL:=IF(L2!=REF(L2,1) AND L1<REF(L1,1),L1,IF(L1=L2,L1,L2));
S1:=BARSLAST(CROSS(0.5,UP=LL))+1;
S2:=CROSS(COUNT((CROSS(C,LL) OR CROSS(C,REF(LL,2))) AND UP>LL,S1),0.5);
A6:=BARSLAST(S2);
B6:=BARSLAST(CROSS(HHV(DN,A6+1),C));
BY:=CROSS(B6,A6);
SL:=CROSS(A6,B6);
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
SUPERTREN:IF(B6>A6,HHV(DN,BARSLAST(BY)+1),LLV(UP,BARSLAST(SL)+1)),COLORGREEN,LINETHICK2;
IF(B6>A6,SUPERTREN,DRAWNULL),COLOR0000C8,LINETHICK2;
DRAWICON(CROSS(B6,A6),SUPERTREN*0.99,1);
DRAWICON(CROSS(A6,B6),SUPERTREN*1.015,2);
买进:CROSS(B6,A6)*100,NODRAW,COLORRED;
卖出:CROSS(A6,B6)*100,NODRAW;
4{TRT - 顺势交易}
variable:p1=0;
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
STICKLINE(p1=1 and c<o,c,o,8,1),color5454ff,layer0;
STICKLINE(p1=1 and c<o,c,o,6,0),colorffff54;
STICKLINE(p1=1 and c<o,c,l,0.5,0),color5454ff;
STICKLINE(p1=1 and c<o,h,o,0.5,0),color5454ff;
STICKLINE(p1=0 and c>o,c,o,8,1),colorffff54;
STICKLINE(p1=0 and c>o,c,h,0.5,0),colorffff54;
STICKLINE(p1=0 and c>o,l,o,0.5,0),colorffff54;
DRAWTEXT(cross(p1,0),l*0.9,'B'),coloryellow,LINETHICK3;
DRAWTEXT(cross(1,p1),h*1.05,'S'),COLORgreen,LINETHICK3;
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c>0.1,c,'持币');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'明日收盘价超过'+str(p2)+'或收盘价超过'+str(intpart(p2*0.98*100)/100)+'且成交量大于'+str(vv)+'买入');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盘价超过'+str(p2)+'买入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盘价跌破'+str(min(c1,p40))+'卖出');;
5variable:p1=0;c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
STICKLINE(p1=1 and c<o,c,o,8,1),color5454ff,layer0;
STICKLINE(p1=1 and c<o,c,o,6,0),colorffff54;
STICKLINE(p1=1 and c<o,c,l,0.5,0),color5454ff;
STICKLINE(p1=1 and c<o,h,o,0.5,0),color5454ff;
STICKLINE(p1=0 and c>o,c,o,8,1),colorffff54;
STICKLINE(p1=0 and c>o,c,h,0.5,0),colorffff54;
STICKLINE(p1=0 and c>o,l,o,0.5,0),colorffff54;
DRAWTEXT(cross(p1,0),l*0.9,'B'),coloryellow,LINETHICK3;
DRAWTEXT(cross(1,p1),h*1.05,'S'),COLORgreen,LINETHICK3;
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c>0.1,c,'持币');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'明日收盘价超过'+str(c1)+'或收盘价超过'+str(intpart(c1*0.98*100)/100)+'且成交量大于'+str(vv)+'买入');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盘价超过'+str(c1)+'买入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盘价跌破'+str(min(c1,p40))+'卖出');
万分感谢
不同软件函数机制不同，效果可能略有差异，改写参考：
指标1，
TR1:=EMA(EMA(EMA(CLOSE,12),12),12);
TRIX:(TR1-REF(TR1,1))/REF(TR1,1)*100,COLORWHITE;
MATRIX:MA(TRIX,9),COLORYELLOW;
DRAWTEXT(CROSS(TRIX,MATRIX),MATRIX,'买'),COLORYELLOW;
DRAWTEXT(CROSS(MATRIX,TRIX),TRIX,'卖'),COLORGREEN;
水平线:0,COLOR00BBBB;
STICKLINE1(TRIX<MATRIX,MATRIX,TRIX,1,0),COLORGREEN;
STICKLINE1(TRIX>MATRIX,TRIX,MATRIX,1,0),COLORRED;
指标2，
指标2含有全局变量，是程序化的思路，需要程序化wh8软件中使用，参考：
VARIABLE:TR:=0,UP:=0,DN:=0;
N:=10;
M:=1.5;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,N);
MEDIANA:= (HIGH + LOW) / 2;
UP:= MEDIANA+ATR * M;
DN:= MEDIANA-ATR * M;
TR:=IF(C>REF(UP,1),1,IF(C<REF(DN,1),-1,TR));
FLAG:=TR<0 AND REF(TR,1)>0;
FLAGH:=TR>0 AND REF(TR,1)<0;
DN:=IF(TR>0 AND DN<REF(DN,1),REF(DN,1),DN);
UP:=IF(TR<0 AND UP>REF(UP,1),REF(UP,1),UP);
UP:=IF(FLAG,MEDIANA + ATR * M,UP);
DN:=IF(FLAGH,MEDIANA - ATR * M,DN);
OUTTR:=TR;
OUTUP:=UP;
OUTDN:=DN;
SUPERTREN:IF(OUTTR=1,OUTDN,OUTUP),COLORWHITE;
PARTLINE(TR=1,SUPERTREN,RGB(200,0,0));
PARTLINE(TR=-1,SUPERTREN,RGB(0,200,0));
指标3，
N:=10;
M:=2.5;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
UP:=(H+L)/2+MA(TR1,N)*M;
DN:=(H+L)/2-MA(TR1,N)*M;
L1:=REF(UP,BARSLAST(UP<=REF(UP,1)));
L2:=LLV(UP,N*1.5);
LL:=IF(L2<>REF(L2,1) AND L1<REF(L1,1),L1,IF(L1=L2,L1,L2));
S1:=BARSLAST(CROSS(0.5,UP=LL))+1;
S2:=CROSS(COUNT((CROSS(C,LL) OR CROSS(C,REF(LL,2))) AND UP>LL,S1),0.5);
A6:=BARSLAST(S2);
B6:=BARSLAST(CROSS(HHV(DN,A6+1),C));
BY:=CROSS(B6,A6);
SL:=CROSS(A6,B6);
DRAWKLINE1(HIGH,OPEN,LOW,CLOSE);
SUPERTREN:IF(B6>A6,HHV(DN,BARSLAST(BY)+1),LLV(UP,BARSLAST(SL)+1)),COLORGREEN,LINETHICK2;
IF(B6>A6,SUPERTREN,NULL),COLOR0000C8,LINETHICK2;
DRAWICON(CROSS(B6,A6),SUPERTREN*0.99,1);
DRAWICON(CROSS(A6,B6),SUPERTREN*1.015,2);
买进:CROSS(B6,A6)*100,NODRAW,COLORRED;
卖出:CROSS(A6,B6)*100,NODRAW;
指标4、5中含有cyc，是股票成本均线指标？
如果是，cyc函数无法直接替换，需要新建指标实现，您可以参考下面链接中其他客户的写法了解下
http://help.wenhua.com.cn/dispbbs.asp?BoardID=14&ID=683609
另外，指标4、5也含有全局变量，需要在wh8中实现
您可以先到官网下载模拟板体验下，http://www.wenhua.com.cn/
