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

神奇数字自动画线
 本指标集黄金分割，买卖点，转九，狄马克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;