飛狐初級要塞主圖公式代碼源碼

作者：飛狐交易師來源：cxh99.com 發布時間：2021年10月11日

相關標簽:

原理解析：

MA5賦值:(((((3 * 收盤價) + 開盤價) + 最低價) + 最高價) / 6)

A賦值:(((((((((((((((((((((20 * MA5) + (19 * 1日前的MA5)) + (18 * 2日前的MA5)) + (17 * 3日前的MA5)) + (16 * 4日前的MA5)) + (15 * 5日前的MA5)) + (14 * 6日前的MA5)) + (13 * 7日前的MA5)) + (12 * 8日前的MA5)) + (11 * 9日前的MA5)) + (10 * 10日前的MA5)) + (9 * 11日前的MA5)) + (8 * 12日前的MA5)) + (7 * 13日前的MA5)) + (6 * 14日前的MA5)) + (5 * 15日前的MA5)) + (4 * 16日前的MA5)) + (3 * 17日前的MA5)) + (2 * 18日前的MA5)) + 20日前的MA5) / 210)

B賦值:A的3日簡單移動平均

B1賦值:A的5日簡單移動平均

B2賦值:A的13日簡單移動平均

B3賦值:A的21日簡單移動平均

B4賦值:A的34日簡單移動平均

B5賦值:上次"平滑異同平均的MACD"上穿0距今天數日前的B2

X5賦值:上次"平滑異同平均的MACD"上穿0距今天數日前的B3

X6賦值:上次0上穿"平滑異同平均的MACD"距今天數日前的B2

X7賦值:上次0上穿"平滑異同平均的MACD"距今天數日前的B3

輸出VAR1:如果("平滑異同平均的MACD">0),返回B5,否則返回X6,COLORFFFFFF

輸出VAR2:如果("平滑異同平均的MACD">0),返回X5,否則返回X7,COLORFFFFFF

FILLRGN((VAR1 > VAR2),VAR1,VAR2),COLORFFFF

FILLRGN((VAR1 < VAR2),VAR1,VAR2),COLORFFFF00

X8賦值:上次"KDJ的K"上穿"KDJ的D"距今天數日前的B

X1賦值:上次"KDJ的D"上穿"KDJ的K"距今天數日前的B1 畫洋紅色?

X2賦值:上次"KDJ的D"上穿"KDJ的J"距今天數日前的B

X3賦值:上次"KDJ的J"上穿"KDJ的D"距今天數日前的B1 畫深灰色

輸出VAR3:如果("KDJ的K">"KDJ的D"),返回X8,否則返回X2,COLORFFFFFF

輸出VAR4:如果("KDJ的D">"KDJ的K"),返回X1,否則返回X3,COLORFFFFFF

FILLRGN((VAR3 > VAR4),VAR3,VAR4),COLORFF00FF

FILLRGN((VAR3 < VAR4),VAR3,VAR4),COLORFFFFFF

X4賦值:上次"平滑異同平均的MACD"上穿0距今天數日前的B4

FILLRGN((X4 < VAR1和VAR2的較小值),X4,VAR1和VAR2的較小值),COLORFF0000

FILLRGN((X4 > VAR1和VAR2的較大值),X4,VAR1和VAR2的較大值),COLOR808080

當滿足條件(收盤價>=1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF

當滿足條件(收盤價<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF00

當滿足條件(收盤價>=1日前的收盤價)時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF

當滿足條件(收盤價<1日前的收盤價)時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF00

PARTLINE(((收盤價 > VAR3和VAR4的較大值) AND ("KDJ的K" > 50)),(收盤價的15日簡單移動平均 * 1.1)),線寬為2,COLORFF00

PARTLINE(((收盤價 > VAR3和VAR4的較大值) AND ("KDJ的K" > 50)),((收盤價的15日簡單移動平均 * 1.1) - (((收盤價的15日簡單移動平均 * 1.1) - (收盤價的15日簡單移動平均 * 0.9)) * 0.191))),線寬為2,COLORFF00

當滿足條件((收盤價>VAR3和VAR4的較大值)AND("KDJ的K">50))時,在(收盤價的15日簡單移動平均*1.1)和((收盤價的15日簡單移動平均*1.1)-(((收盤價的15日簡單移動平均*1.1)-(收盤價的15日簡單移動平均*0.9))*0.191))位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF00

源碼：

MA5:=(((((3 * CLOSE) + OPEN) + LOW) + HIGH) / 6);
A:=(((((((((((((((((((((20 * MA5) + (19 * REF(MA5,1))) + (18 * REF(MA5,2))) + (17 * REF(MA5,3))) + (16 * REF(MA5,4))) + (15 * REF(MA5,5))) + (14 * REF(MA5,6))) + (13 * REF(MA5,7))) + (12 * REF(MA5,8))) + (11 * REF(MA5,9))) + (10 * REF(MA5,10))) + (9 * REF(MA5,11))) + (8 * REF(MA5,12))) + (7 * REF(MA5,13))) + (6 * REF(MA5,14))) + (5 * REF(MA5,15))) + (4 * REF(MA5,16))) + (3 * REF(MA5,17))) + (2 * REF(MA5,18))) + REF(MA5,20)) / 210);
B:=MA(A,3);
B1:=MA(A,5);
B2:=MA(A,13);
B3:=MA(A,21);
B4:=MA(A,34);
B5:=REF(B2,BARSLAST(CROSS("MACD.MACD",0)));
X5:=REF(B3,BARSLAST(CROSS("MACD.MACD",0)));
X6:=REF(B2,BARSLAST(CROSS(0,"MACD.MACD")));
X7:=REF(B3,BARSLAST(CROSS(0,"MACD.MACD")));
VAR1:IF(("MACD.MACD" > 0),B5,X6),colorFFFFFF;
VAR2:IF(("MACD.MACD" > 0),X5,X7),colorFFFFFF;
FILLRGN((VAR1 > VAR2),VAR1,VAR2),colorFFFF;
FILLRGN((VAR1 < VAR2),VAR1,VAR2),colorFFFF00;
X8:=REF(B,BARSLAST(CROSS("KDJ.K","KDJ.D")));
X1:=REF(B1,BARSLAST(CROSS("KDJ.D","KDJ.K"))) COLORMAGENTA ;
X2:=REF(B,BARSLAST(CROSS("KDJ.d","KDJ.j")));
X3:=REF(B1,BARSLAST(CROSS("KDJ.j","KDJ.d"))) COLORGRAY;
VAR3:IF(("KDJ.K" > "KDJ.D"),X8,X2),colorFFFFFF;
VAR4:IF(("KDJ.D" > "KDJ.K"),X1,X3),colorFFFFFF;
FILLRGN((VAR3 > VAR4),VAR3,VAR4),colorFF00FF;
FILLRGN((VAR3 < VAR4),VAR3,VAR4),colorFFFFFF;
X4:=REF(B4,BARSLAST(CROSS("MACD.MACD",0)));
FILLRGN((X4 < MIN(VAR1,VAR2)),X4,MIN(VAR1,VAR2)),colorFF0000;
FILLRGN((X4 > MAX(VAR1,VAR2)),X4,MAX(VAR1,VAR2)),color808080;
STICKLINE((CLOSE >= REF(CLOSE,1)),CLOSE,OPEN,8,0),colorFF;
STICKLINE((CLOSE < REF(CLOSE,1)),CLOSE,OPEN,8,0),colorFF00;
STICKLINE((CLOSE >= REF(CLOSE,1)),HIGH,LOW,0,0),colorFF;
STICKLINE((CLOSE < REF(CLOSE,1)),HIGH,LOW,0,0),colorFF00;
PARTLINE(((CLOSE > MAX(VAR3,VAR4)) AND ("KDJ.k" > 50)),(MA(CLOSE,15) * 1.1)),LINETHICK2,colorFF00;
PARTLINE(((CLOSE > MAX(VAR3,VAR4)) AND ("KDJ.K" > 50)),((MA(CLOSE,15) * 1.1) - (((MA(CLOSE,15) * 1.1) - (MA(CLOSE,15) * 0.9)) * 0.191))),LINETHICK2,colorFF00;
STICKLINE(((CLOSE > MAX(VAR3,VAR4)) AND ("KDJ.k" > 50)),(MA(CLOSE,15) * 1.1),((MA(CLOSE,15) * 1.1) - (((MA(CLOSE,15) * 1.1) - (MA(CLOSE,15) * 0.9)) * 0.191)),0,0),colorFF00;{來源:www.tumamayizhan.com　程序化交易}

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