相關標簽:

?

寶線短 橫盤突破源碼

?

原理解析：
賦值: 收盤價的12日指數移動平均-收盤價的26日指數移動平均的5日指數移動平均 賦值: DIFF的9日指數移動平均 輸出A1:DIFF 輸出A2:DEA MACDOK賦值:DIFF上穿DEA MACD賣點賦值:DEA上穿DIFF 中間值賦值:(60日內最高價的最高值+60日內最低價的最低值 )/2 ZHANGFU賦值:(最高價-1日前的收盤價)/1日前的收盤價*100 MA3賦值:收盤價的3日簡單移動平均 MA5賦值:收盤價的5日簡單移動平均 MA10賦值:收盤價的10日簡單移動平均 MA20賦值:收盤價的20日簡單移動平均 MA25賦值:收盤價的25日簡單移動平均 MA60賦值:收盤價的60日簡單移動平均 MA90賦值:收盤價的90日簡單移動平均 MA120賦值:收盤價的120日簡單移動平均 A3賦值: (MA25-MA60)/MA60*100 A4賦值: (MA25-MA90)/MA90*100 A5賦值: (MA25-MA120)/MA120*100 A6賦值:如果收盤價>=開盤價,返回收盤價,否則返回開盤價 A7賦值:(最高價-A6)/A6*100 A8賦值:(最高價-10日前的收盤價)/10日前的收盤價*100 A9賦值:(最高價-11日前的收盤價)/11日前的收盤價*100 A10賦值:(最高價-12日前的收盤價)/12日前的收盤價*100 A11賦值:(最高價-13日前的收盤價)/13日前的收盤價*100 A12賦值:(最高價-14日前的收盤價)/14日前的收盤價*100 A13賦值:(最高價-15日前的收盤價)/15日前的收盤價*100 A14賦值:(最高價-16日前的收盤價)/16日前的收盤價*100 A15賦值:(最高價-17日前的收盤價)/17日前的收盤價*100 A16賦值:(最高價-18日前的收盤價)/18日前的收盤價*100 A17賦值:(最高價-19日前的收盤價)/19日前的收盤價*100 A18賦值:(最高價-20日前的收盤價)/20日前的收盤價*100 A19賦值:(最高價-21日前的收盤價)/21日前的收盤價*100 A20賦值:100 A21賦值:A8<A20 ANDA9<A20 ANDA10<A20 ANDA11<A20 ANDA12<A20 ANDA13<A20 ANDA14<A20 ANDA15<A20 ANDA16<A20 ANDA17<A20 ANDA18<A20 ANDA19<A20 B1賦值:30 B2賦值:(最低價-6日前的最高價)/6日前的最高價*100 B3賦值:(最低價-7日前的最高價)/7日前的最高價*100 B4賦值:(最低價-8日前的最高價)/8日前的最高價*100 B5賦值:(最低價-9日前的最高價)/9日前的最高價*100 B6賦值:(最低價-10日前的最高價)/10日前的最高價*100 B7賦值:(最低價-11日前的最高價)/11日前的最高價*100 B8賦值:(最低價-12日前的最高價)/12日前的最高價*100 B9賦值:(最低價-13日前的最高價)/13日前的最高價*100 B10賦值:(最低價-14日前的最高價)/14日前的最高價*100 B11賦值:(最低價-15日前的最高價)/15日前的最高價*100 B12賦值:(最低價-16日前的最高價)/16日前的最高價*100 B13賦值:(最低價-17日前的最高價)/17日前的最高價*100 B14賦值:(最低價-18日前的最高價)/18日前的最高價*100 B15賦值:(最低價-19日前的最高價)/19日前的最高價*100 B16賦值:(最低價-20日前的最高價)/20日前的最高價*100 B17賦值:(最低價-21日前的最高價)/21日前的最高價*100 B18賦值:B2<B1 ANDB3<B1 ANDB4<B1 ANDB5<B1 ANDB6<B1 ANDB7<B1 ANDB8<B1 ANDB9<B1 ANDB10<B1 ANDB11<B1 ANDB12<B1 ANDB13<B1 ANDB14<B1 ANDB15<B1 ANDB16<B1 ANDB17<B1 賦值: 收盤價的5日簡單移動平均 UB5賦值:MID5+2*收盤價的5日估算標準差,畫紅色 賦值: 收盤價的10日簡單移動平均 UB10賦值:MID10+2*收盤價的10日估算標準差,畫紅色 C1賦值:(最高價-1日前的收盤價)/1日前的收盤價*100 C4賦值:統計80日中滿足C1>4.5的天數>=5 AND 統計60日中滿足C1>3的天數>=10 D1賦值:MACDOK AND 統計60日中滿足MA60>1日前的MA60的天數>=20 AND A3<10 AND C4 AND 統計60日中滿足A21的天數>=60 AND 統計20日中滿足B18的天數>=20 AND ZHANGFU>3.5 AND 最低價<MA25 AND 最高價 >MA25 D2賦值: 統計90日中滿足MA90>1日前的MA90的天數>=30 AND A4<10 AND C4 AND 統計90日中滿足A21的天數>=90 AND 統計20日中滿足B18的天數>=20 AND ZHANGFU>3.5 AND 最低價<MA25 AND 最高價 >MA25 D3賦值: 統計120日中滿足MA120>1日前的MA120的天數>=30 AND A5<10 AND C4 AND 統計120日中滿足A21的天數>=120 AND 統計20日中滿足B18的天數>=20 AND ZHANGFU>3.5 AND 最低價<MA25 AND 最高價 >MA25 賦值: D1 OR D2 OR D3 AND 收陽線 買入賦值:橫盤突破 FF賦值: (最高價 - 上次買入距今天數日前的收盤價 ) / 上次買入距今天數日前的收盤價 *100 E3賦值: FF >15 AND 上次買入距今天數<30 AND DEA上穿DIFF E2賦值: FF >15 AND 上次買入距今天數<30 AND UB5 <1日前的UB5 AND 1日前的UB5 >=2日前的UB5 AND 2日前的UB5 >=3日前的UB5 AND UB10 >=1日前的UB10 AND 1日前的UB10 >=2日前的UB10 減倉賦值:E3 OR E2 賣出賦值: FF<-20 AND 上次買入距今天數<30 AND DEA上穿DIFF 止損賦值: FF<-10 AND 上次買入距今天數 <20 AND 統計21日中滿足買入的天數>=1 離場賦值: FF>-10 AND FF <15 AND 上次買入距今天數 20 AND 統計20日中滿足買入的天數 1 當滿足條件買入ANDCOUNT(買入,30))1時,在DIFF+0.3位置書寫文字,畫紅色 當滿足條件買入ANDCOUNT(買入,30))1時,在DIFF位置畫1號圖標 當滿足條件減倉時,在DIFF-0.3位置書寫文字,畫綠色 當滿足條件減倉時,在DIFF位置畫2號圖標 當滿足條件賣出時,在DIFF+0.3位置書寫文字,畫綠色 GG賦值:統計30日中滿足買入的天數>0 AND DEA上穿DIFF TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

DIFF := EMA(EMA(CLOSE,12) - EMA(CLOSE,26),5);
DEA := EMA(DIFF,9);
A1:DIFF;
A2:DEA;
MACDOK:=CROSS(DIFF,DEA) ;
MACD賣點:=CROSS(DEA,DIFF) ;
中間值:=(HHV(H,60)+LLV(L,60) )/2;
ZHANGFU:=(H-REF(C,1))/REF(C,1)*100;
MA3:=MA(C,3);
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA25:=MA(C,25);
MA60:=MA(C,60);
MA90:=MA(C,90);
MA120:=MA(C,120);
A3:= (MA25-MA60)/MA60*100;
A4:= (MA25-MA90)/MA90*100;
A5:= (MA25-MA120)/MA120*100;
A6:=IF(C>=O,C,O);
A7:=(H-A6)/A6*100;
A8:=(H-REF(C,10))/REF(C,10)*100;
A9:=(H-REF(C,11))/REF(C,11)*100;
A10:=(H-REF(C,12))/REF(C,12)*100;
A11:=(H-REF(C,13))/REF(C,13)*100;
A12:=(H-REF(C,14))/REF(C,14)*100;
A13:=(H-REF(C,15))/REF(C,15)*100;
A14:=(H-REF(C,16))/REF(C,16)*100;
A15:=(H-REF(C,17))/REF(C,17)*100;
A16:=(H-REF(C,18))/REF(C,18)*100;
A17:=(H-REF(C,19))/REF(C,19)*100;
A18:=(H-REF(C,20))/REF(C,20)*100;
A19:=(H-REF(C,21))/REF(C,21)*100;
A20:=100;
A21:=A8<A20 AND
A9<A20 AND
A10<A20 AND
A11<A20 AND
A12<A20 AND
A13<A20 AND
A14<A20 AND
A15<A20 AND
A16<A20 AND
A17<A20 AND
A18<A20 AND
A19<A20
;
B1:=30;
B2:=(L-REF(H,6))/REF(H,6)*100;
B3:=(L-REF(H,7))/REF(H,7)*100;
B4:=(L-REF(H,8))/REF(H,8)*100;
B5:=(L-REF(H,9))/REF(H,9)*100;
B6:=(L-REF(H,10))/REF(H,10)*100;
B7:=(L-REF(H,11))/REF(H,11)*100;
B8:=(L-REF(H,12))/REF(H,12)*100;
B9:=(L-REF(H,13))/REF(H,13)*100;
B10:=(L-REF(H,14))/REF(H,14)*100;
B11:=(L-REF(H,15))/REF(H,15)*100;
B12:=(L-REF(H,16))/REF(H,16)*100;
B13:=(L-REF(H,17))/REF(H,17)*100;
B14:=(L-REF(H,18))/REF(H,18)*100;
B15:=(L-REF(H,19))/REF(H,19)*100;
B16:=(L-REF(H,20))/REF(H,20)*100;
B17:=(L-REF(H,21))/REF(H,21)*100;
B18:=
B2<B1 AND
B3<B1 AND
B4<B1 AND
B5<B1 AND
B6<B1 AND
B7<B1 AND
B8<B1 AND
B9<B1 AND
B10<B1 AND
B11<B1 AND
B12<B1 AND
B13<B1 AND
B14<B1 AND
B15<B1 AND
B16<B1 AND
B17<B1
;
MID5 := MA(CLOSE,5);
UB5:=MID5+2*STD(CLOSE,5),colorred;
MID10 := MA(CLOSE,10);
UB10:=MID10+2*STD(CLOSE,10),colorred;
C1:=(H-REF(C,1))/REF(C,1)*100;
C4:=COUNT(C1>4.5,80 )>=5 AND COUNT(C1>3,60 )>=10;
D1:=MACDOK AND COUNT(MA60>REF(MA60,1),60)>=20 AND A3<10 AND C4 AND COUNT(A21,60)>=60 AND COUNT(B18,20)>=20 AND ZHANGFU>3.5 AND L<MA25 AND H >MA25;
D2:= COUNT(MA90>REF(MA90,1),90)>=30 AND A4<10 AND C4 AND COUNT(A21,90)>=90 AND COUNT(B18,20)>=20 AND ZHANGFU>3.5 AND L<MA25 AND H >MA25;
D3:= COUNT(MA120>REF(MA120,1),120)>=30 AND A5<10 AND C4 AND COUNT(A21,120)>=120 AND COUNT(B18,20)>=20 AND ZHANGFU>3.5 AND L<MA25 AND H >MA25;
橫盤突破 := D1 OR D2 OR D3 AND C>O;
買入:=橫盤突破 ;
FF:= (H - REF(C,BARSLAST(買入)) ) / REF(C,BARSLAST(買入) ) *100;
E3:= FF >15 AND BARSLAST(買入)<30 AND CROSS(DEA,DIFF);
E2:= FF >15 AND BARSLAST(買入)<30 AND UB5 <REF(UB5,1) AND REF(UB5,1) >=REF(UB5,2) AND REF(UB5,2) >=REF(UB5,3) AND UB10 >=REF(UB10,1) AND REF(UB10,1) >=REF(UB10,2);
減倉:=E3 OR E2;
賣出:= FF<-20 AND BARSLAST(買入)<30 AND CROSS(DEA,DIFF);
止損:= FF<-10 AND BARSLAST(買入) <20 AND COUNT(買入,21)>=1;
離場:= FF>-10 AND FF <15 AND BARSLAST(買入)==20 AND COUNT(買入,20)==1;
DRAWTEXT(買入 AND COUNT(買入,30)==1,DIFF+0.3,'建倉'),colorred;
DRAWICON( 買入 AND COUNT(買入,30)==1 ,DIFF,1);
DRAWTEXT( 減倉 ,DIFF-0.3,'減倉'),colorgreen;
DRAWICON( 減倉 ,DIFF,2);
DRAWTEXT( 賣出 ,DIFF+0.3,'賣出'),colorgreen;
GG:=COUNT(買入,30)>0 AND CROSS(DEA,DIFF);TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?