同花顺主力机构仓位A7版源码

解密时限:=1;

 能量潮:=(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE

周能量:=MA(能量潮,5);

月能量:=MA(能量潮,20);

季能量:=MA(能量潮,60);

主力活动仓位:能量潮*解密时限;

主力短线仓位:MA(能量潮,20)*解密时限;

主力成本仓位:MA(能量潮,60)*解密时限;

年月日:DATE;

星期:WEEKDAY;

每股收益:MGYL;

流通值:CLOSE*SHGZG;

MAOBV5 :=MA(能量潮, 5)*解密时限;

MAOBV20:=MA(能量潮,20)*解密时限;

MAOBV60:=MA(能量潮,60)*解密时限;

K:=能量潮;

D:=MAOBV60;

K20:=MAOBV20;

FILLRGN(K,D,( K>D ),colorred);

FILLRGN(K,K20,( K>K20 ),colormagenta);

FILLRGN(K,D,( K

FILLRGN(K,K20,( KD ),colorblue);

DRAWTEXT ( CROSS(K,K20)  ,k20,'B '),coloryellow; /*K 向 上 交叉D20  买进 B 点*/

DRAWTEXT ( CROSS(K,K20) AND K20>D  ,k20,'B '),colormagenta; /*K 向 上 交叉D20  买进 B 点*/

DRAWTEXT ( CROSS(k20,K)  ,K,'S '),colorwhite;  /*K 向 下 交叉 D20 为卖出 S 点*/

DRAWTEXT ( CROSS(K,D) ,D,'B '),colorred; /*K 向 上 交叉D  买进 B 点*/

DRAWTEXT ( CROSS(D,K) ,K,'S '),colorgreen;  /*K 向 下 交叉 D 为卖出 S 点*/

/*重要说明： 能量潮OBV 不能使用 IF 和 ELSE 否则乱显示 */

MAD:=D*0.996;

DRAWTEXT( K>=HHV(K,20) ,MAD,'+'),colorwhite;

/*(白色 +         能量潮创20天新高  */

DRAWTEXT( K>=HHV(K,60) ,MAD,'+'),colorred;

/*(红色 + )       能量潮创60天新高  */

/*  OBV新高 深黄色和白色信号线显示 (只适合日K线，不适合周K线和其它K线） */

MA5 :=MA(CLOSE,5 );

MA10:=MA(CLOSE,10);

MA20:=MA(CLOSE,20);

MA40:=MA(CLOSE,40);

MA60:=MA(CLOSE,60);

MA120:=MA(CLOSE,120);

MAOBV5:=MA(能量潮,5);

MAOBV20:=MA(能量潮,20);

MAOBV40:=MA(能量潮,40);

MAOBV60:=MA(能量潮,60);

FILLRGN(MAOBV20,MAOBV5, ( MAOBV5>MAOBV20 AND MAOBV5REF(MAOBV5,1) ),color0099FF);

FILLRGN(MAOBV20,MAOBV60,( MAOBV5>MAOBV60 AND MAOBV200  AND  MAOBV20>REF(MAOBV20,1) ),color0099FF);

MAOBV20:=MA(能量潮,20);

MAOBV60:=MA(能量潮,60);

K:=能量潮;

D:=MAOBV60;

D20:=MAOBV20;

一天量比:=VOL/REF(VOL,1);

低55:=LLV(LOW ,55);

高55:=HHV(HIGH,55);

深黄色:= COUNT( K>D,55)>50 AND  CLOSE<=OPEN AND CLOSE

DRAWGBK(   深黄色   ),color0099ff;

DRAWTEXT(  深黄色  ,D,'◆超级主力 '),colorred;