cc:
=AMOUNT/VOL/100;主力成本:
=(cc*w1*100)/w1/100;
换手率:
IF(CAPITAL=0,INDEXV/ESTDATA(12),VOL/FINANCE(7)),PRECISION2,LINETHICK0;
{控制画线高度}
ww:
=SYSPARAM
(2);n1:
=SYSPARAM(3);nn:
=n1-ww+1;hh:
=HHV(w2,nn);
ll:
=LLV(w2,nn);最高:
=hh[n1];最低:
=ll[n1];中:
=最低+(最高-最低)*0.5;
{显示时间}
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],Colorred;
STICKLINE(总1<0,0,-总1+总/2,8,0),ColorFF4400;
STICKLINE(总1<0,0,-总1+总/2,6,0),ColorFF8800;
STICKLINE(总1<0,0,-总1+总/2,3,0),ColorFFaa00;
STICKLINE(总1<0,0,-总1+总/2,1,0),ColorFFcc00;
STICKLINE(总1>0,0,+总1+总/2,8,0),Color000044;
STICKLINE(总1>0,0,+总1+总/2,6,0),Color000088;
STICKLINE(总1>0,0,+总1+总/2,3,0),Color0000aa;
STICKLINE(总1>0,0,+总1+总/2,1,0),Color0000cc;
m1:
ma(sum(总1,5),5);m2:
wma(m1,5);
STICKLINE(BARPOS=ww+10,中*-1,中*2.1,200,0),Color2E8B57;
VERTLINE(BARPOS=ww+20),COLOREE00EE,LINETHICK2;
VERTLINE(BARPOS=ww),COLOREE00EE,LINETHICK2;
STICKLINE(BARPOS=ww+10,中*1.7,中*1.7,200,0),COLOREE00EE;
STICKLINE(BARPOS=ww+10,中*0.3,中*0.3,200,0),COLOR666666;
STICKLINE(BARPOS=ww+10,中*-0.9,中*-0.9,200,0),COLOREE00EE;
STICKLINE(BARPOS=ww+2andqj1[p]>0,中*0.3,中*0.3+(qj1[p]),30,0),COLOR00FFFF;
STICKLINE(BARPOS=ww+2andqj1[p]<0,中*0.3,中*0.3-(qj1[p]),30,0),COLOR00FF00;
STICKLINE(BARPOS=ww+7andqj2[p]>0,中*0.3,中*0.3+(qj2[p]),30,0),COLOR0000FF;
STICKLINE(BARPOS=ww+7andqj2[p]<0,中*0.3,中*0.3-(qj2[p]),30,0),COLOR00FF00;
STICKLINE(BARPOS=ww+12andqj3[p]>0,中*0.3,中*0.3+(qj3[p]),30,0),COLORFF00FF;
STICKLINE(BARPOS=ww+12andqj3[p]<0,中*0.3,中*0.3-(qj3[p]),30,0),COLOR00FF00;
STICKLINE(BARPOS=ww+17andqj4[p]>0,中*0.3,中*0.3+(qj4[p]),30,0),COLORFF6600;
STICKLINE(BARPOS=ww+17andqj4[p]<0,中*0.3,中*0.3-(qj4[p]),30,0),COLOR00FF00;
DRAWTEXT(BARPOS=ww+1,中*0.2,'特\n'+NUMTOSTR(qj1[p]/总[p]*100,0)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=ww+6,中*0.2,'大\n'+NUMTOSTR(qj2[p]/总[p]*100,0)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=ww+11,中*0.2,'中\n'+NUMTOSTR(qj3[p]/总[p]*100,0)),PXDN5,COLORWHITE;
DRAWTEXT(BARPOS=ww+16,中*0.2,'小\n'+NUMTOSTR(qj4[p]/总[p]*100,0)),PXDN5,COLORWHITE;
DRAWTEXTEX(CLOSE,1,230,0,str1),ColorffFF00;
DRAWTEXTEX(CLOSE,1,230,130,'主力成本:
'+NUMTOSTR(主力成本[p],2)+'元'),,Colorred;
DRAWTEXTEX(CLOSE,1,520,130,'主力筹码占流通:
'+NUMTOSTR(ZSA[P],2)+'%'),,Colorred;
DRAWTEXTEX(CLOSE,1,770,130,'本日较昨日增减:
'+NUMTOSTR(ZSB[P],2)+'%'),,Colorred;
DRAWTEXTEX(CLOSE,1,520,0,'估算主力进入:
'+NUMTOSTR(起点[P],0)+'(天)'),,Colorred;
DRAWTEXTEX(CLOSE,1,770,0,'判断主力回吐:
'+NUMTOSTR(终点[P],0)+'(天)'),,Colorred;
DRAWTEXT(BARPOS=ww+1and总1[P]<0,中*-0.6,' 散户主买'),Colorred;
DRAWTEXT(BARPOS=ww+1and总1[P]>0,中*-0.6,' 主力主买'),Colorred;
DRAWTEXT(BARPOS=ww+11and总1[P]>0,中*-0.6,' 散户主卖'),Colorred;
DRAWTEXT(BARPOS=ww+11and总1[P]<0,中*-0.6,' 主力主卖'),Colorred;
{增减仓}
周仓:
=SUM(总1,5);月仓:
=SUM(总1,25);
年仓:
=SUM(总1,240);上周:
=REF(周仓,1);
上月:
=REF(月仓,1);上年:
=REF(年仓,BARSLAST(YEAR=x));
周增:
=周仓-上周;月增:
=月仓-上月;年增:
=年仓-上年;
{解盘}
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'今日增减:
'+NUMTOSTR((总1[p]*100)/10000,2)+'万股'),COLOrffff00;
EXPLAIN(1,'昨日增减:
'+NUMTOSTR(zj[p]*100/10000,2)+'万股'),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'周仓:
'+NUMTOSTR(周仓[p]*100/10000,2)+'万股'),COLORred;
EXPLAIN(1,'上周:
'+NUMTOSTR(上周[p]*100/10000,2)+'万股'),COLORred;
EXPLAIN(1,'增减:
'+NUMTOSTR(周增[p]*100/10000,2)+'万股'),COLORred;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'月仓:
'+NUMTOSTR(月仓[p]*100/10000,2)+'万股'),COLORFF00FF;
EXPLAIN(1,'上月:
'+NUMTOSTR(上月[p]*100/10000,2)+'万股'),COLORFF00FF;
EXPLAIN(1,'增减:
'+NUMTOSTR(月增[p]*100/10000,2)+'万股'),COLORFF00FF;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'年仓:
'+NUMTOSTR(年仓[p]*100/10000,2)+'万股'),COLOR00EE00;
EXPLAIN(1,'上年:
'+NUMTOSTR(上年[p]*100/10000,2)+'万股'),COLOR00EE00;
EXPLAIN(1,'增减:
'+NUMTOSTR(年增[p]*100/10000,2)+'万股'),COLOR00EE00;
EXPLAIN(1,'==================================='),colorwhite;