查看完整版本: 主力持筹

主力持筹

主力持筹

{时间}
BB:=BARPOS=SYSPARAM(1);
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=sysparam(2),c,str1),ALIGN4,COLORGREEN,PXDN10;
str2:='╭☆╯大均习作╰☆╮';
DRAWTEXT(barpos=p,H,str2),ALIGN3,COLOR0088FF,PXDN1;
DRAWTEXT(barpos=p,H,str2),ALIGN3,COLOR0088FF;

大买:=EXTDATA(1),PRECISION;
大卖:=EXTDATA(2),PRECISION;
当天增减:(大买-大卖),LINETHICK0,COLOR0000ff;
主力仓量:sum(大买-大卖,0),COLORGRAY;

三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);

三天增减:主力仓量-三天前仓,LINETHICK0,color003399;
五天增减:主力仓量-五天前仓,LINETHICK0,color0055ff;
十天增减:主力仓量-十天前仓,LINETHICK0,color00aaff;
廿天增减:主力仓量-廿天前仓,LINETHICK0,colorblack;

FILLRGN(廿天增减>0,廿天增减,0),Color0000DD;
FILLRGN(廿天增减<0,廿天增减,0),Color00DD00;

FILLRGN(十天增减>0,十天增减,0),Color00DDFF;
FILLRGN(十天增减<0,十天增减,0),ColorFFFFDD;

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

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

ma5:MA(主力仓量,5),colorred;
ma10:MA(主力仓量,10),COLORGRAY;
ma20:MA(主力仓量,20),COLORBLUE,linethick2;
ma30:MA(主力仓量,30),colorgreen;
ma50:MA(主力仓量,50),CIRCLEDOT,COLORMAGENTA;
主力增减:当天增减/FINANCE(7);
drawtext(ma(主力仓量,50)>ref(ma(主力仓量,50),1),ma(主力仓量,50),'o'),COLORblack;
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;
当天增减比率:当天增减/CAPITAL*100;
三天增减比率:三天增减/CAPITAL*100;
五天增减比率:五天增减/CAPITAL*100;
十天增减比率:十天增减/CAPITAL*100;
廿天增减比率:廿天增减/CAPITAL*100;
仓量斜率三:ma(主力仓量-ref(主力仓量,1),3)/FINANCE(7),linethick0;
仓量斜率五:ma(主力仓量-ref(主力仓量,1),5)/FINANCE(7),linethick0;
仓量斜率十:ma(主力仓量-ref(主力仓量,1),10)/FINANCE(7),linethick0;
仓量斜率廿:ma(主力仓量-ref(主力仓量,1),20)/FINANCE(7),linethick0;

[[i] 本帖最后由 tzwxlj1 于 2007-11-29 13:25 编辑 [/i]]

此指标系学习瞄准主家老师的习作

扩展数据建立见
[url]http://bbs.fjfox.com/thread-42216-1-1.html[/url]

新扩展数据去创幻论坛下载:
http://www./thread-925774-1-1.html