【千钧赢富】第四版!
我曾答应过朋友,近期升级【千钧赢富】。言必出,行必果。这是千钧的一贯作风。指标源码:
流通:if(capital=0,estdata(12)/10000,finance(7)/10000),linethick0,precision2,color00bfff;
jj:=(high+low+close)/3;
qj0:=vol/if(high=low,4,high-low);
qj1:=if(capital=0,qj0*(jj-min(close,open)),qj0*if(high=low,1,(min(open,close)-low)));
qj2:=if(capital=0,qj0*(min(open,close)-low),qj0*if(high=low,1,(jj-min(close,open))));
qj3:=if(capital=0,qj0*(high-max(open,close)),qj0*if(high=low,1,(high-max(open,close))));
qj4:=if(capital=0,qj0*(max(close,open)-jj),qj0*if(high=low,1,(max(close,open)-jj)));
总1:=(qj1+qj2)-(qj3+qj4);总:=qj1+qj2+qj3+qj4;
w1:=(qj1+qj2);cm:=sum(总1,24);zj:=ref(总1,1);
w2:=(abs(qj1)+abs(qj2)+abs(qj3)+abs(qj4));
zsa:=cm/if(capital=0,estdata(12),finance(7));
zsb:=(总1-ref(总1,1))/总*100;
diff:=ema(w1,12)-ema(w1,26);dea:=ema(diff,9);
jg:=((close-llv(low,34))/(hhv(high,34)-llv(low,34)))*100;
yh:=cross(diff,dea) and jg<10;
bh:=cross(dea,diff) and jg>95;
sw:=yh=1;ss:=bh=1;
vertline(sw),color0000ff,linedot;
vertline(ss),color00ff00,linedot;
a:=barslast(sw);b:=barslast(ss);
起点:=if(a and a<b,a,0);
终点:=if(b and b<a,b,0);
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];
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,中*-0.5,中*2.1,200,0),color000000;
stickline(barpos=ww+8,中*-0.5,中*-0.9,300,0),color000000;
vertline(barpos=ww+20),coloree00ee,linethick2;
vertline(barpos=ww),coloree00ee,linethick2;
stickline(barpos=ww+8,中*1.7,中*2.1,300,0),color000000;
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+2 and qj1[p]>0,中*0.3,中*0.3+(qj1[p]),30,0),color00ffff;
stickline(barpos=ww+2 and qj1[p]<0,中*0.3,中*0.3-(qj1[p]),30,0),color00ff00;
stickline(barpos=ww+7 and qj2[p]>0,中*0.3,中*0.3+(qj2[p]),30,0),color0000ff;
stickline(barpos=ww+7 and qj2[p]<0,中*0.3,中*0.3-(qj2[p]),30,0),color00ff00;
stickline(barpos=ww+12 and qj3[p]>0,中*0.3,中*0.3+(qj3[p]),30,0),colorff00ff;
stickline(barpos=ww+12 and qj3[p]<0,中*0.3,中*0.3-(qj3[p]),30,0),color00ff00;
stickline(barpos=ww+17 and qj4[p]>0,中*0.3,中*0.3+(qj4[p]),30,0),colorff6600;
stickline(barpos=ww+17 and qj4[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,20,0,stklabel+' '+stkname+''),colorffff00;
drawtextex(close,1,230,130,'主力成本:'+numtostr(主力成本[p],2)+'元'),color00ff00;
drawtextex(close,1,520,130,'主力筹码占流通:'+numtostr(zsa[p],2)+' %'),color00ff00;
drawtextex(close,1,770,130,'本日较昨日增减:'+numtostr(zsb[p],2)+' %'),color00ff00;
drawtextex(close,1,520,0,'估算主力进入:'+numtostr(起点[p],0)+'(天) '),colorffff00;
drawtextex(close,1,770,0,'判断主力回吐:'+numtostr(终点[p],0)+'(天) '),colorffff00;
drawtext(barpos=ww+1 and 总1[p]<0,中*-0.6,'散户主买'),colorff00ff;
drawtext(barpos=ww+1 and 总1[p]>0,中*-0.6,'主力主买'),color0000ff;
drawtext(barpos=ww+11 and 总1[p]>0,中*-0.6,'散户主卖'),colorffee00;
drawtext(barpos=ww+11 and 总1[p]<0,中*-0.6,'主力主卖'),color00ff00;
{增减仓}
周仓:=sum(总1,5);月仓:=sum(总1,25);
年仓:=sum(总1,240);上周:=ref(周仓,1);
上月:=ref(月仓,1);上年:=ref(年仓,barslast(year=x));
周增:=周仓-上周;月增:=月仓-上月;年增:=年仓-上年;
{解盘}
explain(1,'==================================='),colorwhite;
explain(1,'***【理想=**=论坛】***'),color00eeff;
explain(1,'***【千钧=**=制作】***'),coloree00ee;
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;
无法通过的哥们,请在源码的最前面加上:
x:=2008;
上一指标公式:成功率100%公式 飞狐成功率指标 源码
下一指标公式:一线乾坤公式 飞狐乾坤指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文千钧赢富第四版公式 飞狐第四版指标 源码仅供学习研究。