input:t(21,13,250),tt(21,1,100);
{drawgbk(ema((c+l+h)/3,6)>ema(ema((c+l+h)/3,6),5), colorrgb(100,50,0), colorrgb(100,100,0),0); {涨变红}
drawgbk(ema((c+l+h)/3,6)<ema(ema((c+l+h)/3,6),5), colorrgb(0,110,0 ), colorrgb(0,0,0),0); {跌变绿}
{量价重心-筹码分布}
w00:=cost(1);w10:=cost(10);w20:=cost(20);
w30:=cost(30);w40:=cost(40);w50:=cost(50);
w60:=cost(60);w70:=cost(70);w80:=cost(80);
w90:=cost(90);w100:=cost(99);
w5:=cost(5);w15:=cost(15);w25:=cost(25);
w35:=cost(35);w45:=cost(45);w55:=cost(55);
w65:=cost(65);w75:=cost(75);w85:=cost(85);w95:=cost(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:=min(c5,min(c10,min(c15,min(c20,min(c25,min(c30,min(c35,min(c40,min(c45,min(c50,min(c55,min(c60,min(c65,min(c70,min(c75,min(c80,min(c85,min(c90,min(c95,c100))))))))))))))))))) linethick0;
fillrgn(zx=c5,w00,w5) colorgray;
fillrgn(zx=c10,w10,w5) colorgray;fillrgn(zx=c15,w15,w10) colorgray;fillrgn(zx=c20,w20,w15) colorgray;
fillrgn(zx=c25,w25,w20) colorgray;fillrgn(zx=c30,w30,w25) colorgray;fillrgn(zx=c35,w35,w30) colorgray;fillrgn(zx=c40,w40,w35) colorgray;
fillrgn(zx=c45,w45,w40) colorgray;fillrgn(zx=c50,w50,w45) colorgray;fillrgn(zx=c55,w55,w50) colorgray;fillrgn(zx=c60,w60,w55) colorgray;
fillrgn(zx=c65,w65,w60) colorgray;fillrgn(zx=c70,w70,w65) colorgray;fillrgn(zx=c75,w75,w70) colorgray;fillrgn(zx=c80,w80,w75) colorgray;
fillrgn(zx=c85,w85,w70) colorgray;fillrgn(zx=c90,w90,w85) colorgray;fillrgn(zx=c95,w95,w90) colorgray;fillrgn(zx=c100,w100,w95) colorgray;
{三日转向}
ay:=hhv(h,3);
by:=llv(l,3);
kc:=c;
kh:=h;
kl:=l;
for i=1 to datacount do
if kh[i]>ay[i-1] and kc[i]>kc[i-1] then e[i]:=by[i];
else if kl[i]<by[i-1] and kc[i]<kc[i-1] then e[i]:=ay[i];
elsee[i]:=e[i-1];
partline(c,e),linethick3,colorc3c7c8;}//转向
{均线}
zq:=datatype;
j:=(c*2+h+l)/4;
m:ema(ma(j,3),3),colorffffff;
mm:ema(m,t),color00ffff;
partline(m>ref(m,1),m),colore9d3f8,linethick2;
partline(mm>ref(mm,1),mm),color0089ff,linethick2;
{{黄金分割}
n1:=sysparam(3);
n:=n1-sysparam(2)+1;
hh:=hhv(h,n);
ll:=llv(l,n);
最高:=hh[n1];
最低:=ll[n1];
低:最低+(最高-最低)*0.191,pointdot,precision2,linethick3,colorff8900;
中:最低+(最高-最低)*0.5,linedot,precision2,colormagenta;
高:最低+(最高-最低)*0.809,linedot,precision2,colorred;
{南山k线}
qp1:=wma(c,2);//短加权均线
bb1:=ema(qp1,2);//平滑
qp0:=ma(bb1,3);//平均
qp2:=wma((h+c+o)/3,18);//长加权均线
dd3:=qp0>=qp2 and c>qp2;//短>长,且收>长
dd4:=qp0<qp2 ;//短<长
dd5:=qp0>qp2 ;//短>长
stickline((dd4 or dd5) and o<=c ,h,l,0.5,0),color00cc99;//跌势阳线
stickline((dd4 or dd5) and o<=c ,c,o,7,0),color00cc99;//跌势阳线
stickline((dd4 or dd5) and o>=c ,h,l,0.5,0),color3f8c3a;//跌势阴线
stickline((dd4 or dd5) and o>=c ,c,o,7,0),color3f8c3a;//跌势阴线
stickline((dd3 or c>qp2) and o<=c,c,o,7,0),colorred;//涨势阳线
stickline((dd3 or c>qp2) and o<=c,h,l,0.5,0),colorred;//涨势阳线
stickline((dd3 or c>qp2) and o>=c,c,o,7,0),colorff33ff;//涨势阴线
stickline((dd3 or c>qp2) and o>=c,h,l,0.5,0),colorff33ff;//涨势阴线
stickline(ma(c,13)>o and c>ma(c,13) and o<c,o,c,8,0),coloryellow;//生命线
stickline(ma(c,13)>o and c>ma(c,13),h,l,0.8,1),coloryellow;}//生命线
{个股大盘开关}
上证:=strcmp(stklabel,'1a0001');
深证:=strcmp(stklabel,'399001');
sb:=(上证=1 and 深证=1) or (上证=-1 and 深证=-1);//市场识别
{箱体}
a:=barpos;
a1:=sysparam(1);
a2:=sysparam(2);
a3:=sysparam(3);
a4:=sysparam(4);
a5:=sysparam(5);
b:=datacount;
gd:=(a4-a5)/5;
g1:=hhv(h,tt);
gh:=g1[a1];
gg:=h=gh;
d2:=llv(l,tt*2);
dl2:=d2[a1];
dd2:=l=dl2;
d3:=llv(l,tt*4);
dl3:=d3[a1];
dd3:=l=dl3;
drawline(dd3,gh*0.98,gg,gh*0.98,0),color00babd,linedot;
zx:=(dl2+gh)/2;
drawline(dd3,zx,gg,zx,0),color00babd,linedot;
drawline(dd3,zx,gg,gh*0.98,0),color00babd,linedot;
stickline(dd3,zx*0.98,dl2,0,0),color00babd,linedot;
drawline(dd3,dl2,gg,dl2,0),color00babd,linedot;
{移动式120日均线}
上证:=strcmp(stklabel,'1a0001');
深证:=strcmp(stklabel,'399001');
sb:=(上证=1 and 深证=1) or (上证=-1 and 深证=-1);//市场识别
ssb:=if(capital=0,sb=0,(sb=1 or sb=-1));
gxa4:=sysparam(4);
gxa5:=sysparam(5);
gd45:=(gxa4-gxa5)/5;
总量:=sum(if(between(c,gxa4-0*gd45,gxa4-5*gd45),v,0),120);
总额:=sum(if(between(c,gxa4-0*gd45,gxa4-5*gd45),amount,0),120);
dp:=sum(c,120)/120;//个股
df:=总额/总量/0.3;//大盘
partline(a1<=a,if(ssb,dp[datacount],df[datacount])),colorffbbff,shift3;//120日均线
{实时}
drawbkbmp(zq=1or zq=0,'lsxz');
实时线:partline(zq=1or zq=0,c),colorffffff;
r:=openminutes(time);
fh:=if(vol=0,1,vol);
分均:partline(zq=1or zq=0,sum(fh*c,r)/sum(fh,r)),color00ffff;
vertline(if(zq=1,r=120,0)),colorffff00,pointdot;
vertline(if(zq=1,r=240,0)),colorred;
go:=forcast(forcast(l,80),80);
partline(zq=1,"zb.zb#day"),color00ff00;
partline(zq=1or zq=0,go),colorred;
{解盘}
tj:=if(a>280,280,b);
hh:=hhv(h,tj);
ll:=llv(l,tj);
zh:=hh[a1];{新改动的}
zl:=ll[a1];{新改动的}
gq:=(zh-zl)/5;
ba1:=sum(if(between(c,zh-0*gq,zh-1*gq),v,0),tj);
ba2:=sum(if(between(c,zh-1*gq,zh-2*gq),v,0),tj);
ba3:=sum(if(between(c,zh-2*gq,zh-3*gq),v,0),tj);
ba4:=sum(if(between(c,zh-3*gq,zh-4*gq),v,0),tj);
ba5:=sum(if(between(c,zh-4*gq,zh-5*gq),v,0),tj);
gd1:=c<zh-0*gq and c>=zh-1*gq;//高
gd2:=c<zh-1*gq and c>=zh-2*gq;
gd3:=c<zh-2*gq and c>=zh-3*gq;//中
gd4:=c<zh-3*gq and c>=zh-4*gq;
gd5:=c<zh-4*gq and c>=zh-5*gq;//低
{}
stickline(backset(a=a3,gd1),zh-0*gq,zh-1*gq,1,0),color0000ff,linethick3,shift1;
stickline(backset(a=a3,gd2),zh-1*gq,zh-2*gq,1,0),colorff00ff,linethick3,shift1;
stickline(backset(a=a3,gd3),zh-2*gq,zh-3*gq,1,0),color00ffff,linethick3,shift1;
stickline(backset(a=a3,gd4),zh-3*gq,zh-4*gq,1,0),colorffbb00,linethick3,shift1;
stickline(backset(a=a3,gd5),zh-4*gq,zh-5*gq,1,0),color00ff00,linethick3,shift1;
drawtext(backset(a=a3,gd1),zh-0*gq,'价\n高\n'),color0000ff,shift2;
drawtext(backset(a=a3,gd2),zh-1*gq,'价\n近\n高'),colorff00ff,shift2;
drawtext(backset(a=a3,gd3),zh-2*gq,'价\n中\n'),color00ffff,shift2;
drawtext(backset(a=a3,gd4),zh-3*gq,'价\n近\n低'),colorffbb00,shift2;
drawtext(backset(a=a3,gd5),zh-4*gq,'价\n低\n'),color00ff00,shift2;
{}
zu:=max(ba1,max(ba2,max(ba3,max(ba4,ba5))));
stickline(zu=ba1 and a=a3 ,zh-0*gq,zh-1*gq,1,0),color0000ff,shift1;
stickline(zu=ba2 and a=a3 ,zh-1*gq,zh-2*gq,1,0),colorff00ff,shift1;
stickline(zu=ba3 and a=a3 ,zh-2*gq,zh-3*gq,1,0),color00ffff,shift1;
stickline(zu=ba4 and a=a3 ,zh-3*gq,zh-4*gq,1,0),colorffbb00,shift1;
stickline(zu=ba5 and a=a3 ,zh-4*gq,zh-5*gq,1,0),color00ff00,shift1;
drawtext(zu=ba1 and a=a3,zh-0.6*gq,'密\n集\n高'),color0000ff,shift2;
drawtext(zu=ba2 and a=a3,zh-1.6*gq,'密\n集\n近\n高'),colorff00ff,shift2;
drawtext(zu=ba3 and a=a3,zh-2.6*gq,'密\n集\n中'),color00ffff,shift2;
drawtext(zu=ba4 and a=a3,zh-3.6*gq,'密\n集\n近\n低'),colorffbb00,shift2;
drawtext(zu=ba5 and a=a3,zh-4.6*gq,'密\n集\n低'),color00ff00,shift2 ;
explain(1 ,'-----280天内堆积筹码-----'),colormagenta;{---------------------------------------------------------------}
explainex(zu=ba1,'▲高位密集筹码: ',ba1/finance( 7),2,0),color0000ff;
explainex(zu=ba2,'▲近高位密集筹码: ',ba2/finance( 7),2,0),colorff00ff;
explainex(zu=ba3,'▲中位密集筹码: ',ba3/finance( 7),2,0),color00ffff;
explainex(zu=ba4,'▲近低位密集筹码: ',ba4/finance( 7),2,0),colorffbb00;
explainex(zu=ba5,'▲低位密集筹码: ',ba5/finance( 7),2,0),color00ff00;
sc1:=if(zu=ba1,1,0);
sc2:=if(zu=ba2,1,0);
sc3:=if(zu=ba3,1,0);
sc4:=if(zu=ba4,1,0);
sc5:=if(zu=ba5,1,0);
explainex(sc1=0,'高位区堆积筹码%: ',ba1/finance( 7),2,0);
explainex(sc2=0,'近高位堆积筹码%: ',ba2/finance( 7),2,0);
explainex(sc3=0,'中位区堆积筹码%: ',ba3/finance( 7),2,0);
explainex(sc4=0,'近低位堆积筹码%: ',ba4/finance( 7),2,0);
explainex(sc5=0,'低位区堆积筹码%: ',ba5/finance( 7),2,0);
{}
时段:=a3-a1;
zb:=sum(v,时段)/finance( 7);
yb:=refx(sum(v,b-a1)/finance(7),b-a1+1);
explain(1 ,' --------左右量统计--------'),color00ffff;
explainex(1,'统计k棒天数: ',时段*2,0,0),colorffffff;
explainex(1,'左边量: ',zb,2,0),color00ff00;
explainex(1,'右边量: ',yb,2,0),color00ffff;
explainex(1,'左右量比: ',zb/yb,2,0),colorffff00;
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文很多年前竹林老师的原创筹码堆积FH主图喜欢收藏的朋友拿去吧公式下载 飞狐去吧筹码指标 源码仅供学习研究。