相關標簽:

?

?

原理解析：
K賦值:(日期<1341230) XD1賦值:大盤的開盤價 XD2賦值:大盤的最高價 XD3賦值:大盤的最低價 XD4賦值:大盤的收盤價 輸出對應指數開:大盤的開盤價,COLOR0000FF,NODRAW 輸出盤中最高:大盤的最高價,NODRAW 輸出盤中最低:大盤的最低價,NODRAW 輸出收盤點:大盤的收盤價,NODRAW 輸出大盤資金增減:(100*((大盤的成交量/1日前的大盤的成交量)-1)),COLORFFFF00,NODRAW JJ賦值:(XD4+XD2+XD3)/3 A賦值:JJ的10日指數移動平均 B賦值:1日前的A 輸出決策點位:B,COLORFFFFFD,NODRAW 輸出當日換:100*成交量(手)/當前流通股本(手)的1日累和,NODRAW 輸出五日換:100*成交量(手)/當前流通股本(手)的5日累和,NODRAW VAR1賦值:收盤價的12日指數移動平均-收盤價的26日指數移動平均 VAR2賦值:VAR1的50日指數移動平均 VAR3賦值:2*(VAR1-VAR2) FD賦值:2*(VAR2-VAR1) 輸出MACD漸弱:如果VAR3<1日前的VAR3并且VAR3>0,返回VAR3,否則返回0,畫黃色,線寬為4,STICK 輸出MACD強勢:如果VAR3>=1日前的VAR3ANDVAR3>0,返回VAR3,否則返回0,畫紅色,線寬為4,STICK 輸出MACD走強:如果VAR3>1日前的VAR3ANDVAR3<0,返回VAR3,否則返回0,COLORFFC8FF,線寬為4,STICK 輸出MACD走弱:如果VAR3<=1日前的VAR3ANDVAR3<0,返回VAR3,否則返回0,COLORFFCC66,線寬為4,STICK 輸出短趨:收盤價的12日指數移動平均-收盤價的26日指數移動平均,畫綠色 輸出長趨:短趨的50日指數移動平均,COLORFF00FF 流通盤大小賦值:流通股本(股)/1000000*100,NODRAW 吸籌賦值:上次"隨機指標KD的K"上穿"隨機指標KD的D"AND"隨機指標KD的D"<30的13日過濾距今天數 主力吸籌區賦值:如果吸籌>0AND吸籌<61,返回吸籌,否則返回0 輸出介入時機:如果VAR2<0.8并且0上穿FD,返回-0.3,否則返回無效數,COLORFF00FF,線寬為3,CROSSDOT 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

?

K:=(DATE<1341230);
XD1:=INDEXO;
XD2:=INDEXH;
XD3:=INDEXL;
XD4:=INDEXC;
對應指數開:INDEXO,COLOR0000FF,NODRAW;
{盤:INDEXO,COLOR0000FF,NODRAW;}
盤中最高:INDEXH,NODRAW;
盤中最低:INDEXL,NODRAW;
收盤點:INDEXC,NODRAW;
{位:INDEXC,NODRAW;}
大盤資金增減:(100*((INDEXV/REF(INDEXV,1))-1)),COLORFFFF00,NODRAW;
JJ:=(XD4+XD2+XD3)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
{買賣}
決策點位:B,COLORFFFFFD,NODRAW;
當日換:SUM(100*V/CAPITAL,1),NODRAW;
五日換:SUM(100*V/CAPITAL,5),NODRAW;
{短線MACD}
VAR1:=EMA(CLOSE,12)-EMA(CLOSE,26);
VAR2:=EMA(VAR1,50);
VAR3:=2*(VAR1-VAR2);
FD:=2*(VAR2-VAR1);
MACD漸弱:IF(VAR3<REF(VAR3,1)&&VAR3>0,VAR3,0),COLORYELLOW,LINETHICK4,STICK;
MACD強勢:IF(VAR3>=REF(VAR3,1) ANDVAR3>0,VAR3,0),COLORRED,LINETHICK4,STICK;
MACD走強:IF(VAR3>REF(VAR3,1) ANDVAR3<0,VAR3,0),COLORFFC8FF,LINETHICK4,STICK;
MACD走弱:IF(VAR3<=REF(VAR3,1) ANDVAR3<0,VAR3,0),COLORFFCC66,LINETHICK4,STICK;
{STICKLINE(VAR3<REF(VAR3,1) ANDVAR3>0,0,VAR3,2,1),COLORYELLOW;
STICKLINE(VAR3>=REF(VAR3,1) ANDVAR3>0,0,VAR3,2,1),COLORRED;
STICKLINE(VAR3>REF(VAR3,1) ANDVAR3<0,0,VAR3,2,1),COLORFFC8FF;
STICKLINE(VAR3<=REF(VAR3,1) ANDVAR3<0,0,VAR3,2,1),COLORFFCC66;}
短趨:EMA(CLOSE,12)-EMA(CLOSE,26),COLORGREEN;
長趨:EMA(短趨,50),COLORFF00FF;
{簡單基本面信息}
流通盤大小:=FINANCE(7)/1000000*100,NODRAW;{
銷售毛利率:=FINANCE2(12);
凈利潤同比增長:=FINANCE2(10);}
吸籌:=BARSLAST(FILTER(CROSS("KD.K","KD.D") AND"KD.D"<30,13));
主力吸籌區:=IF(吸籌>0 AND 吸籌<61,吸籌,0);
介入時機:IF(VAR2<0.8&&CROSS(0,FD),-0.3,DRAWNULL),COLORFF00FF,LINETHICK3,CROSSDOT;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?