仿天狼50的资金指数CAS(飞狐)量价重心)

 

仿天狼50的资金指数CAS(飞狐)量价重心)
复制内容到剪贴板代码:
A0:=((INDEXH+INDEXl)/2);
A1:=SMA((INDEXv),33,1);
B0:=(HIGH+LOW)/2;
B1:=SMA(VOL,33,1);
S资金指数:if(CLOSE>200,A0*A1,B0*B1)COLORCYAN linethick2;
PARTLINE(S资金指数>ref(S资金指数,1),S资金指数)COLORred linethick2;  量价重心(主图)：源码与用法 FH

该指标的优缺点：
    1，这个指标有比较大的局限性;仅仅适用于个股的某一个阶段，或者长庄股；
    2，买进卖出必须辅助其他的指标，如：均线；
    3，仅在日线上有用；
    4，由于使用了成本类函数，所以有微量未来数据；


源创思路：
    一只没有主力的个股它的筹码必定是松散的；
    有主力照顾的的筹码必定是密集的，也就是我们常说的“单峰密集“；
    可是如何用程序来描述筹码密集 ？
    先作假设：单峰密集时某个区域里筹码最多，那么这个区域里越窄是否可以代表这个区域的筹码越多？

{量价重心(主图)}复制内容到剪贴板代码:
W00:=成本分布(1);W10:=成本分布(10);W20:=成本分布(20);
W30:=成本分布(30);W40:=成本分布(40);W50:=成本分布(50);
W60:=成本分布(60);W70:=成本分布(70);W80:=成本分布(80);
W90:=成本分布(90);W100:=成本分布(99);
W5:=成本分布(5);W15:=成本分布(15);W25:=成本分布(25);
W35:=成本分布(35);W45:=成本分布(45);W55:=成本分布(55);
W65:=成本分布(65);W75:=成本分布(75);W85:=成本分布(85);W95:=成本分布(95);
C5:=W5-W00; C10:=W10-W5;C15:=W15-W10;C20:=W20-W15;C25:=W25-W20;
C30:=W30-W25;C35:=W35-W30;C40:=W40-W35;C45:=W45-W40;C50:=W50-W45;
C55:=W55-W50;C60:=W60-W55;C65:=W65-W60;C70:=W70-W65;C75:=W75-W70;
C80:=W80-W75;C85:=W85-W80;C90:=W90-W85;C95:=W95-W90;C100:=W100-W95;
ZX:=最小值(C5,最小值(C10,最小值(C15,最小值(C20,最小值(C25,最小值(C30,最小值(C35,最小值(C40,最小值 (C45,最小值(C50,最小值(C55,最小值(C60,最小值(C65,最小值(C70,最小值(C75,最小值(C80,最小值(C85,最小值 (C90,最小值(C95,C100))))))))))))))))))) LINETHICK0;
画区间彩带(ZX=C5,W00,W5),Color00FFFF;
画区间彩带(ZX=C10,W10,W5) ,Color00FFFF;画区间彩带(ZX=C15,W15,W10) ,Color00FFFF;画区间彩带(ZX=C20,W20,W15),Color00FFFF;
画区间彩带(ZX=C25,W25,W20) ,Color00FFFF;画区间彩带(ZX=C30,W30,W25) ,Color00FFFF;画区间彩带(ZX=C35,W35,W30) ,Color00FFFF;画区间彩带(ZX=C40,W40,W35) ,Color00FFFF;
画区间彩带(ZX=C45,W45,W40) ,Color00FFFF;画区间彩带(ZX=C50,W50,W45) ,Color00FFFF;画区间彩带(ZX=C55,W55,W50) ,Color00FFFF;画区间彩带(ZX=C60,W60,W55),Color00FFFF;
画区间彩带(ZX=C65,W65,W60) ,Color00FFFF;画区间彩带(ZX=C70,W70,W65) ,Color00FFFF;画区间彩带(ZX=C75,W75,W70) ,Color00FFFF;画区间彩带(ZX=C80,W80,W75) ,Color00FFFF;
画区间彩带(ZX=C85,W85,W70) ,Color00FFFF;画区间彩带(ZX=C90,W90,W85) ,Color00FFFF;画区间彩带(ZX=C95,W95,W90),Color00FFFF;画区间彩带(ZX=C100,W100,W95), Color00FFFF;
画柱线(收盘价>=开盘价,最高价,最低价,0.7,0) COLORRED;
画柱线(收盘价<开盘价,最高价,最低价,0.7,0) COLORDDDD00;
画柱线(收盘价>=开盘价,收盘价,开盘价,7,1) COLORRED;
画柱线(收盘价<开盘价,收盘价,开盘价,7,0) COLORDDDD00;
M10:简单移动平均(收盘价,10) COLORRED;
M60:简单移动平均(收盘价,60) COLORYELLOW;
画分段线(M10<向前引用(M10,1),M10) COLORGREEN;