通达信改写wh6 (文华财经WH6赢顺V6.7)

第一个

不同软件函数机制不同，加载效果会有差异，请理解。

已经将不能改写的语句注释掉了，参考：

A1:=C>REF(C,4);
NT:=BARSLASTCOUNT(A1);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR   BACKSET(TJ13>0,NT))*NT;
//DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF;
DRAWTEXT(NT=9,H*1.02,'NT'),COLORGREEN;//NT可以修改成您需要的文字
B1:=C<REF(C,4);
NT0:=BARSLASTCOUNT(B1);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9)  OR  BACKSET(TJ23>0,NT0))*NT0;
//DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF;
DRAWTEXT(NT0=9,L*0.98,'NT0'),COLORGREEN;//NT0可以修改您需要的文字

 第二个

A1:=C>=REF(C,4);
A:=C;
AA:=C;
T:=BARSLAST(AA),NODRAW;
M:=(T=0 AND REFX(T=1 AND NOT(A),1)) OR (REFX(T=2 AND NOT(A),2)) OR (REFX(T=3 AND NOT(A),3)) OR (REFX(T=4 AND NOT(A),4)) OR (REFX(T=5 AND NOT(A),5))
OR (REFX(T=6 AND NOT(A),6)) OR (REFX(T=7 AND NOT(A),7)) OR (REFX(T=8 AND NOT(A),8));
M1:=T=1 AND REFX(T=2 AND NOT(A),1) OR (REFX(T=3 AND NOT(A),2)) OR (REFX(T=4 AND NOT(A),3)) OR (REFX(T=5 AND NOT(A),4)) OR (REFX(T=6 AND NOT(A),5))
OR (REFX(T=7 AND NOT(A),6)) OR (REFX(T=8 AND NOT(A),7));
M2:=T=2 AND REFX(T=3 AND NOT(A),1) OR (REFX(T=4 AND NOT(A),2)) OR (REFX(T=5 AND NOT(A),3)) OR (REFX(T=6 AND NOT(A),4)) OR (REFX(T=7 AND NOT(A),5)) OR (REFX(T=8 AND NOT(A),6));
M3:=T=3 AND REFX(T=4 AND NOT(A),1) OR (REFX(T=5 AND NOT(A),2)) OR (REFX(T=6 AND NOT(A),3)) OR (REFX(T=7 AND NOT(A),4))  OR (REFX(T=8 AND NOT(A),5));
M4:=T=4 AND REFX(T=5 AND NOT(A),1) OR (REFX(T=6 AND NOT(A),2)) OR (REFX(T=7 AND NOT(A),3)) OR (REFX(T=8 AND NOT(A),4));
M5:=T=5 AND  REFX(T=6 AND NOT(A),1) OR (REFX(T=7 AND NOT(A),2)) OR (REFX(T=8 AND NOT(A),3));
M6:=T=6  AND  REFX(T=7 AND NOT(A),1) OR (REFX(T=8 AND NOT(A),2));
M7:=T=7  AND  REFX(T=8 AND NOT(A),1);
N:=T=1 AND REF(T=0 AND AA,1) AND A;
N1:=T=2 AND REF(N,1) AND A;
N2:=T=3 AND REF(N1,1) AND A;
N3:=T=4 AND REF(N2,1) AND A;
N4:=T=5 AND REF(N3,1) AND A;
N5:=T=6 AND REF(N4,1) AND A;
N6:=T=7 AND REF(N5,1) AND A;
N7:=T=8 AND REF(N6,1) AND A;
DRAWTEXT(T=0,H*1.02,'A'),COLORGREEN;
DRAWTEXT(N,H*1.02,'B'),COLORGREEN;
DRAWTEXT(N1,H*1.02,'D'),COLORGREEN;
DRAWTEXT(N2,H*1.02,'E'),COLORGREEN;
DRAWTEXT(N3,H*1.02,'F'),COLORGREEN;
DRAWTEXT(N4,H*1.02,'G'),COLORGREEN;
DRAWTEXT(N5,H*1.02,'I'),COLORGREEN;
DRAWTEXT(N6,H*1.02,'J'),COLORGREEN;
DRAWTEXT(N7,H*1.02,'K'),COLORGREEN;
DRAWICON(N7,H*1.04,'M'),COLORGREEN;
DRAWTEXT(M,H*1.02,'N'),COLORBLACK;
DRAWTEXT(M1,H*1.02,'P'),COLORBLACK;
DRAWTEXT(M2,H*1.02,'Q'),COLORBLACK;
DRAWTEXT(M3,H*1.02,'R'),COLORBLACK;
DRAWTEXT(M4,H*1.02,'S'),COLORBLACK;
DRAWTEXT(M5,H*1.02,'T'),COLORBLACK;
DRAWTEXT(M6,H*1.02,'U'),COLORBLACK;
DRAWTEXT(M7,H*1.02,'V'),COLORBLACK;
B1:=C<=REF(C,4);
B:=C>REF(C,4);
BB:=C>REF(C,4) AND REF(B1,1);
T1:=BARSLAST(BB),NODRAW;
M111:=(T1=0 AND REFX(T1=1 AND NOT(B),1)) OR (REFX(T1=2 AND NOT(B),2)) OR (REFX(T1=3 AND NOT(B),3)) OR (REFX(T1=4 AND NOT(B),4)) OR (REFX(T1=5 AND NOT(B),5))
OR (REFX(T1=6 AND NOT(B),6)) OR (REFX(T1=7 AND NOT(B),7)) OR (REFX(T1=8 AND NOT(B),8));
M11:=T1=1 AND REFX(T1=2 AND NOT(B),1) OR (REFX(T1=3 AND NOT(B),2)) OR (REFX(T1=4 AND NOT(B),3)) OR (REFX(T1=5 AND NOT(B),4)) OR (REFX(T1=6 AND NOT(B),5))
OR (REFX(T1=7 AND NOT(B),6)) OR (REFX(T1=8 AND NOT(B),7));
M22:=T1=2 AND REFX(T1=3 AND NOT(B),1) OR (REFX(T1=4 AND NOT(B),2)) OR (REFX(T1=5 AND NOT(B),3)) OR (REFX(T1=6 AND NOT(B),4)) OR (REFX(T1=7 AND NOT(B),5)) OR (REFX(T1=8 AND NOT(B),6));
M33:=T1=3 AND REFX(T1=4 AND NOT(B),1) OR (REFX(T1=5 AND NOT(B),2)) OR (REFX(T1=6 AND NOT(B),3)) OR (REFX(T1=7 AND NOT(B),4))  OR (REFX(T1=8 AND NOT(B),5));
M44:=T1=4 AND REFX(T1=5 AND NOT(B),1) OR (REFX(T1=6 AND NOT(B),2)) OR (REFX(T1=7 AND NOT(B),7)) OR (REFX(T1=8 AND NOT(B),4));
M55:=T1=5 AND  REFX(T1=6 AND NOT(B),1) OR (REFX(T1=7 AND NOT(B),2)) OR (REFX(T1=8 AND NOT(B),3));
M66:=T1=6  AND  REFX(T1=7 AND NOT(B),1) OR (REFX(T1=8 AND NOT(B),2));
M77:=T1=7  AND  REFX(T1=8 AND NOT(B),1);
N111:=T1=1 AND REF(T1=0 AND BB,1) AND B;
N11:=T1=2 AND REF(N111,1) AND B;
N22:=T1=3 AND REF(N11,1) AND B;
N33:=T1=4 AND REF(N22,1) AND B;
N44:=T1=5 AND REF(N33,1) AND B;
N55:=T1=6 AND REF(N44,1) AND B;
N66:=T1=7 AND REF(N55,1) AND B;
N77:=T1=8 AND REF(N66,1) AND B;
DRAWTEXT(T1=0,H*1.02,'A'),COLOR9900CC;
DRAWTEXT(N111,H*1.02,'B'),COLOR9900CC;
DRAWTEXT(N11,H*1.02,'D'),COLOR9900CC;
DRAWTEXT(N22,H*1.02,'E'),COLOR9900CC;
DRAWTEXT(N33,H*1.02,'F'),COLOR9900CC;
DRAWTEXT(N44,H*1.02,'G'),COLOR9900CC;
DRAWTEXT(N55,H*1.02,'I'),COLOR9900CC;
DRAWTEXT(N66,H*1.02,'J'),COLOR9900CC;
DRAWTEXT(N77,H*1.02,'K'),COLOR9900CC;
DRAWICON(N77,H*1.04,2);
DRAWTEXT(M111,H*1.02,'A'),COLORBLACK;
DRAWTEXT(M11,H*1.02,'B'),COLORBLACK;
DRAWTEXT(M22,H*1.02,'D'),COLORBLACK;
DRAWTEXT(M33,H*1.02,'E'),COLORBLACK;
DRAWTEXT(M44,H*1.02,'F'),COLORBLACK;
DRAWTEXT(M55,H*1.02,'G'),COLORBLACK;
DRAWTEXT(M66,H*1.02,'I'),COLORBLACK;
DRAWTEXT(M77,H*1.02,'J'),COLORBLACK;

参考

DRAWTEXT(DATACOUNT-BARPOS+1=7,HIGH*1.025,'A'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=11,HIGH*1.025,'B'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=18,HIGH*1.025,'D'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=29,HIGH*1.025,'E'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=47,HIGH*1.025,'F'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=76,HIGH*1.025,'G'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=123,HIGH*1.025,'飓'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=199,HIGH*1.025,'�'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=322,HIGH*1.025,'�'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=521,HIGH*1.025,'�'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=843,HIGH*1.025,'�'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=1364,HIGH*1.025,'AA'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=2207,HIGH*1.025,'BB'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=3571,HIGH*1.025,'DD'), COLORWHITE;//字母处可自己修改标注文字
//DRAWTEXT_FIX(1,0.01,0.9,0,'绿数字为狄马克TD准备，红为TD13倒数，白为卢卡斯螺旋周期'),COLORBROWN;
半分位:=(O+C)/2;
昨半分位:=REF(半分位,1);
STICKLINE(ISLASTBAR,昨半分位,昨半分位,10,0),COLORWHITE;
DRAWNUMBER(ISLASTBAR,昨半分位,昨半分位,2,COLORWHITE);