相關標簽:

?

[通達信] 紅肉青骨 -- 飛狐版本，通達信版本，都提供了

?

原理解析：
VAR1賦值:(收盤價+最低價+最高價)/3 VAR2賦值:((VAR1-1日前的最低價)-(最高價-VAR1))*(成交量(手)/100000)/(最高價-最低價)的歷史累和 VAR3賦值:VAR2的1日指數移動平均 ②買賦值:VAR3的12日指數移動平均-VAR3的26日指數移動平均,畫黃色 ②價賦值:②買的9日指數移動平均,畫紅色,線寬為2 輸出 價1:②買的1日指數移動平均,畫淡紅色,線寬為1 輸出 價2:②買的2日指數移動平均,畫淡紅色,線寬為1 輸出 價3:②買的3日指數移動平均,畫洋紅色,線寬為1 輸出 價4:②買的4日指數移動平均,畫洋紅色,線寬為1 輸出 價5:②買的5日指數移動平均,畫紅色,線寬為2 輸出 莊出:(46.18*②買的5日指數移動平均-31.82*②買的3日指數移動平均)/14.36,畫藍色,線寬為1 輸出 莊進:PARTLINE(②價>莊出,莊出),畫黃色,線寬為1 PARTLINE(價5>價1,價1),畫淡綠色,線寬為1 PARTLINE(價5>價2,價2),畫淡綠色,線寬為1 PARTLINE(價5>價3,價3),畫青色,線寬為1 PARTLINE(價5>價4,價4),畫青色,線寬為1 PARTLINE(價5< 1日前的價5,價5),畫綠色,線寬為2 輸出 MA3:3*(②價) - (2)*(②買),線寬為1,COLORD39D91 輸出 MA4:3*(②買) - (2)*(②價),線寬為2,畫淡紅色

?

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

源碼：

?

?飛狐源碼

VAR1:=(CLOSE+LOW+HIGH)/3; VAR2:=SUM(((VAR1-REF(LOW,1))-(HIGH-VAR1))*(VOL/100000)/(HIGH-LOW),0); VAR3:=EMA(VAR2,1); ②買:=EMA(VAR3,12)-EMA(VAR3,26),COLORYELLOW; ②價:=EMA(②買,9),COLORRED,LINETHICK2; 價1:EMA(②買,1),COLORLIRED,LINETHICK1; 價2:EMA(②買,2),COLORLIRED,LINETHICK1; 價3:EMA(②買,3),COLORMAGENTA,LINETHICK1; 價4:EMA(②買,4),COLORMAGENTA,LINETHICK1; 價5:EMA(②買,5),COLORRED,LINETHICK2; 莊出:(46.18*EMA(②買,5)-31.82*EMA(②買,3))/14.36,COLORBLUE,LINETHICK1; 莊進:partline(②價>莊出,莊出),COLORYELLOW,LINETHICK1; partline(價5>價1,價1),COLORLIGREEN,LINETHICK1; partline(價5>價2,價2),COLORLIGREEN,LINETHICK1; partline(價5>價3,價3),COLORCYAN,LINETHICK1; partline(價5>價4,價4),COLORCYAN,LINETHICK1; partline(價5< REF(價5,1),價5),COLORGREEN,LINETHICK2; MA3:3*(②價) - (2)*(②買),LINETHICK1,COLORD39D91; MA4:3*(②買) - (2)*(②價),LINETHICK2,COLORLIRED;

?

?

通達信源碼：
紅肉青骨

VAR1:=(CLOSE+LOW+HIGH)/3;
VAR2:=SUM(((VAR1-REF(LOW,1))-(HIGH-VAR1))*(VOL/100000)/(HIGH-LOW),0);
VAR3:=EMA(VAR2,1);
②買:=EMA(VAR3,12)-EMA(VAR3,26),COLORYELLOW;
②價:=EMA(②買,9),COLORRED,LINETHICK2;
價1:EMA(②買,1),COLORLIRED,LINETHICK1;
價2:EMA(②買,2),COLORLIRED,LINETHICK1;
價3:EMA(②買,3),COLORMAGENTA,LINETHICK1;
價4:EMA(②買,4),COLORMAGENTA,LINETHICK1;
價5:EMA(②買,5),COLORRED,LINETHICK2;
莊出:(46.18*EMA(②買,5)-31.82*EMA(②買,3))/14.36,COLORBLUE,LINETHICK1;
莊進:IF(②價>莊出,莊出,DRAWNULL),COLORYELLOW,LINETHICK1;
IF(價5>價1,價1,DRAWNULL),COLORLIGREEN,LINETHICK1;
IF(價5>價2,價2,DRAWNULL),COLORLIGREEN,LINETHICK1;
IF(價5>價3,價3,DRAWNULL),COLORCYAN,LINETHICK1;
IF(價5>價4,價4,DRAWNULL),COLORCYAN,LINETHICK1;
IF(價5< REF(價5,1),價5,DRAWNULL),COLORGREEN,LINETHICK2;
MA3:3*(②價) - (2)*(②買),LINETHICK1,COLORD39D91;
MA4:3*(②買) - (2)*(②價),LINETHICK2,COLORLIRED;

?

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

?