查看完整版本: 主力持筹第四版

主力持筹第四版

主力持筹第四版
用法:
1.黄色彩带收敛,向0轴靠拢就可关注.
2.同时K线至少走平.
3.量由收敛到逐步放量.

主力持筹第四版原码公布

{主力持筹第四版}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
wd:=WEEKDAY;
p:=SYSPARAM(1);
str1:='  今日： '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXT(barpos=p,H,str1),PXUP10,ALIGN5,COLORFFEEAA;
str1:='╭☆╯大均习作╰☆╮';
DRAWTEXT(barpos=p,H,str1),PXDN43,ALIGN4,COLOR0088FF;
DRAWTEXT(barpos=p,H,str1),PXDN41,ALIGN4,COLOR0088FF;

大买:=EXTDATA(1),PRECISION;
大卖:=EXTDATA(2),PRECISION;
当天增减:(大买-大卖),LINETHICK0,PRECISION2,COLOR0000ff;
主力仓量:sum(大买-大卖,0),LINETHICK0,PRECISION2,COLORffff00;
总:=大买;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);

三天增减:=主力仓量-三天前仓,PRECISION2;
五天增减:=主力仓量-五天前仓,PRECISION2;
十天增减:=主力仓量-十天前仓,PRECISION2;

AA0:=当天增减/CAPITAL*100,PRECISION2;
AA3:=三天增减/CAPITAL*100,PRECISION2;
AA5:=五天增减/CAPITAL*100,PRECISION2;
AA10:=十天增减/CAPITAL*100,PRECISION2;

FILLRGN(五天增减>0,五天增减,0),ColorFF00DD;
FILLRGN(五天增减<0,五天增减,0),Color00DDDD;

STICKLINE(当天增减>0,当天增减,0,6,0),COLOR0000ff;
STICKLINE(当天增减<0,当天增减,0,6,0),color00ff00;

ma30:=MA(主力仓量,30);
ma50:=MA(主力仓量,50);
主力增减:当天增减/FINANCE(7),PRECISION2;

仓量斜率三:ma(主力仓量-ref(主力仓量,1),3)/FINANCE(7),linethick0;
仓量斜率五:ma(主力仓量-ref(主力仓量,1),5)/FINANCE(7),linethick0;
仓量斜率十:ma(主力仓量-ref(主力仓量,1),10)/FINANCE(7),linethick0;

DRAWTEXT(BARPOS=SYSPARAM(2),总[p],'★代码：'+STKLABEL+'　  ★名称：'+STKNAME+'   ★流通盘：'+NUMTOSTR(FINANCE(1)/10000,4)+'(亿股)'),PXDN8,align4,COLORFFDD00;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n★当天增减比率：'+NUMTOSTR(AA0[p],2)),PXDN6,align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n●三天增减比率：'+NUMTOSTR(AA3[p],2)),PXDN12,align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n◆五天增减比率：'+NUMTOSTR(AA5[p],2)),PXDN18,align4,COLORFFAA00;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n▼十天增减比率：'+NUMTOSTR(AA10[p],2)),PXDN24,align4,COLOR00FF00;

{柱线}
STICKLINE(BARPOS=DATACOUNT-66,0,三天增减[p],18,0),COLOR009900;
STICKLINE(BARPOS=DATACOUNT-66,0,三天增减[p],15,0),COLOR00AA00;
STICKLINE(BARPOS=DATACOUNT-66,0,三天增减[p],10,0),COLOR00BB00;
STICKLINE(BARPOS=DATACOUNT-66,0,三天增减[p], 8,0),COLOR00CC00;
STICKLINE(BARPOS=DATACOUNT-66,0,三天增减[p], 5,0),COLOR00DD00;
STICKLINE(BARPOS=DATACOUNT-66,0,三天增减[p], 2,0),COLORGREEN;

STICKLINE(BARPOS=DATACOUNT-63,1,五天增减[p],18,0),COLOR000099;
STICKLINE(BARPOS=DATACOUNT-63,1,五天增减[p],15,0),COLOR0000AA;
STICKLINE(BARPOS=DATACOUNT-63,1,五天增减[p],10,0),COLOR0000BB;
STICKLINE(BARPOS=DATACOUNT-63,1,五天增减[p], 8,0),COLOR0000CC;
STICKLINE(BARPOS=DATACOUNT-63,1,五天增减[p], 5,0),COLOR0000DD;
STICKLINE(BARPOS=DATACOUNT-63,1,五天增减[p], 2,0),COLORRED;

STICKLINE(BARPOS=DATACOUNT-60,0,十天增减[p],18,0),COLOR0099FF;
STICKLINE(BARPOS=DATACOUNT-60,0,十天增减[p],15,0),COLOR00AAFF;
STICKLINE(BARPOS=DATACOUNT-60,0,十天增减[p],10,0),COLOR00BBFF;
STICKLINE(BARPOS=DATACOUNT-60,0,十天增减[p], 8,0),COLOR00CCFF;
STICKLINE(BARPOS=DATACOUNT-60,0,十天增减[p], 5,0),COLOR00DDFF;
STICKLINE(BARPOS=DATACOUNT-60,0,十天增减[p], 2,0),Coloryellow;

DRAWTEXT(BARPOS=DATACOUNT-67 ,三天增减[p],'三\n天\n增\n减'),PXUP82,align5,COLORRED;
DRAWTEXT(BARPOS=DATACOUNT-64 ,五天增减[p],'五\n天\n增\n减'),PXUP82,align5,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-61 ,十天增减[p],'十\n天\n增\n减'),PXUP82,align5,Color00FF00;

//

主力持筹第四版A用千钧扩展公式

dddddddddddddddddddddddddddd