千钧赢富升级版公式 飞狐升级版指标 源码

指标公式详细说明

千钧赢富【升级版】---公式需要扩展数据和引用公式，否则不会显示

首先向千钧老师致谢!!!长期来本人一直关注你的原创,并一直用上.自你的赢富升级版推出,就觉得什么地方可以改进,于是马上改了一傍晚,相对满意.但应时间已有一个多月,大致修改思路:1\能显示到最新交易周期;
2\增加当天分笔图形;
3\修改显示值百分比,以看直观.
4\不改变千钧老师的原码.
下面是原码和帖图以飨千钧徒,请千钧老师斧正:

原码:

{千钧赢富【升级版】---本人优化版}
流通:finance(7)/10000,linethick0,precision2,color00bfff;
换手:v/finance(7),precision2,linethick0;
qj1:=extdata(9);qj2:=extdata(10);qj3:=extdata(11);
qj4:=extdata(12);qj5:=extdata(13);
zl:=qj1+qj2+qj3;sh:=qj4+qj5;昨日:=ref(qj1+qj2+qj3,1);
总:=(abs(qj1)+abs(qj2)+abs(qj3)+abs(qj4)+abs(qj5))*1.6;
日增:=zl;
周仓:=sum(日增,5);月仓:=sum(日增,22);年仓:=sum(日增,240);
上周:=ref(周仓,1);上月:=ref(月仓,1);上年:=ref(年仓,1);
周增:=周仓-上周;月增:=月仓-上月;年增:=年仓-上年;
cm:=sum(zl,5);zj:=sum(昨日,5);
zsa:=cm/if(capital=0,estdata(12),finance(7));
zsb:=(cm-zj)/if(capital=0,estdata(12),finance(7));
{取点}
diff:=ma(close,5)-ema(close,55);
dea:=ma(diff,14);
jg:=((close-llv(l,34))/(hhv(h,34)-llv(l,34)))*100;
yh:=cross(diff,dea) and jg<20;
bh:=cross(dea,diff) and jg>60;
sw:=yh=1;ss:=bh=1;
vertline(sw),color0000ff,linedot;
vertline(ss),color00ff00,linedot;a:=barslast(sw);b:=barslast(ss);
起点:=if(a>1 and a<=b,a,0);终点:=if(b>1 and b<=a,b,0);
主力成本:=sum(c*zl*100,5)/sum(zl,5)/100;
{控制画线高度}
n1:=sysparam(3);nn:=n1-sysparam(2)+1;
hh:=hhv(总,nn);
ll:=llv(总,nn);
最高:=hh[n1];最低:=ll[n1];中:=最低+(最高-最低)*0.5;
{方框竖线}
{框内黑底}
stickline(barpos=sysparam(1)-20,0,中,200,0),shift10,color000000;
stickline(barpos=sysparam(1)-20,0,中*2.1,200,0),shift10,color000000;
{加右框}
stickline(islastbar and close>0,中/9,中*17/9,80,1),shift5,colorred;
stickline(islastbar and close>0,中/9,中*17/9,28,1),shift8,colorred;

{竖线}
vertline(barpos=sysparam(1)),coloree00ee,linethick2;
vertline(barpos=sysparam(1)-20),{shift20,}coloree00ee,linethick2;
{显示时间}
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,180,0,str1),colorffff00;

{赢富柱}
{stickline(barpos=sysparam(1),中*2.1,中*2.1,200,0),coloree00ee,shift10;
stickline(barpos=sysparam(1),中,中,200,0),color660066,shift10;
stickline(barpos=sysparam(1),中*0.0001,中*0.0001,200,0),coloree00ee,shift10;
stickline(barpos=sysparam(1)+2 and qj1>0,中,(中+qj1),30,0),color0000ff;
stickline(barpos=sysparam(1)+2 and qj1<0,中,中+(qj1*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)+6 and qj2>0,中,(中+qj2),30,0),color0000ff;
stickline(barpos=sysparam(1)+6 and qj2<0,中,中+(qj2*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)+10 and qj3>0,中,(中+qj3),30,0),color0000ff;
stickline(barpos=sysparam(1)+10 and qj3<0,中,中+(qj3*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)+14 and qj4>0,中,中+(qj4),30,0),color0000ff;
stickline(barpos=sysparam(1)+14 and qj4<0,中,中+(qj4*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)+18 and qj5>0,中,中+(qj5),30,0),color0000ff;
stickline(barpos=sysparam(1)+18 and qj5<0,中,中+(qj5*-1),30,0),colorff0000;}
{赢富柱修改}
{横线}
stickline(barpos=sysparam(1)-10,中*2.1,中*2.1,200,0),coloree00ee{,shift10};
stickline(barpos=sysparam(1)-10,中,中,200,0),color660066{,shift10};
stickline(barpos=sysparam(1)-10,中*0.0001,中*0.0001,200,0),coloree00ee{,shift10};

stickline(barpos=sysparam(1)-18 and qj1>0,中,(中+qj1),30,0),color0000ff;
stickline(barpos=sysparam(1)-18 and qj1<0,中,中+(qj1*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)-14 and qj2>0,中,(中+qj2),30,0),color0000ff;
stickline(barpos=sysparam(1)-14 and qj2<0,中,中+(qj2*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)-10 and qj3>0,中,(中+qj3),30,0),color0000ff;
stickline(barpos=sysparam(1)-10 and qj3<0,中,中+(qj3*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)-6 and qj4>0,中,中+(qj4),30,0),color0000ff;
stickline(barpos=sysparam(1)-6 and qj4<0,中,中+(qj4*-1),30,0),colorff6600;
stickline(barpos=sysparam(1)-2 and qj5>0,中,中+(qj5),30,0),color0000ff;
stickline(barpos=sysparam(1)-2 and qj5<0,中,中+(qj5*-1),30,0),colorff0000;

{drawtext(barpos=sysparam(1)+1,中,'机\n构\n'+numtostr(qj1[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)+5,中,'券\n商\n'+numtostr(qj2[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)+9,中,'大\n户\n'+numtostr(qj3[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)+13,中,'中\n户\n'+numtostr(qj4[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)+17,中,'散\n户\n'+numtostr(qj5[sysparam(1)]/v,2)),pxdn12,colorwhite;}

drawtext(barpos=sysparam(1)-19,中,'机\n构\n'+numtostr(qj1[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-15,中,'券\n商\n'+numtostr(qj2[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-11,中,'大\n户\n'+numtostr(qj3[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-7,中,'中\n户\n'+numtostr(qj4[sysparam(1)]/v,2)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-3,中,'散\n户\n'+numtostr(qj5[sysparam(1)]/v,2)),pxdn12,colorwhite;
{柱上显示数值}
{drawtext(barpos=sysparam(1)-20{ and qj1>0},(中+qj1),numtostr(qj1[sysparam(1)]/100,2)),pxup38,align1,colorwhite;}

stickline(sh>0,0,sh,8,0),coloraa00aa;
stickline(sh>0,0,sh,6,0),colorcc00cc;
stickline(sh>0,0,sh,3,0),coloree00ee;
散户买:stickline(sh>0,0,sh,1,0),colorff00ff;
stickline(sh<0,0,-sh,8,0),colorff4400;
stickline(sh<0,0,-sh,6,0),colorff8800;
stickline(sh<0,0,-sh,3,0),colorffaa00;
散户卖:stickline(sh<0,0,-sh,1,0),colorffcc00;
stickline(zl>0,0,zl,8,0),color000044;
stickline(zl>0,0,zl,6,0),color000088;
stickline(zl>0,0,zl,3,0),color0000aa;
主力买:stickline(zl>0,0,zl,1,0),color0000ff;
stickline(zl<0,0,-zl,8,0),color004400;
stickline(zl<0,0,-zl,6,0),color008800;
stickline(zl<0,0,-zl,3,0),color00aa00;
主力卖:stickline(zl<0,0,-zl,1,0),color00ff00;

drawtextex(c,1,25,0,stklabel+' '+stkname+''),colorffff00;
drawtextex(c,1,400,100,'估算筹码:'+numtostr(zsa[p],2)+'%'),color00ff00;
drawtextex(c,1,180,100,'筹码增减:'+numtostr(zsb[p],2)+'%'),color00ff00;
drawtextex(c,1,590,0,'主力开始进入:'+numtostr(起点[p],0)+'(天) '),colorffff00;
drawtextex(c,1,400,0,'主力进入回吐:'+numtostr(终点[p],0)+'(天) '),colorffff00;
drawtextex(c,1,590,100,'主力成本:'+numtostr(主力成本[sysparam(1)],2)+'元'),color00ff00;
drawtextex(sh>zl and sh>0,1,40,100,'本日散户主买'),coloreeeeee;
drawtextex(zl>sh and zl>0,1,40,100,'本日主力主买'),color00ffff;
drawtextex(sh<zl and sh<0,1,40,230,'本日散户主卖'),colorffee00;
drawtextex(zl<sh and zl<0,1,40,230,'本日主力主卖'),color00ff00;
//机构线:ma(zl,5);散户线:ema(机构线,5);
{增减仓}
日均:=amount/vol/100;周均:=ref(日均,barslast(weekday>ref(weekday,1)));
月均:=ref(日均,barslast(month>ref(month,1)));
年均:=ref(日均,barslast(year>ref(year,1)));
{解盘}
explain(1,'==================================='),colorwhite;
explain(1,'***千**钧**制**作***'),color00eeff;
explain(1,'本日主力净买:'+numtostr((zl*100)/10000,2)+' 万股'),colorffff00;
explain(1,'昨日主力增减:'+numtostr(昨日*100*日均/10000,2)+' 万元'),colorff8b00;
explain(1,'==================================='),colorwhite;
explain(1,'周仓:'+numtostr(周仓*100/10000,2)+' 万股'),colorred;
explain(1,'上周:'+numtostr(上周*100/10000,2)+' 万股'),colorred;
explain(1,'增减:'+numtostr(周增*100*周均/10000,2)+' 万元'),colorred;
explain(1,'==================================='),colorwhite;
explain(1,'月仓:'+numtostr(月仓*100/10000,2)+' 万股'),colorff00ff;
explain(1,'上月:'+numtostr(上月*100/10000,2)+' 万股'),colorff00ff;
explain(1,'增减:'+numtostr(月增*100*月均/10000,2)+' 万元'),colorff00ff;
explain(1,'==================================='),colorwhite;
explain(1,'年仓:'+numtostr(年仓*100/10000,2)+' 万股'),color00ee00;
explain(1,'上年:'+numtostr(上年*100/10000,2)+' 万股'),color00ee00;
explain(1,'增减:'+numtostr(年增*100*年均/10000,2)+' 万元'),color00ee00;
explain(1,'==================================='),colorwhite;

{加当天柱图}
qj1dt:=stkindi('','机构.机构',0,0);
qj2dt:=stkindi('','券商.券商',0,0);
qj3dt:=stkindi('','大户.大户',0,0);
qj4dt:=stkindi('','中户.中户',0,0);
qj5dt:=stkindi('','散户.散户',0,0);
zldt:=qj1dt+qj2dt+qj3dt;
shdt:=qj4dt+qj5dt;
{柱}
stickline(islastbar and close>0 and qj1dt>0 ,中,中+qj1dt,8,0),colorred,shift2;
stickline(islastbar and close>0 and qj2dt>0,中,中+qj2dt,8,0),colorred,shift3;
stickline(islastbar and close>0 and qj3dt>0,中,中+qj3dt,8,0),colorred,shift4;
stickline(islastbar and close>0 and qj4dt>0,中,中+qj4dt,8,0),colorred,shift5;
stickline(islastbar and close>0 and qj5dt>0,中,中+qj5dt,8,0),colorred,shift6;

stickline(islastbar and close>0 and qj1dt<0 ,中,中+(0-qj1dt),8,0),colorblue,shift2;
stickline(islastbar and close>0 and qj2dt<0,中,中+(0-qj2dt),8,0),colorblue,shift3;
stickline(islastbar and close>0 and qj3dt<0,中,中+(0-qj3dt),8,0),colorblue,shift4;
stickline(islastbar and close>0 and qj4dt<0,中,中+(0-qj4dt),8,0),colorblue,shift5;
stickline(islastbar and close>0 and qj5dt<0,中,中+(0-qj5dt),8,0),colorblue,shift6;

{stickline(islastbar and close>0 and zldt>0,中/2,中/2+zldt,6,0),color22aabb,shift7;
stickline(islastbar and close>0 and shdt>0,中/2,中/2+shdt,6,0),color22aabb,shift8;}
stickline(islastbar and close>0 and zldt>0,中/2,中/2+zldt,5,0),color33bbcc,shift7;
stickline(islastbar and close>0 and shdt>0,中/2,中/2+shdt,5,0),color33bbcc,shift8;
stickline(islastbar and close>0 and zldt>0,中/2,中/2+zldt,4,0),color44ccdd,shift7;
stickline(islastbar and close>0 and shdt>0,中/2,中/2+shdt,4,0),color44ccdd,shift8;
stickline(islastbar and close>0 and zldt>0,中/2,中/2+zldt,3,0),color55ddee,shift7;
stickline(islastbar and close>0 and shdt>0,中/2,中/2+shdt,3,0),color55ddee,shift8;
stickline(islastbar and close>0 and zldt>0,中/2,中/2+zldt,2,0),color66eeee,shift7;
stickline(islastbar and close>0 and shdt>0,中/2,中/2+shdt,2,0),color66eeee,shift8;
stickline(islastbar and close>0 and zldt>0,中/2,中/2+zldt,1,0),color77ffee,shift7;
stickline(islastbar and close>0 and shdt>0,中/2,中/2+shdt,1,0),color77ffee,shift8;

{stickline(islastbar and close>0 and zldt<0,中/2,中/2+(0-zldt),6,0),colorffaa11,shift7;
stickline(islastbar and close>0 and shdt<0,中/2,中/2+(0-shdt),6,0),colorffaa11,shift8;}
stickline(islastbar and close>0 and zldt<0,中/2,中/2+(0-zldt),5,0),colorffbb11,shift7;
stickline(islastbar and close>0 and shdt<0,中/2,中/2+(0-shdt),5,0),colorffbb11,shift8;
stickline(islastbar and close>0 and zldt<0,中/2,中/2+(0-zldt),4,0),colorffcc22,shift7;
stickline(islastbar and close>0 and shdt<0,中/2,中/2+(0-shdt),4,0),colorffcc22,shift8;
stickline(islastbar and close>0 and zldt<0,中/2,中/2+(0-zldt),3,0),colorffdd22,shift7;
stickline(islastbar and close>0 and shdt<0,中/2,中/2+(0-shdt),3,0),colorffdd22,shift8;
stickline(islastbar and close>0 and zldt<0,中/2,中/2+(0-zldt),2,0),colorffee33,shift7;
stickline(islastbar and close>0 and shdt<0,中/2,中/2+(0-shdt),2,0),colorffee33,shift8;
stickline(islastbar and close>0 and zldt<0,中/2,中/2+(0-zldt),1,0),colorffff33,shift7;
stickline(islastbar and close>0 and shdt<0,中/2,中/2+(0-shdt),1,0),colorffff33,shift8;

drawtext(islastbar and close>0,中,'机\n构\n'+numtostr(qj1dt*100/v,1)),pxdn12,colorwhite,shift2;
drawtext(islastbar and close>0,中,'券\n商\n'+numtostr(qj2dt*100/v,1)),pxdn12,colorwhite,shift3;
drawtext(islastbar and close>0,中,'大\n户\n'+numtostr(qj3dt*100/v,1)),pxdn12,colorwhite,shift4;
drawtext(islastbar and close>0,中,'中\n户\n'+numtostr(qj4dt*100/v,1)),pxdn12,colorwhite,shift5;
drawtext(islastbar and close>0,中,'散\n户\n'+numtostr(qj5dt*100/v,1)),pxdn12,colorwhite,shift6;

drawtext(islastbar and close>0,中/2,'主\n力\n'+numtostr(zldt*100/v,1)),pxdn12,colorwhite,shift7;
drawtext(islastbar and close>0,中/2,'中\n小\n'+numtostr(shdt*100/v,1)),pxdn12,colorwhite,shift8;

指标公式下载地址

上一指标公式：精简分笔公式 飞狐精简指标 源码

下一指标公式：短线信号优化版+波段线+庄公式 飞狐信号优化指标 源码

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文千钧赢富升级版公式 飞狐升级版指标 源码仅供学习研究。