艾略特波浪劃線主圖指標公式公式、源碼

相關標簽:

?

原理解析：
X賦值:5 D賦值:10 輸出M5:收盤價的X日簡單移動平均 輸出M10:收盤價的D日簡單移動平均 T賦值:上次M5上穿M10距今天數(shù) ST賦值:上次M10上穿M5距今天數(shù) T1賦值:T=0累加至2的天數(shù) T2賦值:T=0累加至3的天數(shù) ST1賦值:ST=0累加至2的天數(shù) ST2賦值:ST=0累加至3的天數(shù) H1賦值:如果M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù),返回T+1日內(nèi)最高價的最高值,否則返回ST日前的T+1日內(nèi)最高價的最高值 L1賦值:如果M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù),返回ST+1日內(nèi)最低價的最低值,否則返回T日前的ST+1日內(nèi)最低價的最低值 H2賦值:如果M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù),返回ST日前的T+1日內(nèi)最高價的最高值,否則返回ST1-1日前的T+1日內(nèi)最高價的最高值 L2賦值:如果M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù),返回T日前的ST+1日內(nèi)最低價的最低值,否則返回T1-1日前的ST+1日內(nèi)最低價的最低值 H3賦值:如果M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù),返回ST1-1日前的T+1日內(nèi)最高價的最高值,否則返回ST2-1日前的T+1日內(nèi)最高價的最高值 L3賦值:如果M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù),返回T1-1日前的ST+1日內(nèi)最低價的最低值,否則返回T2-1日前的ST+1日內(nèi)最低價的最低值 TJ1賦值:M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=T2的最后一日取值設為常數(shù) AND 到最后交易的周期<=ST2的最后一日取值設為常數(shù) AND 最低價=L3的最后一日取值設為常數(shù) TJ2賦值:M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=ST1的最后一日取值設為常數(shù) AND 到最后交易的周期<=T2的最后一日取值設為常數(shù) AND 最高價=H3的最后一日取值設為常數(shù) TJ3賦值:M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=T1的最后一日取值設為常數(shù) AND 到最后交易的周期<=ST1的最后一日取值設為常數(shù) AND 最低價=L2的最后一日取值設為常數(shù) TJ4賦值:M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=ST的最后一日取值設為常數(shù) AND 到最后交易的周期<=T1的最后一日取值設為常數(shù) AND 最高價=H2的最后一日取值設為常數(shù) TJ5賦值:M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=T的最后一日取值設為常數(shù)+1 AND 到最后交易的周期<=ST的最后一日取值設為常數(shù)+1 AND 最低價=L1的最后一日取值設為常數(shù) TJ6賦值:M5的最后一日取值設為常數(shù)>M10的最后一日取值設為常數(shù) AND 最高價=H1的最后一日取值設為常數(shù) AND 到最后交易的周期<=ST2的最后一日取值設為常數(shù) TJ7賦值:M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=ST2的最后一日取值設為常數(shù) AND 到最后交易的周期<=T2的最后一日取值設為常數(shù) AND 最高價=H3的最后一日取值設為常數(shù) TJ8賦值:M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=T1的最后一日取值設為常數(shù) AND 到最后交易的周期<=ST2的最后一日取值設為常數(shù) AND 最低價=L3的最后一日取值設為常數(shù) TJ9賦值:M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=ST1的最后一日取值設為常數(shù) AND 到最后交易的周期<=T1的最后一日取值設為常數(shù) AND 最高價=H2的最后一日取值設為常數(shù) TJ10賦值:M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=T的最后一日取值設為常數(shù) AND 到最后交易的周期<=ST1的最后一日取值設為常數(shù) AND 最低價=L2的最后一日取值設為常數(shù) TJ11賦值:M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù) AND 到最后交易的周期>=ST的最后一日取值設為常數(shù)+1 AND 到最后交易的周期<=T的最后一日取值設為常數(shù)+1 AND 最高價=H1的最后一日取值設為常數(shù) TJ12賦值:M5的最后一日取值設為常數(shù)<M10的最后一日取值設為常數(shù) AND 最低價=L1的最后一日取值設為常數(shù)AND 到最后交易的周期<=T2的最后一日取值設為常數(shù) 當滿足條件TJ1時,在最低價位置畫直線起點，當滿足條件TJ2時,在最高價位置畫直線終點,0表示是否延長.,畫洋紅色 當滿足條件TJ2時,在最高價位置畫直線起點，當滿足條件TJ3時,在最低價位置畫直線終點,0表示是否延長.,畫洋紅色 當滿足條件TJ3時,在最低價位置畫直線起點，當滿足條件TJ4時,在最高價位置畫直線終點,0表示是否延長.,畫洋紅色 當滿足條件TJ4時,在最高價位置畫直線起點，當滿足條件TJ5時,在最低價位置畫直線終點,0表示是否延長.,畫洋紅色 當滿足條件TJ5時,在最低價位置畫直線起點，當滿足條件TJ6時,在最高價位置畫直線終點,0表示是否延長.,畫洋紅色 當滿足條件TJ7時,在最高價位置畫直線起點，當滿足條件TJ8時,在最低價位置畫直線終點,0表示是否延長.,畫綠色 當滿足條件TJ8時,在最低價位置畫直線起點，當滿足條件TJ9時,在最高價位置畫直線終點,0表示是否延長.,畫綠色 當滿足條件TJ9時,在最高價位置畫直線起點，當滿足條件TJ10時,在最低價位置畫直線終點,0表示是否延長.,畫綠色 當滿足條件TJ10時,在最低價位置畫直線起點，當滿足條件TJ11時,在最高價位置畫直線終點,0表示是否延長.,畫綠色 當滿足條件TJ11時,在最高價位置畫直線起點，當滿足條件TJ12時,在最低價位置畫直線終點,0表示是否延長.,畫綠色 HH賦值:H1和H2的較大值和H3的較大值的最后一日取值設為常數(shù) LL賦值:L1和L2的較小值和L3的較小值的最后一日取值設為常數(shù) Z賦值:(HH-LL)/2+LL 當滿足條件TJ7時,在Z位置畫直線起點，當滿足條件是否最后一個周期時,在Z位置畫直線終點,0表示是否延長.,畫綠色,DOTLINE 當滿足條件TJ7時,在Z的最后一日取值設為常數(shù)*1.01位置書寫文字,畫綠色 HH1賦值:H1和H2和H3的較大值的較大值的最后一日取值設為常數(shù) LL1賦值:L1和L2的較小值和L3的較小值的最后一日取值設為常數(shù) Z1賦值:(HH1-LL1)/2+LL1 當滿足條件TJ1時,在Z1位置畫直線起點，當滿足條件是否最后一個周期時,在Z1位置畫直線終點,0表示是否延長.,畫洋紅色,DOTLINE 當滿足條件TJ1時,在Z的最后一日取值設為常數(shù)*1.01位置書寫文字,畫洋紅色 輸出近高:H1,畫洋紅色,NODRAW 輸出近低:L1,畫綠色,NODRAW 輸出中高:H2,畫洋紅色,NODRAW 輸出中底:L2,畫綠色,NODRAW 輸出遠高:H3,畫洋紅色,NODRAW 輸出遠底:L3,畫綠色,NODRAW 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字

?

?來源:程序化99（ www.tumamayizhan.com ）

源碼：

?

艾略特波浪劃線主圖：艾略特波浪理論的五浪劃線，方便看盤和技術分析X:=5;
D:=10;
M5:MA(C,X);
M10:MA(C,D);T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);H1:=IF(CONST(M5)>CONST(M10),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(CONST(M5)<CONST(M10),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(CONST(M5)>CONST(M10),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(CONST(M5)<CONST(M10),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(CONST(M5)>CONST(M10),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(CONST(M5)<CONST(M10),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));TJ1:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(T2) AND CURRBARSCOUNT<=CONST(ST2) AND L=CONST(L3);
TJ2:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(ST1) AND CURRBARSCOUNT<=CONST(T2) AND H=CONST(H3);
TJ3:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(T1) AND CURRBARSCOUNT<=CONST(ST1) AND L=CONST(L2);
TJ4:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(ST) AND CURRBARSCOUNT<=CONST(T1) AND H=CONST(H2);
TJ5:=CONST(M5)>CONST(M10) AND CURRBARSCOUNT>=CONST(T)+1 AND CURRBARSCOUNT<=CONST(ST)+1 AND L=CONST(L1);
TJ6:=CONST(M5)>CONST(M10) AND H=CONST(H1) AND CURRBARSCOUNT<=CONST(ST2);
TJ7:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(ST2) AND CURRBARSCOUNT<=CONST(T2) AND H=CONST(H3);
TJ8:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(T1) AND CURRBARSCOUNT<=CONST(ST2) AND L=CONST(L3);
TJ9:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(ST1) AND CURRBARSCOUNT<=CONST(T1) AND H=CONST(H2);
TJ10:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(T) AND CURRBARSCOUNT<=CONST(ST1) AND L=CONST(L2);
TJ11:=CONST(M5)<CONST(M10) AND CURRBARSCOUNT>=CONST(ST)+1 AND CURRBARSCOUNT<=CONST(T)+1 AND H=CONST(H1);
TJ12:=CONST(M5)<CONST(M10) AND L=CONST(L1)AND CURRBARSCOUNT<=CONST(T2);DRAWLINE(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE(TJ11,H,TJ12,L,0),COLORGREEN;HH:=CONST(MAX(MAX(H1,H2),H3));
LL:=CONST(MIN(MIN(L1,L2),L3));
Z:=(HH-LL)/2+LL;
DRAWLINE(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,DOTLINE;
DRAWTEXT(TJ7,CONST(Z)*1.01,VARCAT(VARCAT('中區(qū)價位：',VAR2STR(CONST(Z),2)),'元')),COLORGREEN;
HH1:=CONST(MAX(H1,MAX(H2,H3)));
LL1:=CONST(MIN(MIN(L1,L2),L3));
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,DOTLINE;
DRAWTEXT(TJ1,CONST(Z)*1.01,VARCAT(VARCAT('中區(qū)價位：',VAR2STR(CONST(Z1),2)),'元')),COLORMAGENTA;近高:H1,COLORMAGENTA,NODRAW;
近低:L1,COLORGREEN,NODRAW;
中高:H2,COLORMAGENTA,NODRAW;
中底:L2,COLORGREEN,NODRAW;
遠高:H3,COLORMAGENTA,NODRAW;
遠底:L3,COLORGREEN,NODRAW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?