老师改一下,谢谢15 (文华财经WH6赢顺V6.7)

源码中的TFILT和DLOW函数暂时无法改写，相关语句已经删除，参考：

 B:ZIGZAG(C,10,1),COLORYELLOW;
G:=MA(B,2),COLORRED;
D:=EMA(B,34),COLORGREEN;
J:=EMA(B,144),COLORLIGHTGREEN;
DRAWICON(CROSS(B,G),B-0.1,1);
DRAWICON(CROSS(G,B),G+0.1,2);
//DRAWTEXT(CROSS(B,G),B*0.85,"建"),COLORYELLOW;
//DRAWTEXT(CROSS(G,B),G,"清"),COLORGREEN;
F:=100*(C-REF(C,1))/REF(C,1);
JD:=IF(C<REF(O,1) AND F<0,1,0);
S1:=JD;
MR:=IF(C<REF(O,2) AND F<0,1,0);
S2:=MR;
A1:=S1=0 AND REF(S1,1)=1 AND S2=0 AND REF(S2,1)=1 AND CROSS(ZIGZAG(C,3,1) ,REF(ZIGZAG(C,3,1),1));
A2:=S1=0 AND REF(S1,1)=1 AND S2=0 AND REF(S2,1)=1 AND CROSS(ZIGZAG(C,5,1) ,REF(ZIGZAG(C ,5,1),1));
//DRAWTEXT(A1 AND A2 OR D<0,B,'加仓'),COLORYELLOW;//加仓买
//DRAWICON(A1 AND A2,B-0.2,1);
VAR3:=PEAKBARS(C,5,1,1)<10;
VAR5:=IF(VAR3=1,2,0);
顶:= IF(VAR5=2,2,0);
顶A:=IF(顶>REF(顶,1),1,0),STICK,COLORCYAN, LINETHICK2;//
//DRAWTEXT(顶A=1,B*1.1,'减仓'),COLORGREEN;
DRAWICON(顶A=1,B,2);
A11:LLV(LOW,144),COLORMAGENTA;
A12:HHV(CLOSE,13),COLORWHITE;
//DRAWICON(A11==REF(A11,1) AND REF(A11,1)<REF(A11,2),A11,1);
//DRAWICON(A11<REF(A11,1) AND REF(A11,1)==REF(A11,2),A11,2);
//DRAWICON(A11>REF(A11,1) AND REF(A11,1)==REF(A11,2),A11,1);
MID:=MA(CLOSE,26);
UPPER:=MID + 2*STD(CLOSE,26),COLORWHITE;//上轨
UPPER1:=MID + 1.618*STD(CLOSE,26),COLORRED;//上轨
LOWER:=MID - 2*STD(CLOSE,26),COLORYELLOW;//下轨
LOWER1:=MID - 1.618*STD(CLOSE,26),COLORGREEN;//下轨
//DRAWTEXT(CROSS(CLOSE,LOWER),J*1.05,"L"),COLORYELLOW;;
//DRAWTEXT(CROSS(CLOSE,UPPER),J*1.05,"L"),COLORGREEN;
DRAWICON(CROSS(B,A11),B,1);
DRAWICON(CROSS(A11,B),B,2);
DRAWICON(CROSS(B,A12),A12,1);
VERTLINE(CROSS(B,G) AND (A1 AND A2 OR D<0),COLORMAGENTA);//画加仓建仓垂线
VERTLINE(CROSS(G,B),COLORCYAN);//画清仓垂线
STICKLINE(A11<B AND B>REF(B,1),B,A11,0.8,0),COLORRED;
STICKLINE(A11<B AND B<REF(B,1),B,A11,0.8,0),COLORGREEN;
STICKLINE(B=A12,B,A11,0.8,0),COLORGREEN;
DRAWTEXT(B=A12,A12*1.15,'S'),COLORGREEN;
DRAWTEXT((CROSS(B,G) AND (A1 AND A2 OR D<0)) OR CROSS(B,G),A11*0.95,'B'),COLORYELLOW;//建仓加仓买
STICKLINE(A11>B AND B>REF(B,1),B,A11,0.8,0),COLORRED;
STICKLINE(A11>B AND B<REF(B,1),B,A11,0.8,0),COLORGREEN;
DRAWTEXT(REF(顶A=1,1) AND CROSS(G,B),A12*1.15,'清仓'),COLORGREEN;
A34:=LLV(B,34),COLORYELLOW;
A55:=LLV(B,55),COLORYELLOW;
A144:=LLV(B,144),COLORYELLOW;
AA:=(CROSS(B,G) AND (A1 AND A2 OR D<0)) OR CROSS(B,G);
POLYLINE(AA=1,REF(B,1),COLORYELLOW);
CC:=CLOSE,COLORWHITE;
//DD1:=DYNAINFO(1),NODRAW;
//DD2:=DYNAINFO(2),NODRAW;
DD3:=REF(C,DAYBARPOS),NODRAW;
DD4:=REF(O,DAYBARPOS-1),NODRAW;
DD5:=H,NODRAW;
DD6:=L,NODRAW;
DD7:=C,NODRAW;
DD9:=GETPRICE('DELTAVOL'),NODRAW;
DD11:=GETPRICE('AVPRICE'),NODRAW;
DD20:=GETPRICE('TOTALBIDPRICE'),NODRAW;
DD21:=GETPRICE('TOTALASKPRICE'),NODRAW;
DD28:=GETPRICE('BID1'),NODRAW;
DD29:=GETPRICE('BID2'),NODRAW;
DD30:=GETPRICE('BID3'),NODRAW;
//E:=IF(CLOSE,DATE+19000000,0,DATE+19000000,0),NODRAW;
//E1:=DLOW,NODRAW;
E2:=IF(CODELIKE('600'),6,3),NODRAW;
E3:=BARSLAST(CLOSE/REF(CLOSE,1)>=1.095),NODRAW;//上一条件成立位置 上一次条件成立到当前的周期数
//E4:=TFILT(CLOSE,DATE+19000000-E3,0,DATE+19000000-E3,0),NODRAW;
E5:=BARSSINCE(CLOSE/REF(CLOSE,1)>=1.095),NODRAW;
E6:=REFX1(CLOSE,100000),NODRAW;
E7:=REF(CLOSE,DAYBARPOS),NODRAW;
THEYEAR := 1900*10000;
DATE11:= 180703;
DATE2:= 180702 ;
收盘0703:=VALUEWHEN(DATE=DATE11,CLOSE),NODRAW;
收盘0702:=VALUEWHEN(DATE=DATE2,CLOSE),NODRAW;
E8:=REF(C,BARSLAST(DATE=180702)),NODRAW;
指定日期:=YEAR=2016 AND MONTH=7 AND DAY=3,NODRAW;
当日收盘:=REF(CLOSE,BARSLAST(指定日期));
昨日收盘:=REF(CLOSE,BARSLAST(YEAR=2018 AND MONTH=7 AND DAY=2));
//MACD
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
DRAWTEXT(CROSS(DIFF,DEA),A11,'M'),COLORYELLOW;
DRAWTEXT(CROSS(DEA,DIFF),A11,'M'),COLORGREEN;
//H1:HOD(H,144),NODRAW;
//L1:LOD(L,144),NODRAW;
//DRAWTEXT(H1=144 AND L1=1 AND B>A11,A11*0.95,'HL'),COLORRED;
LLV1:LLVBARS(L,21),NODRAW;
DRAWNUMBER1(REF((CROSS(B,G) AND (A1 AND A2 OR D<0)) OR CROSS(B,G),1),A11*0.95,A11,0);