[求助]请大神帮我改写一下这个公式,对我很重要,谢谢 (文华财经WH6赢顺V6.7)

投资者咨询:[求助]请大神帮我改写一下这个公式,对我很重要,谢谢 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-14 17:31
 我有一个通达信的指标公式,现在想转移到文华上面来,请大神帮我改写一下,然后添加一个交易策略,收盘价上穿做多止损线就开多,下穿做多止损线就平多,收盘价下穿做空止损线就开空,上穿做空止损线就平空,谢谢
参数n,1,3,1.5

{红绿波带}
A1:=EMA(C,1);
B1:=SMA(SMA(SMA(A1,2,1),2,1),2,1);
C1:=EMA(B1,3);
DRAWBAND(B1,RGB(255,0,0),C1,RGB(0,255,0));
{停损止盈}
MTR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(MTR,12);
VAR1:=IF(C>=HHV(C,24) AND L>LLV(L,12),1,0);
VAR2:=IF(C<=LLV(C,24) AND H<HHV(H,12),1,0);
VAR3:=HHV(MA(H,2),24)-N*ATR;
VAR4:=LLV(MA(L,2),24)+N*ATR;
做多止损:IF(VAR1,VAR3,REF(VAR3,BARSLAST(VAR1=1))),COLORGREEN;
做空止损:IF(VAR2,VAR4,REF(VAR4,BARSLAST(VAR2=1))),COLORYELLOW;

M3:=EMA(CLOSE,7);
M13:=EMA(CLOSE,13);
M34:=EMA(CLOSE,55);
DRAWTEXT((CLOSE<M34),M34,'*'),COLORBLUE,LINETHICK1;
DRAWTEXT((CLOSE>M34),M34,'*'),COLORYELLOW,LINETHICK1;
BUY(CROSS(做多止损,C),做多止损);
SELL(CROSS(做空止损,C),做空止损);






STICKLINE(M3>=M13 AND M34>=REF(M34,1) ,H ,L ,0.4,0),COLOR0000DD;{红}
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3,0),COLOR000088;
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3 ,0),COLOR000077;
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,2.5 ,0),COLOR000099;
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.9 ,0),COLOR0000BB;
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.2 ,0),COLOR0000DD;
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,0.4 ,0),COLOR0000FF;
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1,1),COLOR0000FF;
 
STICKLINE(M3<M13 AND M34>=REF(M34,1) ,H ,L ,0.4 ,0 ),COLORFFBB00;{天兰}
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3,0 ),COLORFF3300;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,2.5,0 ),COLORFF5500;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.9,0 ),COLORFF7700;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.2,0 ),COLORFF9900;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1,1 ),COLORFFBB00;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3,0 ),COLORFF1100;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,2.5,0 ),COLORFF3300;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.9,0 ),COLORFF5500;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.2,0 ),COLORFF7700;
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,0.4,0 ),COLORFF9900;
{WWW.88GS.COM}
STICKLINE(M3<M13 AND M34<REF(M34,1) ,H ,L ,0.4 ,0 ),COLOR00FF00;{绿}
{STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,0.5,0 ),COLOR006600;}
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3,0 ),COLOR007700;
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,2.5,0 ),COLOR009900;
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.9 ,0 ),COLOR00BB00;
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.2 ,0 ),COLOR00DD00;
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1,1 ),COLOR00FF00;
 
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,2.4,1 ),COLOR009900;
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.8,1 ),COLOR00BB00;
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.2 ,1 ),COLOR00DD00;
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,0.4 ,1 ),COLOR00FF00;
 
STICKLINE(M3>=M13 AND M34<REF(M34,1) ,H ,L ,0.4 ,0 ),COLORFF66FF;{粉}
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3 ,0 ),COLOR0000BB;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,2.4 ,0 ),COLOR0000DD;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.8 ,0 ),COLORCC11FF;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.2 ,0 ),COLORCC44FF;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1 ,1 ),COLORCC66FF;
 
 
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,3 ,0 ),COLOR9900FF;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,2.4 ,0 ),COLORFF22FF;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.8 ,0 ),COLORFF66FF;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.2 ,0 ),COLORFF99FF;
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,0.4 ,0 ),COLORFFCCFF;





{多空箱体}
A0W:=(L+H+C*2)/4;
 A1W:EMA(A0W,7)COLORBLUE,LINETHICK0;
 A2W:=EMA(A0W,21)COLORLIBLUE,LINETHICK0;
 A1X:=(A1W-REF(A1W,1))/REF(A1W,1)*100,NODRAW;
 A2X:=(A2W-REF(A2W,1))/REF(A2W,1)*100,NODRAW;
看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORFF00FF,LINETHICK2;
逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORGREEN,LINETHICK2;

技术人员回复
日期:2018-8-14 17:32
这样看下:


A1:=EMA(C,1);
B1:=SMA(SMA(SMA(A1,2,1),2,1),2,1);
C1:=EMA(B1,3);

FILLRGN(B1>C1,B1,C1,RGB(255,0,0));
FILLRGN(B1<C1,B1,C1,RGB(0,255,0));
N:1.5,NODRAW;
MTR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(MTR,12);
VAR1:=IF(C>=HHV(C,24) AND L>LLV(L,12),1,0);
VAR2:=IF(C<=LLV(C,24) AND H<HHV(H,12),1,0);
VAR3:=HHV(MA(H,2),24)-N*ATR;
VAR4:=LLV(MA(L,2),24)+N*ATR;
做多止损:IF(VAR1,VAR3,REF(VAR3,BARSLAST(VAR1=1))),COLORGREEN;
做空止损:IF(VAR2,VAR4,REF(VAR4,BARSLAST(VAR2=1))),COLORYELLOW;

M3:=EMA(CLOSE,7);
M13:=EMA(CLOSE,13);
M34:=EMA(CLOSE,55);
DRAWTEXT((CLOSE<M34),M34,'*'),COLORBLUE,LINETHICK1;
DRAWTEXT((CLOSE>M34),M34,'*'),COLORYELLOW,LINETHICK1;
CROSS(做多止损,C),BPK;
CROSS(做空止损,C),SPK;
AUTOFILTER;





STICKLINE1(M3>=M13 AND M34>=REF(M34,1) ,H ,L ,0.4,0),COLOR0000DD;
STICKLINE1(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3,0),COLOR000088;
STICKLINE1(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3 ,0),COLOR000077;
STICKLINE1(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,2.5 ,0),COLOR000099;
STICKLINE1(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.9 ,0),COLOR0000BB;
STICKLINE1(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.2 ,0),COLOR0000DD;
STICKLINE1(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,0.4 ,0),COLOR0000FF;
STICKLINE1(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1,1),COLOR0000FF;
 
STICKLINE1(M3<M13 AND M34>=REF(M34,1) ,H ,L ,0.4 ,0 ),COLORFFBB00;

STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3,0 ),COLORFF3300;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,2.5,0 ),COLORFF5500;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.9,0 ),COLORFF7700;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.2,0 ),COLORFF9900;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1,1 ),COLORFFBB00;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3,0 ),COLORFF1100;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,2.5,0 ),COLORFF3300;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.9,0 ),COLORFF5500;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.2,0 ),COLORFF7700;
STICKLINE1(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,0.4,0 ),COLORFF9900;

STICKLINE1(M3<M13 AND M34<REF(M34,1) ,H ,L ,0.4 ,0 ),COLOR00FF00;

STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3,0 ),COLOR007700;
STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,2.5,0 ),COLOR009900;
STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.9 ,0 ),COLOR00BB00;
STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.2 ,0 ),COLOR00DD00;
STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1,1 ),COLOR00FF00;

STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,2.4,1 ),COLOR009900;
STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.8,1 ),COLOR00BB00;
STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.2 ,1 ),COLOR00DD00;
STICKLINE1(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,0.4 ,1 ),COLOR00FF00;
 
STICKLINE1(M3>=M13 AND M34<REF(M34,1) ,H ,L ,0.4 ,0 ),COLORFF66FF;

STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3 ,0 ),COLOR0000BB;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,2.4 ,0 ),COLOR0000DD;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.8 ,0 ),COLORCC11FF;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.2 ,0 ),COLORCC44FF;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1 ,1 ),COLORCC66FF;
 
 
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,3 ,0 ),COLOR9900FF;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,2.4 ,0 ),COLORFF22FF;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.8 ,0 ),COLORFF66FF;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.2 ,0 ),COLORFF99FF;
STICKLINE1(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,0.4 ,0 ),COLORFFCCFF;

A0W:=(L+H+C*2)/4;
 A1W:EMA(A0W,7),COLORBLUE,LINETHICK1;
 A2W:=EMA(A0W,21),COLORBLUE,LINETHICK1;
 A1X:=(A1W-REF(A1W,1))/REF(A1W,1)*100,NODRAW;
 A2X:=(A2W-REF(A2W,1))/REF(A2W,1)*100,NODRAW;
看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),NULL),COLORFF00FF,LINETHICK2;
逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),NULL),COLORGREEN,LINETHICK2;

投资者咨询:[求助]请大神帮我改写一下这个公式,对我很重要,谢谢 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-8-14 17:31
 感谢老师的热心帮助,已经可以在文华上面使用了,真心感谢