相關標簽:

?

?

?

原理解析：
N賦值:20 N1賦值:7 N2賦值:69 T1賦值:如果(日期<=1341231),返回1,否則返回0 M3賦值:收盤價的3日指數移動平均 輸出M8:收盤價的8日指數移動平均,COLOR008000 輸出M13:M8的13日指數移動平均,COLOR0000FF 輸出M62:M8的55日指數移動平均,COLORF0F000 VAR1賦值:M13的62日指數移動平均 輸出M81:M62的81日指數移動平均,COLOR00FFFF 輸出M144:VAR1的144日指數移動平均,線寬為2,COLOR0000FF 輸出M250:VAR1的250日指數移動平均,POINTDOT,線寬為2,COLORF00FF0 VAR2賦值:(收盤價+最高價+最低價)/(3) VAR3賦值:(VAR2的10日指數移動平均)*(T1) VAR4賦值:(1日前的VAR3)*(T1) 當滿足條件(VAR3>VAR4)時,在VAR3和VAR4位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件(VAR3<VAR4)時,在VAR3和VAR4位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF0000 VAR5賦值:((1日前的最高價+1日前的最低價)/(2))*(T1) VAR6賦值:收盤價的N日簡單移動平均+((2)*(收盤價的N日估算標準差))*(T1) 當滿足條件VAR3上穿VAR4時,在(VAR3)*(0.98)位置書寫文字,COLOR00FFFF 當滿足條件VAR5上穿VAR6時,在(最高價)*(1.04)位置書寫文字,COLOR008000 VAR7賦值:1日前的收盤價 VAR8賦值:((收盤價-VAR7和0的較大值的N1日[1日權重]移動平均)/(收盤價-VAR7的絕對值的N1日[1日權重]移動平均))*(100) VAR9賦值:N2上穿VAR8 VARA賦值:(VAR9的4日過濾)*(T1) 當滿足條件VARA時,在(最高價)*(1.04)位置書寫文字,COLORFFFFFF VARB賦值:((2)*(收盤價)+最高價+最低價)/(4) VARC賦值:34日內最低價的最低值 VARD賦值:34日內最高價的最高值 VARE賦值:(((VARB-VAR1)/(VAR5-VAR1))*(100)的7日指數移動平均)*(T1) VARF賦值:((0.667)*(1日前的VARE)+(0.333)*(VARE)的5日指數移動平均)*(T1) 當滿足條件如果((統計8日中滿足(收盤價<1日前的收盤價)的天數)/(8)>0.6)AND(成交量(手)>=(1.5)*(成交量(手)的5日簡單移動平均))ANDCOUNT((VARE>=VARF),3)AND(1日前的最低價=120日內最低價的最低值),返回1,否則返回0時,在最低價位置書寫文字,COLORFF00FF 當滿足條件如果((統計13日中滿足(收盤價<1日前的收盤價)的天數)/(13)>0.6)ANDCOUNT((VARE>VARF),6)AND(5日前的最低價=120日內最低價的最低值)ANDREF((收盤價>=開盤價),4)ANDREF((收陽線),3)ANDREF((收盤價>OPE,返回?,否則返回?時,在),2)ANDREF((收陰線),1)AND(開盤價>1日前的收盤價),1,0)位置書寫文字,COLOR00FFFF VAR10賦值:(收盤價的80日簡單移動平均-(收盤價的10日簡單移動平均)/(3))*(T1) 當滿足條件如果(收盤價<VAR10)AND((成交量(手))/(240)>(成交量(手)的5日簡單移動平均)/(240))AND(收盤價>(1日前的收盤價)*(1.08))AND(收盤價<(收盤價的13日簡單移動平均)*(1.3)),返回1,否則返回0時,在最低價位置書寫文字 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

N:=20;
N1:=7;
N2:=69;
T1:=IF((DATE<=1341231),1,0);
M3:=EMA(CLOSE,3);
M8:EMA(CLOSE,8),COLOR008000;
M13:EMA(M8,13),COLOR0000FF;
M62:EMA(M8,55),COLORF0F000;
VAR1:=EMA(M13,62);
M81:EMA(M62,81),COLOR00FFFF;
M144:EMA(VAR1,144),LINETHICK2,COLOR0000FF;
M250:EMA(VAR1,250),POINTDOT,LINETHICK2,COLORF00FF0;
VAR2:=(CLOSE+HIGH+LOW)/(3);
VAR3:=(EMA(VAR2,10))*(T1);
VAR4:=(REF(VAR3,1))*(T1);
STICKLINE((VAR3>VAR4),VAR3,VAR4,4,0),COLOR00FFFF;
STICKLINE((VAR3<VAR4),VAR3,VAR4,4,0),COLORFF0000;
VAR5:=((REF(HIGH,1)+REF(LOW,1))/(2))*(T1);
VAR6:=MA(CLOSE,N)+((2)*(STD(CLOSE,N)))*(T1);
DRAWTEXT(CROSS(VAR3,VAR4),(VAR3)*(0.98),''),COLOR00FFFF;
DRAWTEXT(CROSS(VAR5,VAR6),(HIGH)*(1.04),'↓賣'),COLOR008000;
VAR7:=REF(CLOSE,1);
VAR8:=((SMA(MAX(CLOSE-VAR7,0),N1,1))/(SMA(ABS(CLOSE-VAR7),N1,1)))*(100);
VAR9:=CROSS(N2,VAR8);
VARA:=(FILTER(VAR9,4))*(T1);
DRAWTEXT(VARA,(HIGH)*(1.04),'↓賣'),COLORFFFFFF;
VARB:=((2)*(CLOSE)+HIGH+LOW)/(4);
VARC:=LLV(LOW,34);
VARD:=HHV(HIGH,34);
VARE:=(EMA(((VARB-VAR1)/(VAR5-VAR1))*(100),7))*(T1);
VARF:=(EMA((0.667)*(REF(VARE,1))+(0.333)*(VARE),5))*(T1);
DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),8))/(8)>0.6) AND (VOL>=(1.5)*(MA(VOL,5))) AND COUNT((VARE>=VARF),3) AND (REF(LOW,1)=LLV(LOW,120)),1,0),LOW,'●買進'),COLORFF00FF;
DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),13))/(13)>0.6) AND COUNT((VARE>VARF),6) AND (REF(LOW,5)=LLV(LOW,120)) AND REF((CLOSE>=OPEN),4) AND REF((CLOSE>OPEN),3) AND REF((CLOSE>OPEN),2) AND REF((OPEN>CLOSE),1) AND (OPEN>REF(CLOSE,1)),1,0),LOW,'●買進'),COLOR00FFFF;
VAR10:=(MA(CLOSE,80)-(MA(CLOSE,10))/(3))*(T1);
DRAWTEXT(IF((CLOSE<VAR10) AND ((VOL)/(240)>(MA(VOL,5))/(240)) AND (CLOSE>(REF(CLOSE,1))*(1.08)) AND (CLOSE<(MA(CLOSE,13))*(1.3)),1,0),LOW,'●抄底');DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;


?

?

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

?