同花顺神奇数字自动画线副图指标 源码

神奇数字自动画线
本指标集黄金分割，买卖点，转九，狄马克TD准备，卢卡斯螺旋于一体。
值得参考使用。



A:=DRAWTEXT(C<REF(L,4),LOW,'*');
LS0:=BARSLAST(A);
LS11:=IF(1,LS0=1,A);
LS21:=IF(1,LLV(L,1)>REF(L,1),1);
A1:=LS11 AND LS21;
LS12:=IF(2,LS0=2,A);
LS22:=IF(2,LLV(L,2)>REF(L,2),1);
A2:=LS12 AND LS22;
LS13:=IF(3,LS0=3,A);
LS23:=IF(3,LLV(L,3)>REF(L,3),1);
A3:=LS13 AND LS23;
LS14:=IF(4,LS0=4,A);
LS24:=IF(4,LLV(L,4)>REF(L,4),1);
A4:=LS14 AND LS24;
LS15:=IF(5,LS0=5,A);
LS25:=IF(5,LLV(L,5)>REF(L,5),1);
A5:=LS15 AND LS25;
LS16:=IF(6,LS0=6,A);
LS26:=IF(6,LLV(L,6)>REF(L,6),1);
A6:=LS16 AND LS26;
LS17:=IF(7,LS0=7,A);
LS27:=IF(7,LLV(L,7)>REF(L,7),1);
A7:=LS17 AND LS27;
LS18:=IF(8,LS0=8,A);
LS28:=IF(8,LLV(L,8)>REF(L,8),1);
A8:=LS18 AND LS28;
LS19:=IF(9,LS0=9,A);
LS29:=IF(9,LLV(L,9)>REF(L,9),1);
A9:=LS19 AND LS29;
A1:=C>=REF(C,4);
A:=C<REF(C,4);
AA:=C<REF(C,4) AND REF(A1,1);
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,'1'),colorgreen;
DRAWTEXT(N,H*1.02,'2'),colorgreen;
DRAWTEXT(N1,H*1.02,'3'),colorgreen;
DRAWTEXT(N2,H*1.02,'4'),colorgreen;
DRAWTEXT(N3,H*1.02,'5'),colorgreen;
DRAWTEXT(N4,H*1.02,'6'),colorgreen;
DRAWTEXT(N5,H*1.02,'7'),colorgreen;
DRAWTEXT(N6,H*1.02,'8'),colorgreen;
DRAWTEXT(N7,H*1.02,'9'),coloryellow;
DRAWICON(N7,H*1.04,1),colorgreen;
DRAWTEXT(M,H*1.02,'1'),colorblack;
DRAWTEXT(M1,H*1.02,'2'),colorblack;
DRAWTEXT(M2,H*1.02,'3'),colorblack;
DRAWTEXT(M3,H*1.02,'4'),colorblack;
DRAWTEXT(M4,H*1.02,'5'),colorblack;
DRAWTEXT(M5,H*1.02,'6'),colorblack;
DRAWTEXT(M6,H*1.02,'7'),colorblack;
DRAWTEXT(M7,H*1.02,'8'),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,'1'),COLOR9900CC;
DRAWTEXT(N111,H*1.02,'2'),COLOR9900CC;
DRAWTEXT(N11,H*1.02,'3'),COLOR9900CC;
DRAWTEXT(N22,H*1.02,'4'),COLOR9900CC;
DRAWTEXT(N33,H*1.02,'5'),COLOR9900CC;
DRAWTEXT(N44,H*1.02,'6'),COLOR9900CC;
DRAWTEXT(N55,H*1.02,'7'),COLOR9900CC;
DRAWTEXT(N66,H*1.02,'8'),COLOR9900CC;
DRAWTEXT(N77,H*1.02,'9'),COLORFFFF00;
DRAWICON(N77,H*1.04,2),colorred;
DRAWTEXT(M111,H*1.02,'1'),colorblack;
DRAWTEXT(M11,H*1.02,'2'),colorblack;
DRAWTEXT(M22,H*1.02,'3'),colorblack;
DRAWTEXT(M33,H*1.02,'4'),colorblack;
DRAWTEXT(M44,H*1.02,'5'),colorblack;
DRAWTEXT(M55,H*1.02,'6'),colorblack;
DRAWTEXT(M66,H*1.02,'7'),colorblack;
DRAWTEXT(M77,H*1.02,'8'),colorblack;
DRAWTEXT_FIX(1,0.01,0.9,0,'绿色数字为狄马克TD准备，白色卢卡斯螺旋周期'),colorbrown;
半分位:=(O+C)/2;
昨半分位:=REF(半分位,1);
STICKLINE(ISLASTBAR,昨半分位,昨半分位,10,0),colorwhite;
DRAWNUMBER(ISLASTBAR,昨半分位,昨半分位);
DRAWTEXT(ISLASTBAR,昨半分位,' 昨半分位'),colorgray;
NB:=HJ1;
MB:=HJ;
MA5X:=MA(C,5);
MA13X:=MA(C,13);
高:=REF(HHV(H,NB),MB);
低:=REF(LLV(L,NB),MB);
H19:=高-(高-低)*0.191;
H38:=高-(高-低)*0.382;
H中:=高-(高-低)*0.5;
H61:=高-(高-低)*0.618;
H80:=高-(高-低)*0.809;
一:REFDATE(高,DATE),POINTDOT,colorwhite;
二:REFDATE(H19,DATE),POINTDOT,coloryellow;
三:REFDATE(H38,DATE),POINTDOT,colormagenta;
四:REFDATE(H中,DATE),POINTDOT,colorred;
五:REFDATE(H61,DATE),POINTDOT,colormagenta;
六:REFDATE(H80,DATE),POINTDOT,coloryellow;
七:REFDATE(低,DATE),POINTDOT,colorwhite;
DRAWTEXT(ISLASTBAR,一,' 高'),colorwhite;
DRAWTEXT(ISLASTBAR,二,' 809'),coloryellow;
DRAWTEXT(ISLASTBAR,三,' 618'),colormagenta;
DRAWTEXT(ISLASTBAR,四,' 中'),colorred;
DRAWTEXT(ISLASTBAR,五,' 382'),colormagenta;
DRAWTEXT(ISLASTBAR,六,' 191'),coloryellow;
DRAWTEXT(ISLASTBAR,七,' 低'),colorwhite;