相關標簽:

?

?

原理解析：
N賦值:5 輸出MA1:收盤價的5日簡單移動平均 輸出均線:收盤價的10日簡單移動平均 輸出MA3:收盤價的20日簡單移動平均 輸出MA4:收盤價的30日簡單移動平均 輸出MA5:收盤價的60日簡單移動平均 輸出MA6:收盤價的120日簡單移動平均 輸出MA7:收盤價的250日簡單移動平均 D1賦值:N日前的最高價 D2賦值:D1=2*N+1日內最高價的最高值 D3賦值:D2的N日過濾 D4賦值:若D3則將最近N+1周期置為1 HD賦值:D4的N日過濾 D5賦值:N日前的最低價 D6賦值:D5=2*N+1日內最低價的最低值 D7賦值:D6的N日過濾 D8賦值:若D7則將最近N+1周期置為1 LD賦值:D8的N日過濾 D賦值:若是否最后一個周期則將最近上次HD距今天數+1周期置為1 E賦值:D>1日前的D F賦值:若E則將最近1日前的上次HD距今天數+2周期置為1 G賦值:F>1日前的F 當滿足條件G時,在最高價位置畫直線起點，當滿足條件E時,在最高價位置畫直線終點,1表示是否延長.,POINTDOT,線寬為1,畫黃色 I賦值:若是否最后一個周期則將最近上次LD距今天數+1周期置為1 J賦值:I>1日前的I K賦值:若J則將最近1日前的上次LD距今天數+2周期置為1 M賦值:K>1日前的K 當滿足條件M時,在最低價位置畫直線起點，當滿足條件J時,在最低價位置畫直線終點,1表示是否延長.,POINTDOT,線寬為1,COLORFFB97A M1賦值:上次E距今天數 M2賦值:上次G距今天數 M3賦值:M1日前的最高價 M4賦值:M2日前的最高價 M5賦值:M4-M2*(M4-M3)/(M2-M1) 當滿足條件1日前的收盤價<=1日前的M5ANDC>M5時,在M5位置畫4號圖標 N1賦值:上次J距今天數 N2賦值:上次M距今天數 N3賦值:N1日前的最低價 N4賦值:N2日前的最低價 N5賦值:N4-N2*(N4-N3)/(N2-N1) 當滿足條件1日前的收盤價>=1日前的N5ANDC<N5時,在N5位置畫5號圖標 買點賦值:如果1日前的收盤價<=1日前的M5ANDC>M5,返回1,否則返回0, 線寬為0 賣點賦值:如果1日前的收盤價>=1日前的N5ANDC<N5,返回1,否則返回0, 線寬為0 當滿足條件收盤價15%之字轉向的前1個波谷位置<4時,在最低價*0.95位置書寫文字 , 畫紅色,線寬為1 當滿足條件1日前的收盤價10%的之字轉向上穿收盤價10%的之字轉向時,在最高價*1.004位置書寫文字 , 畫綠色,線寬為1 當滿足條件收盤價10%的之字轉向上穿1日前的收盤價10%的之字轉向時,在最低價*0.85位置畫'買入開倉'號圖標 TIPTEXT(ISNULL(1日后的&收盤價),0,' m.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

?來源:程序化99（ m.kzuj.com.cn ）

源碼：

?

?

?

N:=5;
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,20);
MA4:MA(CLOSE,30);
MA5:MA(CLOSE,60);
MA6:MA(CLOSE,120);
MA7:MA(CLOSE,250);
D1:=REF(H,N);
D2:=D1=HHV(H,2*N+1);
D3:=FILTER(D2,N);
D4:=BACKSET(D3,N+1);
HD:=FILTER(D4,N);
D5:=REF(L,N);
D6:=D5=LLV(L,2*N+1);
D7:=FILTER(D6,N);
D8:=BACKSET(D7,N+1);
LD:=FILTER(D8,N);
D:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
E:=D>REF(D,1);
F:=BACKSET(E,REF(BARSLAST(HD),1)+2);
G:=F>REF(F,1);
DRAWLINE(G,H,E,H,1),POINTDOT,LINETHICK1,coloryellow;
I:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
J:=I>REF(I,1);
K:=BACKSET(J,REF(BARSLAST(LD),1)+2);
M:=K>REF(K,1);
DRAWLINE(M,L,J,L,1),POINTDOT,LINETHICK1,COLORFFB97A;
M1:=BARSLAST(E);
M2:=BARSLAST(G);
M3:=REF(H,M1);
M4:=REF(H,M2);
M5:=M4-M2*(M4-M3)/(M2-M1);
DRAWICON(REF(C,1)<=REF(M5,1) AND C>M5,M5,4);
N1:=BARSLAST(J);
N2:=BARSLAST(M);
N3:=REF(L,N1);
N4:=REF(L,N2);
N5:=N4-N2*(N4-N3)/(N2-N1);
DRAWICON(REF(C,1)>=REF(N5,1) AND C<N5,N5,5);
買點:=IF(REF(C,1)<=REF(M5,1) AND C>M5,1,0), LINETHICK0 ;
賣點:=IF(REF(C,1)>=REF(N5,1) AND C<N5,1,0), LINETHICK0 ;
DRAWTEXT(TROUGHBARS(3,15,1)<4,LOW*0.95,'底') , colorred,LINETHICK1;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.004,'頂') , colorgreen,LINETHICK1;
DRAWICON(CROSS(ZIG(3,10) ,REF(ZIG(3 ,10),1)) ,LOW*0.85,'buy');
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' m.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?