drawgbk(1,colorrgb(0,0,100),colorrgb(0,0,0),1);
input:x(2009,1990,2020),m(0.7,0.3,0.9),n(3.3,3.1,3.6);
var1:=vol/((high-low)*2-abs(close-open));
成交:vol,pointdot,colore4c1ee;
主买:if(close>open,var1*(high-low),if(close<open,var1*((high-open)+(close-low)),vol/2)),colorred,pointdot;
主卖:if(close>open,var1*((high-close)+(open-low)),if(close<open,var1*(high-low),vol/2)),color00ff00,pointdot;
stickline(vol>0,vol,0,8,0),colore4c1ee;
stickline(主买>0,0,主买,7,0),color1b07e2;
stickline(主卖>0,0,主卖,5,0),color00d11f;
volume:=vol;
var2:=ma(volume,5);
var3:=ma(volume,10);
var4:=ma(volume,20);
var5:=ma(volume,60);
前量比:=vol/ref(vol,1); 五量比:=vol/var2; 六量比:=vol/var5;
partline(ma(vol,5)>=ref(ma(vol,5),1),ma(vol,5)),colorred,linethick3;
partline(ma(vol,5)<=ref(ma(vol,5),1),ma(vol,5)),color00c700,linethick3;
换手率:if(capital=0,indexv/estdata(12),vol/finance(7)),precision2,linethick0;
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);bb:=barpos;
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+numtostr(fd[p],0)+'日 '+wday[wd[p]+1];
sj:=openminutes(currenttime)>1 and openminutes(currenttime)<239;
lj0:=vol/if(high=low,4,high-low);jj:=(high+low+close)/3;
特大:if(capital=0,lj0*(jj-min(close,open)),lj0*if(high=low,1,(min(open,close)-low))),precision0,color0000ff,linethick;
大户:if(capital=0,lj0*(min(open,close)-low),lj0*if(high=low,1,(jj-min(close,open)))),precision0,colorff00ff,linethick;
中户:if(capital=0,lj0*(high-max(open,close)),lj0*if(high=low,1,(high-max(open,close)))),precision0,color00ff00,linethick;
散户:if(capital=0,lj0*(max(close,open)-jj),lj0*if(high=low,1,(max(close,open)-jj))),precision0,colorff6600,linethick;
总1:=(特大+大户)-(中户+散户);总:=vol;
ww:=sysparam(2);n1:=sysparam(3);nn:=n1-ww+1;hh:=hhv(总,nn);ll:=llv(总,nn);
zg:=hh[n1];zd:=ll[n1];中0:=zd+(zg-zd)*0.5;中:=中0*0.05;cm:=sum(总1,25);
zj:=ref(总1,1);zsb:=(总1-ref(总1,1))/总*100;
zsa:=cm/if(stktype=0,sum(vol,25),if(stktype=13,sum(vol,10),capital));
cc:=ref(close,barslast(fm>ref(fm,1)));主力成本:=(cc*(特大+大户)*100)/(特大+大户)/100;
df1:=ema(close,12)-ema(close,26);da1:=ema(df1,9);
lj6:=df1>da1 and da1<0;lj7:="kdj.k">"kdj.d" and "kdj.d"<30;
lj8:=df1<da1;lj9:="kdj.k"<"kdj.d" and "kdj.k">80;
w1:=sum(大户,5)+sum(特大,5);w2:=sum(散户,5)+sum(中户,5);
量振1:=特大>大户 and 大户>散户;量振2:=特大<散户 and 大户<散户;
标振1:=lj6 and lj7;标振2:=lj8 and lj9;
a:=w1-w2;a0:=if(a>0,a,0);b0:=if(a<0,a,0);
stickline(bb=ww,中*0.2,中*9.2,(散户[p]/总*200)*1.02,1),colorwhite,linethick2;
stickline(bb=ww,中*0.8,中*8.6,散户[p]/总*200,0),colorff8800;
stickline(bb=ww,中*10.2,中*19.2,(中户[p]/总*200)*1.02,1),colorwhite,linethick2;
stickline(bb=ww,中*10.8,中*18.6,中户[p]/总*200,0),colorff00ff;
stickline(bb=ww,中*20.2,中*29.2,(大户[p]/总*200)*1.02,1),colorwhite,linethick2;
stickline(bb=ww,中*20.8,中*28.6,大户[p]/总*200,0),color0088ff;
stickline(bb=ww,中*30.2,中*39.2,(特大[p]/总*200)*1.02,1),colorwhite,linethick2;
stickline(bb=ww,中*30.8,中*38.6,特大[p]/总*200,0),color0000ff;
drawtextex(close,1,420,0,str1),colorffff00;
drawtextex(close,1,200,0,stklabel+' '+stkname+''),colorffff00;
drawtext(bb=ww,中*36,'特大:'+numtostr(特大[p]/总*100,2)+' %'),color00ff00;
drawtext(bb=ww,中*26,'大户:'+numtostr(大户[p]/总*100,2)+' %'),color00ff00;
drawtext(bb=ww,中*16,'中户:'+numtostr(中户[p]/总*100,2)+' %'),color00ff00;
drawtext(bb=ww,中*6,'散户:'+numtostr(散户[p]/总*100,2)+' %'),color00ff00;
diff:=ema(close,12)-ema(close,26);
dea:=ema(diff,9);
macd1:=2*(diff-dea);
cs1:=100;
cs2:=hhv(abs(macd1),cs1);
cs3:=abs(100/cs2);
macd:(macd1*cs3+100)/2,linethick5,color00ff00;
cs:=macd;
日红:=cs>=ref(cs,1);
日转红:=日红 and ref(日红,1)=0;
partline(日红,cs),linethick5,colorred;
aa:=0;
v1:=llv(low,10);
v2:=hhv(high,25);
价位线:=ema((close-v1)/(v2-v1)*4,4);
drawtext(cross(价位线,m),aa,'买'),colorffffff;
drawtext(cross(n,价位线),aa,'卖'),color07f6ff;
vertline(cross(价位线,m)),color0000ff,linedashdot;
vertline(cross(n,价位线)),colorff00,linedashdot;
drawtextex(close,1,200,130,'主力成本:'+numtostr(主力成本[p],2)),color00ff00;
drawtextex(close,1,420,130,'主力筹码占流通:'+numtostr(if(zsa>0,zsa[p]*100,0),2)+' %'),color00ff00;
drawtextex(close,1,720,130,'较昨日增减:'+numtostr(zsb[p],2)+' %'),color00ff00;
drawtextex(c and 总1[p]<0,1,720,0,'散户主买主力主卖'),colorffee00;
drawtextex(c and 总1[p]>0,1,720,0,'主力主买散户主卖'),color0000ff;
周仓:=sum(总1,5);月仓:=sum(总1,25);年仓:=sum(总1,240);上周:=ref(周仓,1);上月:=ref(月仓,1);
上年:=ref(年仓,barslast(fy=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;
上一指标公式:小技巧-移动光标:统计平均成本公式 飞狐小技巧源码指标 源码
下一指标公式:KDJ价格预测系统公式 飞狐价格系统指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文自用赢富公式 飞狐自用指标 源码仅供学习研究。