tzwxlj1 2008-1-3 10:43
主力持筹第五版A用千钧扩展 原码公布
主力持筹第五版A用千钧扩展
DRAWGBK(C>0, COLORRGB(0,30,100),COLORRGB(50,80,30),1);
{主力持筹}
换手率:v/FINANCE(7),PRECISION2;
净买:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11)/2,PRECISION2;
当天增减:=净买,LINETHICK0,PRECISION2,COLOR0000ff;
主力增减:=当天增减/FINANCE(7),PRECISION2;
主力仓量:=sum(净买,0),LINEDOT,LINETHICK0,PRECISION2,COLORffff00;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
三天增减:主力仓量-三天前仓,LINETHICK0,PRECISION2,color003399;
五天增减:主力仓量-五天前仓,LINETHICK0,PRECISION2,color0055ff;
十天增减:主力仓量-十天前仓,LINETHICK0,PRECISION2,color00aaff;
FILLRGN(五天增减>0,五天增减,0),ColorFF00DD;
FILLRGN(五天增减<0,五天增减,0),Color00DDDD;
p:=SYSPARAM(1);
{柱线}
STICKLINE(BARPOS=DATACOUNT-36,0,三天增减[p],18,0),COLOR009900;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增减[p],15,0),COLOR00AA00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增减[p],10,0),COLOR00BB00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增减[p], 8,0),COLOR00CC00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增减[p], 5,0),COLOR00DD00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增减[p], 2,0),COLORGREEN;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增减[p],18,0),COLOR000099;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增减[p],15,0),COLOR0000AA;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增减[p],10,0),COLOR0000BB;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增减[p], 8,0),COLOR0000CC;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增减[p], 5,0),COLOR0000DD;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增减[p], 2,0),COLORRED;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增减[p],18,0),COLOR0099FF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增减[p],15,0),COLOR00AAFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增减[p],10,0),COLOR00BBFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增减[p], 8,0),COLOR00CCFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增减[p], 5,0),COLOR00DDFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增减[p], 2,0),Coloryellow;
DRAWTEXT(BARPOS=DATACOUNT-37 ,三天增减[p],'三\n天\n增\n减'),PXUP82,align5,COLORRED;
DRAWTEXT(BARPOS=DATACOUNT-34 ,五天增减[p],'五\n天\n增\n减'),PXUP82,align5,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-31 ,十天增减[p],'十\n天\n增\n减'),PXUP82,align5,Color00FF00;
机构线:MA((EXTDATA(9)+EXTDATA(10)+EXTDATA(11)/2),13)*10,PRECISION2,COLORRED,LINETHICK2;
散户线:MA((EXTDATA(12)+EXTDATA(13)+EXTDATA(11)/2),13)*10,PRECISION2,COLORGREEN,LINETHICK2;
str2:='╭☆╯大均习作╰☆╮';
DRAWTEXT(barpos=p,H,str2),ALIGN2,COLOR0088FF,PXUP63;
DRAWTEXT(barpos=p,H,str2),ALIGN2,COLOR0088FF,PXUP65;
//