{八方力道}
主力:=ema((EXTDATA(9)+EXTDATA(10)+EXTDATA(11))*100/capital,3)*200000;
散户:=ema((EXTDATA(13)+EXTDATA(12))*100/capital,3)*200000;
均量:=(散户+主力)/2;
主力能量:=(主力-均量);
散户能量:=(散户-均量);
机构加仓:STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),0,主力能量,6,0),COLORred;
散户疯买:STICKLINE(散户能量>=0 AND 散户能量>=REF(散户能量,1),0,散户能量,6,0),ColorFF00ff;机构减仓:STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),0,主力能量,6,0),COLOR00ff00;
散户出票:STICKLINE(散户能量>=0 AND 散户能量< REF(散户能量,1),0,散户能量,6,0),ColorFFBF00;机构试盘:STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),0,主力能量,6,0),ColorFF5B00;
散户跟风:STICKLINE(散户能量<0 AND 散户能量>=REF(散户能量,1),0,散户能量,6,0),Color0095FF;机构捞鱼:STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),0,主力能量,6,0),COLOR00ffff;
散户抄底:STICKLINE(散户能量<0 AND 散户能量< REF(散户能量,1),0,散户能量,6,0),COLORffff00;
{}
市值贡献:=CAPITAL/100*CLOSE/10000,coloryellow;
指数贡献:=(c-ref(ma(c,5),5))*finance(1)/10000,colorred;
资金贡献:=ema(amount,3)/finance(7)/10000,colorff00ff;
总成交:=DYNAINFO(8)*100;
总J:=AMOUNT;
Q:=stkindi('','引用.Q',0,0);
Q1:=stkindi('','引用.Q1',0,0);
股数:=STKINDI('','引用.股数',0,0);
资金:=STKINDI('','引用.资金',0,0);
每股公积金:=FINANCE(18);
净利润:=FINANCE(30);
主营业务增长率:=FINANCE(53);
净利润增长率:=FINANCE(55);
{成本}
PT:=(REF(HIGH,1) - REF(LOW,1));
CDP:=(((HIGH + LOW) + CLOSE) / 3);
AH:=(CDP + PT);
AL:=(CDP - PT);
NH:=((2 * CDP) - LOW);
NL:=((2 * CDP) - HIGH);
A:=((((OPEN + HIGH) + LOW) + (CLOSE * 2)) / 5);
S:=(((HIGH - A) * 0.618) + A);
X:=(((A - LOW) * 0.382) + LOW);
卖出价:=(((CLOSE * 2.5) / 100) + CLOSE);
买入价:=(CLOSE - ((CLOSE * 2.5) / 100));
{盘口}
特大买入:=STKINDI('','引用.特大买入',0,0);
特大卖出:=STKINDI('','引用.特大卖出',0,0);
大单买入:=STKINDI('','引用.大单买入',0,0);
大单卖出:=STKINDI('','引用.大单卖出',0,0);
中单买入:=STKINDI('','引用.中单买入',0,0);
中单卖出:=STKINDI('','引用.中单卖出',0,0);
小单买入:=STKINDI('','引用.小单买入',0,0);
小单卖出:=STKINDI('','引用.小单卖出',0,0);
隐性买单:=stkindi('','引用.隐性买单',0,0);
隐性卖单:=stkindi('','引用.隐性卖单',0,0);
机:=特大买入-特大卖出;
法:=隐性买单-隐性卖单;
大:=大单买入-大单卖出;
中:=中单买入-中单卖出;
散:=小单买入-小单卖出;
机增:=EXTDATA(9);
机1:=SUM(机增,2);
机3:=SUM(机增,3);
机5:=SUM(机增,5);
机20:=SUM(机增,20);
机60:=SUM(机增,60);
机240:=SUM(机增,240);
机11:=SUM(机增,0);
机12:=ABS(机11);法增:=EXTDATA(10);
法1:=SUM(法增,2);
法3:=SUM(法增,3);
法5:=SUM(法增,5);
法20:=SUM(法增,20);
法60:=SUM(法增,60);
法240:=SUM(法增,240);
法11:=SUM(法增,0);
法12:=ABS(法11);大增:=EXTDATA(11);
大1:=SUM(大增,2);
大3:=SUM(大增,3);
大5:=SUM(大增,5);
大20:=SUM(大增,20);
大60:=SUM(大增,60);
大240:=SUM(大增,240);
大11:=SUM(大增,0);
大12:=ABS(大11);中增:=EXTDATA(12);
中1:=SUM(中增,2);
中3:=SUM(中增,3);
中5:=SUM(中增,5);
中20:=SUM(中增,20);
中60:=SUM(中增,60);
中240:=SUM(中增,240);
中11:=SUM(中增,0);
中12:=ABS(中11);散增:=EXTDATA(13);
散1:=SUM(散增,2);
散3:=SUM(散增,3);
散5:=SUM(散增,5);
散20:=SUM(散增,20);
散60:=SUM(散增,60);
散240:=SUM(散增,240);
散11:=SUM(散增,0);
散12:=ABS(散11);
{}
{KS:=SYSPARAM(6);}
KS:=DATACOUNT;
P3:=(机增+法增+大增);
P4:=(中增+散增);
{机构线:EMA(P3*10,7),Color39AFFF,LINETHICK2;
散户线:EMA(P4*10,7),ColorFCFF00,LINETHICK2;}
{柱线}
STICKLINE(BARPOS=KS-110,0,法12[KS]+机12[KS]+大12[KS]+中12[KS]+散12[KS],340,0),align5,PXUP80,Color000000;
STICKLINE(BARPOS=KS-93,0,散12[KS]+散[KS],60,0),align5,Colorffff00;
STICKLINE(BARPOS=KS-93,0,散12[KS]+散[KS],10,0),align5,Color00ffff;
STICKLINE(BARPOS=KS-101,0,中12[KS]+中[KS],60,0),align5,Colorff00ff;
STICKLINE(BARPOS=KS-101,0,中12[KS]+中[KS],10,0),align5,Colorffffff;
STICKLINE(BARPOS=KS-109,0,大12[KS]+大[KS],60,0),align5,Color00FFff;
STICKLINE(BARPOS=KS-109,0,大12[KS]+大[KS],10,0),align5,Colorffff00;
STICKLINE(BARPOS=KS-117,0,法12[KS]+法[KS],60,0),align5,Colorff0000;
STICKLINE(BARPOS=KS-117,0,法12[KS]+法[KS],10,0),align5,Colorffffff;
STICKLINE(BARPOS=KS-125,0,机12[KS]+机[KS],60,0),align5,Color0000ff;
STICKLINE(BARPOS=KS-125,0,机12[KS]+机[KS],10,0),align5,Color00ffff;
{柱显示}
DRAWTEXT(BARPOS=DATACOUNT-128,0,'机构'),align5,PXUP0,Color00FFFF;
DRAWTEXT(BARPOS=DATACOUNT-129,0,''+NUMTOSTR(机11/FINANCE(7),2)),align5,PXUP68,ColorFFffff;
DRAWTEXT(BARPOS=DATACOUNT-120,0,'券商'),align5,PXUP0,Color00ffff;
DRAWTEXT(BARPOS=DATACOUNT-121,0,''+NUMTOSTR(法11/FINANCE(7),2)),align5,PXUP88,ColorffffFF;
DRAWTEXT(BARPOS=DATACOUNT-112,0,'大户'),align5,PXUP0,Color00ffff;
DRAWTEXT(BARPOS=DATACOUNT-113,0,''+NUMTOSTR(大11/FINANCE( 7),2)),align5,PXUP68,ColorffffFF;
DRAWTEXT(BARPOS=DATACOUNT-104,0,'中户'),align5,PXUP0,Color00ffff;
DRAWTEXT(BARPOS=DATACOUNT-105,0,''+NUMTOSTR(中11/FINANCE( 7),2)),align5,PXUP88,ColorffffFF;
DRAWTEXT(BARPOS=DATACOUNT-97,0,'散户'),align5,PXUP0,Color00FFFF;
DRAWTEXT(BARPOS=DATACOUNT-98,0,''+NUMTOSTR(散11/FINANCE( 7),2)),align5,PXUP68,ColorffffFF;
DRAWTEXTEX(C,1,330,100,'盘口成交:'+NUMTOSTR(股数,0)+' 股'),Color9CFF7A;
DRAWTEXTEX(C,1,530,100,'该笔金额:'+NUMTOSTR(FLOOR(资金)/10000,2)+' 万元'),Color9CFF7A;
DRAWTEXTEX(c,1,770,100,'均价:'+NUMTOSTR(c,2)+' 元'),Color9CFF7A;
DRAWTEXTEX(C,1,470,0,' 成交股数:'+NUMTOSTR(总成交/10000,2)+'万股'),ColorFFBF00;
DRAWTEXTEX(C,1,740,0,' 成交总额:'+NUMTOSTR(AMOUNT/10000,2)+'万元'),ColorFFBF00;
DRAWTEXTEX(C,1,0,0,STKLABEL+' '+STKNAME+''),ColorFFBF00;
DRAWTEXTEX(C,1,20,250,'目前主力仓位:'+NUMTOSTR((机11+法11+大11)/FINANCE( 7),2)+' %'),ColorFFBFFF;
DRAWTEXTEX(C,1,770,250,'市值贡献:'+NUMTOSTR(市值贡献,2)+' %'),ColorFFBFFF;
DRAWTEXTEX(C,1,330,250,'指数贡献:'+NUMTOSTR(指数贡献,2)+' %'),ColorFFBFFF;
DRAWTEXTEX(C,1,530,250,'资金贡献:'+NUMTOSTR(资金贡献,2)+' %'),ColorFFBFFF;
{显示时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系统参数(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+数字转化为字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,200,0,str1),ColorFFBF00;
DRAWTEXTEX(c,1,20,100,'今日大单净量: '+NUMTOSTR(P3*100/10000,2)+' 万股'),Color9CFF7A;
{解盘}
EXPLAIN(C>0,'-------------------------------------------------------------'),Color006EFF;
EXPLAIN(C>0,'一发千钧告诫朋友:\n据此入市风险自负!'),Color008BFF;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1=1,'【每股公积金】='+NUMTOSTR(每股公积金,2)+'元'),Color0000FF;
EXPLAIN(1=1,'【净利润】='+NUMTOSTR(净利润,2)+'万元'),Color00FF00;
EXPLAIN(1=1,'【主营业务增长率】='+NUMTOSTR(主营业务增长率,2)+'%'),Color0000FF;
EXPLAIN(1=1,'【净利润增长率】='+NUMTOSTR(净利润增长率,2)+'%'),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【波动系数】=',PT,2,0),colorFFFF;
EXPLAINEX(1,'【最高】=',AH,2,0),colorFF;
EXPLAINEX(1,'【中价】=',CDP,2,0),colorFFFF;
EXPLAINEX(1,'【最低】=',AL,2,0),colorFFFFFF;
EXPLAINEX(1,'【近高】=',NH,2,0),colorFFFF00;
EXPLAINEX(1,'【近低】=',NL,2,0),colorFF00FF;
EXPLAINEX((1 = 1),'【买入价】=',买入价,2,0),colorFFFF;
EXPLAINEX((1 = 1),'【卖出价】=',卖出价,2,0),colorFF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(C>0,'机构月仓:'+NUMTOSTR(((机20*100)*c)/10000,2)+' 万元:'),ColorFFFFFF;
EXPLAIN(C>0,'机构季仓:'+NUMTOSTR(((机60*100)*c)/10000,2)+' 万元:'),ColorFF00FF;
EXPLAIN(C>0,'机构年仓:'+NUMTOSTR(((机240*100)*c)/10000,2)+' 万元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(C>0,'券商月仓:'+NUMTOSTR(((法20*100)*c)/10000,2)+' 万元:'),ColorFFFFFF;
EXPLAIN(C>0,'券商季仓:'+NUMTOSTR(((法60*100)*c)/10000,2)+' 万元:'),ColorFF00FF;
EXPLAIN(C>0,'券商年仓:'+NUMTOSTR(((法240*100)*c)/10000,2)+' 万元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(C>0,'大户月仓:'+NUMTOSTR(((大20*100)*c)/10000,2)+' 万元:'),ColorFFFFFF;
EXPLAIN(C>0,'大户季仓:'+NUMTOSTR(((大60*100)*c)/10000,2)+' 万元:'),ColorFF00FF;
EXPLAIN(C>0,'大户年仓:'+NUMTOSTR(((大240*100)*c)/10000,2)+' 万元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(C>0,'中户月仓:'+NUMTOSTR(((中20*100)*c)/10000,2)+' 万元:'),ColorFFFFFF;
EXPLAIN(C>0,'中户季仓:'+NUMTOSTR(((中60*100)*c)/10000,2)+' 万元:'),ColorFF00FF;
EXPLAIN(C>0,'中户年仓:'+NUMTOSTR(((中240*100)*c)/10000,2)+' 万元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(C>0,'散户月仓:'+NUMTOSTR(((散20*100)*c)/10000,2)+' 万元:'),ColorFFFFFF;
EXPLAIN(C>0,'散户季仓:'+NUMTOSTR(((散60*100)*c)/10000,2)+' 万元:'),ColorFF00FF;
EXPLAIN(C>0,'散户年仓:'+NUMTOSTR(((散240*100)*c)/10000,2)+' 万元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;
{}{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
