千钧赢富 山寨版
流通: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);
日增:=zl;
周仓:=sum(日增,5);月仓:=sum(日增,22);年仓:=sum(日增,240);
上周:=ref(周仓,1);上月:=ref(月仓,1);上年:=ref(年仓,1);
周增:=周仓-上周;月增:=月仓-上月;年增:=年仓-上年;
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;
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(3),0,中,200,0),shift10,color000000;
stickline(barpos=sysparam(3),0,中*2.1,200,0),shift10,color000000;
{vertline(barpos=sysparam(1)),coloree00ee,linethick2;
vertline(barpos=sysparam(1)),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,230,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;
drawtext(barpos=sysparam(1)-1,中,'机\n构\n'+numtostr(qj1[sysparam(1)]/v,1)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-5,中,'券\n商\n'+numtostr(qj2[sysparam(1)]/v,1)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-9,中,'大\n户\n'+numtostr(qj3[sysparam(1)]/v,1)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-13,中,'中\n户\n'+numtostr(qj4[sysparam(1)]/v,1)),pxdn12,colorwhite;
drawtext(barpos=sysparam(1)-17,中,'散\n户\n'+numtostr(qj5[sysparam(1)]/v,1)),pxdn12,colorwhite;
drawtextex(c,1,25,0,stklabel+' '+stkname+''),colorffff00;
drawtextex(c,1,500,130,'估算筹码:'+numtostr(zsa[p],2)+'%'),color00ff00;
drawtextex(c,1,230,130,'筹码增减:'+numtostr(zsb[p],2)+'%'),color00ff00;
drawtextex(c,1,740,0,'主力开始进入:'+numtostr(起点[p],0)+'(天) '),colorffff00;
drawtextex(c,1,500,0,'主力进入回吐:'+numtostr(终点[p],0)+'(天) '),colorffff00;
drawtextex(c,1,740,130,'主力成本:'+numtostr(主力成本[sysparam(1)],2)+'元'),color00ff00;
drawtextex(sh>zl and sh>0,1,40,130,'本日散户主买'),coloreeeeee;
drawtextex(zl>sh and zl>0,1,40,130,'本日主力主买'),color00ffff;
drawtextex(sh<zl and sh<0,1,40,260,'本日散户主卖'),colorffee00;
drawtextex(zl<sh and zl<0,1,40,260,'本日主力主卖'),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;
上一指标公式:量价线公式 飞狐量价线指标 源码
下一指标公式:股市天气预报公式 飞狐天气预报指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文千钧赢富山寨版公式 飞狐山寨指标 源码仅供学习研究。