同花順狄馬克TD九轉序列主圖指標公式源碼[同花順公式]
//九轉序列
//九轉序列是基于狄馬克TD序列思想為參考，進行的價咯連續同方向趨勢排序。當數字出現"9"時，價咯容易出現轉折，因此起名為九轉序列。
// 九轉系列特點：
// 1、當序列運行在6之前，數字并不顯示，以過濾過于頻繁的數字排序。
// 2、當市場容易出現"9"的概率大于50%的時候，踢進行數字序列提示，通常從"6"或"7"開始，如果確定不會出現"9"，數字序列會在某個階段消失。
// 3、當完成數字序列，"9"則變成綠色并鎖定，請盡量與該周期收盤價咯為準。
?
?
STICKLINE(CLOSE>1.095*REF(C,1),CLOSE,OPEN,6,0),coloryellow;
STICKLINE(CLOSE<0.905*REF(C,1),CLOSE,OPEN,6,0),colorblue;
MA1:MA(C, 5),colorwhite;
MA2:MA(C, 10),coloryellow;
MA3:MA(C, 20),colormagenta;
MA4:MA(C, 60),colorligreen;
UR:=CURRBARSCOUNT+1;
A1 := IF(((REF(CLOSE,1) >= REF(C,5)) AND (C< REF(C,4))),1,0);
A2 := IF(((REFX(&CLOSE,1) < REF(C,3)) AND (A1 = 1)),2,0);
A3 := IF(((REFX(&CLOSE,2) < REF(C,2)) AND (A2 = 2)),3,0);
A4 := IF(((REFX(&CLOSE,3) < REF(C,1)) AND (A3 = 3)),4,0);
A5 := IF(((REFX(&CLOSE,4) < C) AND (A4 = 4)),5,0);
A6 := IF(((REFX(&CLOSE,5) < REFX(&CLOSE,1)) AND (A5 = 5)),6,0);
A7 := IF(((REFX(&CLOSE,6) < REFX(&CLOSE,2)) AND (A6 = 6)),7,0);
A8 := IF(((REFX(&CLOSE,7) < REFX(&CLOSE,3)) AND (A7 = 7)),8,0);
A9 := IF(((REFX(&CLOSE,8) < REFX(&CLOSE,4)) AND (A8 = 8)),9,0);
B1 := IF((A9 = 9),1,0);//www.kzuj.com.cn
B2 := IF((REF(A9,1) = 9),2,0);
B3 := IF((REF(A9,2) = 9),3,0);
B4 := IF((REF(A9,3) = 9),4,0);
B5 := IF((REF(A9,4) = 9),5,0);
B6 := IF((REF(A9,5) = 9),6,0);
B7 := IF((REF(A9,6) = 9),7,0);
B8 := IF((REF(A9,7) = 9),8,0);
B9 := IF((REF(A9,8) = 9),9,0);
M1 := ((((((((B1 + B2) + B3) + B4) + B5) + B6) + B7) + B8) + B9);
DRAWTEXT((M1 = 1),(LOW * 0.98),'1'),colormagenta;
DRAWTEXT((M1 = 2),(LOW * 0.98),'2'),colormagenta;
DRAWTEXT((M1 = 3),(LOW * 0.98),'3'),colormagenta;
DRAWTEXT((M1 = 4),(LOW * 0.98),'4'),colormagenta;
DRAWTEXT((M1 = 5),(LOW * 0.98),'5'),colormagenta;
DRAWTEXT((M1 = 6),(LOW * 0.98),'6'),colormagenta;
DRAWTEXT((M1 = 7),(LOW * 0.98),'7'),colormagenta;
DRAWTEXT((M1 = 8),(LOW * 0.98),'8'),colormagenta;
Aa1 := IF((C< REF(C,4)),1,0);//www.kzuj.com.cn
Aa2 := IF(((C< REF(C,4)) AND (REF(Aa1,1) = 1)),1,0);
Aa3 := IF(((C< REF(C,4)) AND (REF(Aa2,1) = 1)),1,0);
Aa4 := IF(((C< REF(C,4)) AND (REF(Aa3,1) = 1)),1,0);
Aa5 := IF(((C< REF(C,4)) AND (REF(Aa4,1) = 1)),1,0);
Aa6 := IF(((C< REF(C,4)) AND (REF(Aa5,1) = 1)),1,0);
Aa7 := IF(((C< REF(C,4)) AND (REF(Aa6,1) = 1)),1,0);
Aa8 := IF(((C< REF(C,4)) AND (REF(Aa7,1) = 1)),1,0);
Aa9 := IF(((C< REF(C,4)) AND (REF(Aa8,1) = 1)),1,0);
bb1 := IF(((Aa9 = 1) AND (REF(Aa9,1) = 0)),1,0);
DRAWTEXT((bb1 = 1),(LOW * 0.98),'9'),colorgreen;//http://www.kzuj.com.cn
A11 := IF(((REF(CLOSE,1) <= REF(C,5)) AND (C> REF(C,4))),1,0);
A21 := IF(((REFX(&CLOSE,1) > REF(C,3)) AND (A11 = 1)),2,0);
A31 := IF(((REFX(&CLOSE,2) > REF(C,2)) AND (A21 = 2)),3,0);
A41 := IF(((REFX(&CLOSE,3) > REF(C,1)) AND (A31 = 3)),4,0);
A51 := IF(((REFX(&CLOSE,4) > C) AND (A41 = 4)),5,0);
A61 := IF(((REFX(&CLOSE,5) > REFX(&CLOSE,1)) AND (A51 = 5)),6,0);
A71 := IF(((REFX(&CLOSE,6) > REFX(&CLOSE,2)) AND (A61 = 6)),7,0);
A81 := IF(((REFX(&CLOSE,7) > REFX(&CLOSE,3)) AND (A71 = 7)),8,0);
A91 := IF(((REFX(&CLOSE,8) > REFX(&CLOSE,4)) AND (A81 = 8)),9,0);
B11 := IF((A91 = 9),1,0);
B21 := IF((REF(A91,1) = 9),2,0);
B31 := IF((REF(A91,2) = 9),3,0);
B41 := IF((REF(A91,3) = 9),4,0);
B51 := IF((REF(A91,4) = 9),5,0);
B61 := IF((REF(A91,5) = 9),6,0);
B71 := IF((REF(A91,6) = 9),7,0);
B81 := IF((REF(A91,7) = 9),8,0);
B91 := IF((REF(A91,8) = 9),9,0);
M11 := ((((((((B11 + B21) + B31) + B41) + B51) + B61) + B71) + B81) + B91);
DRAWTEXT((M11 = 1),(H* 1.02),'1'),colormagenta;
DRAWTEXT((M11 = 2),(H* 1.02),'2'),colormagenta;
DRAWTEXT((M11 = 3),(H* 1.02),'3'),colormagenta;
DRAWTEXT((M11 = 4),(H* 1.02),'4'),colormagenta;
DRAWTEXT((M11 = 5),(H* 1.02),'5'),colormagenta;
DRAWTEXT((M11 = 6),(H* 1.02),'6'),colormagenta;
DRAWTEXT((M11 = 7),(H* 1.02),'7'),colormagenta;
DRAWTEXT((M11 = 8),(H* 1.02),'8'),colormagenta;
Aa11 := IF((C> REF(C,4)),1,0);
Aa21 := IF(((C> REF(C,4)) AND (REF(Aa11,1) = 1)),1,0);
Aa31 := IF(((C> REF(C,4)) AND (REF(Aa21,1) = 1)),1,0);
Aa41 := IF(((C> REF(C,4)) AND (REF(Aa31,1) = 1)),1,0);
Aa51 := IF(((C> REF(C,4)) AND (REF(Aa41,1) = 1)),1,0);
Aa61 := IF(((C> REF(C,4)) AND (REF(Aa51,1) = 1)),1,0);
Aa71 := IF(((C> REF(C,4)) AND (REF(Aa61,1) = 1)),1,0);
Aa81 := IF(((C> REF(C,4)) AND (REF(Aa71,1) = 1)),1,0);
Aa91 := IF(((C> REF(C,4)) AND (REF(Aa81,1) = 1)),1,0);
bb11 := IF(((Aa91 = 1) AND (REF(Aa91,1) = 0)),1,0);
DRAWTEXT((bb11 = 1),(HIGH * 1.02),'9'),colorgreen;//http://www.kzuj.com.cn
DRAWTEXT_FIX(CURRBARSCOUNT<1,0.01,0.03,0,"起于陰極陽生，止于陽極陰生，一個月只要幾次機會即可 www.kzuj.com.cn"),coloryellow;
?
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信：cxhjy888 進行 有償收費 編寫！(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
相關文章
-
沒有相關內容