相關標簽:

?

?

原理解析：
VAR1賦值:(收盤價-13日內最低價的最低值)/(13日內最高價的最高值-13日內最低價的最低值)*100 輸出牛:VAR1的7日[1日權重]移動平均 VAR2賦值:牛的5日[1日權重]移動平均 輸出熊:如果牛上穿VAR2ANDCROSS(收盤價的5日簡單移動平均,收盤價的13日簡單移動平均AND牛>50),返回VAR2*2,否則返回VAR2 VAR3賦值:收盤價的8日指數移動平均 VAR4賦值:收盤價的20日指數移動平均 當滿足條件牛>VAR2時,在牛和熊位置之間畫柱狀線,寬度為0,0不為0則畫空心柱. 當滿足條件牛<VAR2時,在牛和VAR2位置之間畫柱狀線,寬度為0,0不為0則畫空心柱. 輸出短線進出:3*(收盤價-13日內最低價的最低值)/(13日內最高價的最高值-13日內最低價的最低值)*100的5日[1日權重]移動平均-2*(收盤價-13日內最低價的最低值)/(13日內最高價的最高值-13日內最低價的最低值)*100的5日[1日權重]移動平均的3日[1日權重]移動平均,COLOR0000FF 如果短線進出>1日前的短線進出,返回短線進出,否則返回無效數,畫紅色 如果短線進出<1日前的短線進出,返回短線進出,否則返回無效數,畫綠色 VAR5賦值:10 輸出低吸區:如果短線進出<=10,返回10,否則返回0,COLORFFCC33 輸出買入:如果短線進出上穿VAR5,返回20,否則返回0,COLORFFFFCC VAR6賦值:(2*收盤價+最高價+最低價+開盤價)/5 VAR7賦值:33日內最低價的最低值 VAR8賦值:33日內最高價的最高值 輸出目前位置:(VAR6-VAR7)/(VAR8-VAR7)*100的5日指數移動平均,畫青色 輸出生命線:0.667*1日前的目前位置+0.333*目前位置的4日指數移動平均,CIRCLEDOT 如果生命線>1日前的生命線,返回生命線,否則返回無效數,畫紅色,CIRCLEDOT 如果生命線<1日前的生命線,返回生命線,否則返回無效數,畫綠色,CIRCLEDOT VAR9賦值:如果生命線上穿目前位置AND目前位置>=77,返回77,否則返回89 VARA賦值:如果目前位置上穿20ORCROSS(目前位置,生命線)AND目前位置>20,返回20,否則返回5 輸出賣出區:VAR9 VARB賦值:55日內最低價的最低值 VARC賦值:34日內最高價的最高值 VARD賦值:(VAR6-VARB)/(VARC-VARB)*100的3日指數移動平均 VARE賦值:(目前位置+VARD)/2 VARF賦值:0.667*1日前的VARD+0.333*目前位置的2日指數移動平均 VAR10賦值:VARE的5日指數移動平均 VAR11賦值:0.667*1日前的VAR10+0.333*VAR10的2日指數移動平均 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

?

VAR1:=(C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100;
牛:SMA(VAR1,7,1);
VAR2:=SMA(牛,5,1);
熊:IF(CROSS(牛,VAR2) AND CROSS(MA(C,5),MA(C,13) AND 牛>50),VAR2*2,VAR2);
VAR3:=EMA(C,8);
VAR4:=EMA(C,20);
STICKLINE(牛>VAR2,牛,熊,0,0);
STICKLINE(牛<VAR2,牛,VAR2,0,0);
短線進出:3*SMA((C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100,5,1)-2*SMA(SMA((C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100,5,1),3,1),COLOR0000FF;
IF(短線進出>REF(短線進出,1),短線進出,DRAWNULL),COLORRED;
IF(短線進出<REF(短線進出,1),短線進出,DRAWNULL),COLORGREEN;
VAR5:=10;
低吸區:IF(短線進出<=10,10,0),COLORFFCC33;
買入:IF(CROSS(短線進出,VAR5),20,0),COLORFFFFCC;
VAR6:=(2*C+H+L+O)/5;
VAR7:=LLV(L,33);
VAR8:=HHV(H,33);
目前位置:EMA((VAR6-VAR7)/(VAR8-VAR7)*100,5),COLORCYAN;
生命線:EMA(0.667*REF(目前位置,1)+0.333*目前位置,4),CIRCLEDOT;
IF(生命線>REF(生命線,1),生命線,DRAWNULL),COLORRED,CIRCLEDOT;
IF(生命線<REF(生命線,1),生命線,DRAWNULL),COLORGREEN,CIRCLEDOT;
VAR9:=IF(CROSS(生命線,目前位置) AND 目前位置>=77,77,89);
VARA:=IF(CROSS(目前位置,20) OR CROSS(目前位置,生命線) AND 目前位置>20,20,5);
賣出區:VAR9;
VARB:=LLV(L,55);
VARC:=HHV(H,34);
VARD:=EMA((VAR6-VARB)/(VARC-VARB)*100,3);
VARE:=(目前位置+VARD)/2;
VARF:=EMA(0.667*REF(VARD,1)+0.333*目前位置,2);
VAR10:=EMA(VARE,5);
VAR11:=EMA(0.667*REF(VAR10,1)+0.333*VAR10,2);

DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?