指標公式代碼分析及使用說明參考:

?

源碼：

{單陽不破主圖}

工作線:EMA(C,14),COLOR00FFFF,LINETHICK1;
好線:EMA(C,25),COLORFFFFFF,LINETHICK1;
{單陽不破}
單陽:=C>O*1.03 AND VOL>REF(VOL,1)*1.5;
不破價:=REF(L,BARSLAST(單陽));
DRAWTEXT(單陽,L-L*0.02,'陽'),COLOR00FFFF;
LS0:=BARSLAST(單陽);
LS11:=IF(1,LS0=1,單陽);
LS21:=IF(1,LLV(L,1)>REF(L,1),1);
單陽不破:=LS11 AND LS21;
STICKLINE(單陽不破,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破,不破價-不破價*0.02,'1'),COLORGREEN;{http://www.kzuj.com.cn}
n:=13;
A3:=REF(H,N)=HHV(H,2*N+1);
B3:=FILTER(A3,N);
C3:=BACKSET(B3,N+1);
D3:=FILTER(C3,N);{高點}
A4:=REF(L,N)=LLV(L,2*N+1);
B4:=FILTER(A4,N);
C4:=BACKSET(B4,N+1);
D4:=FILTER(C4,N);{低點}
STICKLINE(D3 or (D3 AND C<O AND VOL>MA(VOL,5) AND VOL>MA(VOL,60)),H+0.3,H+0.7,2,0);
STICKLINE(D4 or (D4 AND C>OAND VOL>ref(LLV(VOL,60),1)),l-0.3,l-0.7,2,0);
stickline(C>O,H,L,1,0),Color0000ff;
stickline(C<O,H,L,1,0),Color00ff00;
stickline(C>O,C,O,8,0),Color000055;
stickline(C>O,C,O,7,0),Color000077;
stickline(C>O,C,O,5,0),Color000099;
stickline(C>O,C,O,4,0),Color0000bb;
stickline(C>O,C,O,2,0),Color6500dd;
stickline(C>O,C,O,1,0),Color9C00ff;
stickline(C<O,C,O,8,0),Color005500;
stickline(C<O,C,O,7,0),Color007700;
stickline(C<O,C,O,5,0),Color009900;
stickline(C<O,C,O,4,0),Color00bb00;
stickline(C<O,C,O,2,0),Color65dd00;
stickline(C<O,C,O,1,0),Color9Cff00;
dd:=MA(H,10)*1.02;
STICKLINE(cross(dd,c),CLOSE,OPEN,8,0),COLOR80FFFF;
LS12:=IF(2,LS0=2,單陽);
LS22:=IF(2,LLV(L,2)>REF(L,2),1);
單陽不破2:=LS12 AND LS22;
STICKLINE(單陽不破2,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破2,不破價-不破價*0.02,'2'),COLORGREEN;{http://www.kzuj.com.cn}
LS13:=IF(3,LS0=3,單陽);
LS23:=IF(3,LLV(L,3)>REF(L,3),1);
單陽不破3:=LS13 AND LS23;
STICKLINE(單陽不破3,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破3,不破價-不破價*0.02,'3'),COLORGREEN;{http://www.kzuj.com.cn}
LS14:=IF(4,LS0=4,單陽);
LS24:=IF(4,LLV(L,4)>REF(L,4),1);
單陽不破4:=LS14 AND LS24;
STICKLINE(單陽不破4,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破4,不破價-不破價*0.02,'4'),COLORGREEN;{http://www.kzuj.com.cn}
LS15:=IF(5,LS0=5,單陽);
LS25:=IF(5,LLV(L,5)>REF(L,5),1);
單陽不破5:=LS15 AND LS25;
STICKLINE(單陽不破5,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破5,不破價-不破價*0.02,'5'),COLORGREEN;{http://www.kzuj.com.cn}
LS16:=IF(6,LS0=6,單陽);
LS26:=IF(6,LLV(L,6)>REF(L,6),1);
單陽不破6:=LS16 AND LS26;
STICKLINE(單陽不破6,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破6,不破價-不破價*0.02,'6'),COLORGREEN;{http://www.kzuj.com.cn}
LS17:=IF(7,LS0=7,單陽);
LS27:=IF(7,LLV(L,7)>REF(L,7),1);
單陽不破7:=LS17 AND LS27;
STICKLINE(單陽不破7,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破7,不破價-不破價*0.02,'7'),COLORGREEN;{http://www.kzuj.com.cn}
LS18:=IF(8,LS0=8,單陽);
LS28:=IF(8,LLV(L,8)>REF(L,8),1);
單陽不破8:=LS18 AND LS28;
STICKLINE(單陽不破8,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破8,不破價-不破價*0.02,'8'),COLORGREEN;{http://www.kzuj.com.cn}
LS19:=IF(9,LS0=9,單陽);
LS29:=IF(9,LLV(L,9)>REF(L,9),1);
單陽不破9:=LS19 AND LS29;
STICKLINE(單陽不破9,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破9,不破價-不破價*0.02,'9'),COLORGREEN;{http://www.kzuj.com.cn}
LS110:=IF(10,LS0=10,單陽);
LS210:=IF(10,LLV(L,10)>REF(L,10),1);
單陽不破10:=LS110 AND LS210;
STICKLINE(單陽不破10,不破價-不破價*0.002,不破價,4,0),COLORRED;
DRAWTEXT(單陽不破10,不破價-不破價*0.02,'10'),COLORGREEN;{http://www.kzuj.com.cn}
{程序化交易 www.kzuj.com.cn }
有心再進一步研究，單陰不破，對比大智慧TS指標成功就在眼前。

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?