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

主力持筹第三版

主力持筹第三版

主力持筹第三版原码公布

{主力持筹第三版}
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),PXDN43,ALIGN4,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),LINEDOT,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;
PARTLINE(ma50<ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),ma50),color0000ff,CIRCLEDOT;
PARTLINE(ma50<ma30 and (ma50<ref(ma50,1) or ma30<ref(ma30,1)),ma50),color00ffff,CIRCLEDOT;
PARTLINE(ma50>ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),ma50),colorff00ff,CIRCLEDOT;
PARTLINE(ma50>ma30 and (ma50<ref(ma50,1) or ma30<ref(ma30,1)),ma50),colorff0000;

仓量斜率三: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;
//