通达信K线重心公式，奇妙无穷，仔细琢磨必有所获
通达信K线重心公式，奇妙无穷，仔细琢磨必有所获
手上有一个自己慢慢改，Ｋ线重心只是配合指标.
K线重心:AMOUNT/VOL/100,COLORYELLOW,LINETHICK2;
收盘:C,COLORRED;
最低:L,COLORWHITE;
最高:H,COLORC6C600;
VB1:=INDEXO;
VB2:=K线重心*1.1;
VB3:=IF(VB1=0,VB2,REF(K线重心,1)*1.1);
VB4:=(VB2+VB3)/2;
VB5:=K线重心*0.9;
VB6:=IF(VB1=0,VB5,REF(K线重心,1)*0.9);
VB7:=(VB5+VB6)/2;
VB8:=EMA(VB4,13);
VB9:=EMA(VB7,13);
K线重心通道上:FORCAST(VB8,13),COLORMAGENTA,LINETHICK2;
K线重心通道下:FORCAST(VB9,13),COLORGREEN,LINETHICK2;
长度:=IF((O = REF(C,1)),(C-O),(IF((O > REF(C,1)) AND (C>O),C-REF(C,1),(IF((O > REF(C,1)) AND (C < REF(C,1)) ,(O - C),(IF((O > REF(C,1)) AND (C > REF(C,1)) ,O - REF(C,1),(IF((O < REF(C,1)) AND (C < O),(C - REF(C,1)),(IF((O < REF(C,1)) AND (C < REF(C,1)) AND (C > O),(O - REF(C,1)),(IF((O < REF(C,1)) AND (C > REF(C,1)),(C-O),((C - REF(C,1))))))))))))))));
重心:=REF(C,1)+长度/2;
STICKLINE(重心>0,重心+0.01,重心-0.01,2,0),COLORFF0080;
选股:=CROSS(C,K线重心) AND 最高>REF(最高,1);
DRAWICON(选股,L*0.98,1);