软件名称：[B]很多年前竹林老师的原创指标（筹码堆积主图源码+图）喜欢收藏的朋友拿去吧[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2012-03-24 01:19:53
软件简介:

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];
ELSE  E[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=ba
[url=http://www.70822.com/soft/sort013/sort02/down-45596.html]很多年前竹林老师的原创指标（筹码堆积主图源码+图）喜欢收藏的朋友拿去吧[/url]