在前辈老师的公式上攒的,谢谢啦,叠加在主图上,电脑够快,屏幕够大,可以看着玩,没实际意义,否则就是浪费cpu.
建引用(y_k主周)
周oo:if(n=0,open,ref(open,0));
周cc:if(n=0,close,ref(close,0);
周hh:if(n=0,high,ref(high,0));
周ll:if(n=0,low,ref(low,0));
主公式()
周oo:=close*0,linethick; 周cc:=close*0,linethick; 周hh:=close*0,linethick; 周ll:=close*0,linethick; 周da:=datacount;
for i3=0 to 30 do begin
ni3:=numtostr(i3,0);
mo3:=stkindi('','y_k主周.周oo('+ni3+')',0,7);
周oo[周da-i3] := mo3[周da];
mc3:=stkindi('','y_k主周.周cc('+ni3+')',0,7);
周cc[周da-i3] := mc3[周da];
mh3:=stkindi('','y_k主周.周hh('+ni3+')',0,7);
周hh[周da-i3] := mh3[周da];
ml3:=stkindi('','y_k主周.周ll('+ni3+')',0,7);
周ll[周da-i3] := ml3[周da];
end;
zq1:=datacount-barpos;
zq2:=datacount-barpos+1;
周n:=sysparam(3)-sysparam(2)-18;
stickline(zq2=(周n+9),sysparam(4)*1.02,sysparam(5)*0.98,210,0),color002233,shift0;//190
stickline(zq2=(周n+9),sysparam(4),sysparam(5)*0.995,196,0),color000509,shift0;//190
tl1:=refx(if(islastbar,周ll,1),zq1);tl2:=refx(linevalue(zq2=2,周ll,ref(zq2,1)=2,ref(周ll,1),1,0),zq1);tl3:=refx(linevalue(zq2=3,周ll,ref(zq2,1)=3,ref(周ll,1),1,0),zq1);
tl4:=refx(linevalue(zq2=4,周ll,ref(zq2,1)=4,ref(周ll,1),1,0),zq1);tl5:=refx(linevalue(zq2=5,周ll,ref(zq2,1)=5,ref(周ll,1),1,0),zq1);tl6:=refx(linevalue(zq2=6,周ll,ref(zq2,1)=6,ref(周ll,1),1,0),zq1);
tl7:=refx(linevalue(zq2=7,周ll,ref(zq2,1)=7,ref(周ll,1),1,0),zq1);tl8:=refx(linevalue(zq2=8,周ll,ref(zq2,1)=8,ref(周ll,1),1,0),zq1);tl9:=refx(linevalue(zq2=9,周ll,ref(zq2,1)=9,ref(周ll,1),1,0),zq1);
tl10:=refx(linevalue(zq2=10,周ll,ref(zq2,1)=10,ref(周ll,1),1,0),zq1);tl11:=refx(linevalue(zq2=11,周ll,ref(zq2,1)=11,ref(周ll,1),1,0),zq1);tl12:=refx(linevalue(zq2=12,周ll,ref(zq2,1)=12,ref(周ll,1),1,0),zq1);
tl13:=refx(linevalue(zq2=13,周ll,ref(zq2,1)=13,ref(周ll,1),1,0),zq1);tl14:=refx(linevalue(zq2=14,周ll,ref(zq2,1)=14,ref(周ll,1),1,0),zq1);tl15:=refx(linevalue(zq2=15,周ll,ref(zq2,1)=15,ref(周ll,1),1,0),zq1);
tl16:=refx(linevalue(zq2=16,周ll,ref(zq2,1)=16,ref(周ll,1),1,0),zq1);tl17:=refx(linevalue(zq2=17,周ll,ref(zq2,1)=17,ref(周ll,1),1,0),zq1);tl18:=refx(linevalue(zq2=18,周ll,ref(zq2,1)=18,ref(周ll,1),1,0),zq1);
tl19:=refx(linevalue(zq2=19,周ll,ref(zq2,1)=19,ref(周ll,1),1,0),zq1);tl20:=refx(linevalue(zq2=20,周ll,ref(zq2,1)=20,ref(周ll,1),1,0),zq1);
th1:=refx(if(islastbar,周hh,1),zq1);th2:=refx(linevalue(zq2=2,周hh,ref(zq2,1)=2,ref(周hh,1),1,0),zq1);th3:=refx(linevalue(zq2=3,周hh,ref(zq2,1)=3,ref(周hh,1),1,0),zq1);
th4:=refx(linevalue(zq2=4,周hh,ref(zq2,1)=4,ref(周hh,1),1,0),zq1);th5:=refx(linevalue(zq2=5,周hh,ref(zq2,1)=5,ref(周hh,1),1,0),zq1);th6:=refx(linevalue(zq2=6,周hh,ref(zq2,1)=6,ref(周hh,1),1,0),zq1);
th7:=refx(linevalue(zq2=7,周hh,ref(zq2,1)=7,ref(周hh,1),1,0),zq1);th8:=refx(linevalue(zq2=8,周hh,ref(zq2,1)=8,ref(周hh,1),1,0),zq1);th9:=refx(linevalue(zq2=9,周hh,ref(zq2,1)=9,ref(周hh,1),1,0),zq1);
th10:=refx(linevalue(zq2=10,周hh,ref(zq2,1)=10,ref(周hh,1),1,0),zq1);th11:=refx(linevalue(zq2=11,周hh,ref(zq2,1)=11,ref(周hh,1),1,0),zq1);th12:=refx(linevalue(zq2=12,周hh,ref(zq2,1)=12,ref(周hh,1),1,0),zq1);
th13:=refx(linevalue(zq2=13,周hh,ref(zq2,1)=13,ref(周hh,1),1,0),zq1);th14:=refx(linevalue(zq2=14,周hh,ref(zq2,1)=14,ref(周hh,1),1,0),zq1);th15:=refx(linevalue(zq2=15,周hh,ref(zq2,1)=15,ref(周hh,1),1,0),zq1);
th16:=refx(linevalue(zq2=16,周hh,ref(zq2,1)=16,ref(周hh,1),1,0),zq1);th17:=refx(linevalue(zq2=17,周hh,ref(zq2,1)=17,ref(周hh,1),1,0),zq1);th18:=refx(linevalue(zq2=18,周hh,ref(zq2,1)=18,ref(周hh,1),1,0),zq1);
th19:=refx(linevalue(zq2=19,周hh,ref(zq2,1)=19,ref(周hh,1),1,0),zq1);th20:=refx(linevalue(zq2=20,周hh,ref(zq2,1)=20,ref(周hh,1),1,0),zq1);
to1:=refx(if(islastbar,周oo,1),zq1);to2:=refx(linevalue(zq2=2,周oo,ref(zq2,1)=2,ref(周oo,1),1,0),zq1);to3:=refx(linevalue(zq2=3,周oo,ref(zq2,1)=3,ref(周oo,1),1,0),zq1);
to4:=refx(linevalue(zq2=4,周oo,ref(zq2,1)=4,ref(周oo,1),1,0),zq1);to5:=refx(linevalue(zq2=5,周oo,ref(zq2,1)=5,ref(周oo,1),1,0),zq1);to6:=refx(linevalue(zq2=6,周oo,ref(zq2,1)=6,ref(周oo,1),1,0),zq1);
to7:=refx(linevalue(zq2=7,周oo,ref(zq2,1)=7,ref(周oo,1),1,0),zq1);to8:=refx(linevalue(zq2=8,周oo,ref(zq2,1)=8,ref(周oo,1),1,0),zq1);to9:=refx(linevalue(zq2=9,周oo,ref(zq2,1)=9,ref(周oo,1),1,0),zq1);
to10:=refx(linevalue(zq2=10,周oo,ref(zq2,1)=10,ref(周oo,1),1,0),zq1);to11:=refx(linevalue(zq2=11,周oo,ref(zq2,1)=11,ref(周oo,1),1,0),zq1);to12:=refx(linevalue(zq2=12,周oo,ref(zq2,1)=12,ref(周oo,1),1,0),zq1);
to13:=refx(linevalue(zq2=13,周oo,ref(zq2,1)=13,ref(周oo,1),1,0),zq1);to14:=refx(linevalue(zq2=14,周oo,ref(zq2,1)=14,ref(周oo,1),1,0),zq1);to15:=refx(linevalue(zq2=15,周oo,ref(zq2,1)=15,ref(周oo,1),1,0),zq1);
to16:=refx(linevalue(zq2=16,周oo,ref(zq2,1)=16,ref(周oo,1),1,0),zq1);to17:=refx(linevalue(zq2=17,周oo,ref(zq2,1)=17,ref(周oo,1),1,0),zq1);to18:=refx(linevalue(zq2=18,周oo,ref(zq2,1)=18,ref(周oo,1),1,0),zq1);
to19:=refx(linevalue(zq2=19,周oo,ref(zq2,1)=19,ref(周oo,1),1,0),zq1);to20:=refx(linevalue(zq2=20,周oo,ref(zq2,1)=20,ref(周oo,1),1,0),zq1);
tc1:=refx(if(islastbar,周cc,1),zq1);tc2:=refx(linevalue(zq2=2,周cc,ref(zq2,1)=2,ref(周cc,1),1,0),zq1);tc3:=refx(linevalue(zq2=3,周cc,ref(zq2,1)=3,ref(周cc,1),1,0),zq1);
tc4:=refx(linevalue(zq2=4,周cc,ref(zq2,1)=4,ref(周cc,1),1,0),zq1);tc5:=refx(linevalue(zq2=5,周cc,ref(zq2,1)=5,ref(周cc,1),1,0),zq1);tc6:=refx(linevalue(zq2=6,周cc,ref(zq2,1)=6,ref(周cc,1),1,0),zq1);
tc7:=refx(linevalue(zq2=7,周cc,ref(zq2,1)=7,ref(周cc,1),1,0),zq1);tc8:=refx(linevalue(zq2=8,周cc,ref(zq2,1)=8,ref(周cc,1),1,0),zq1);tc9:=refx(linevalue(zq2=9,周cc,ref(zq2,1)=9,ref(周cc,1),1,0),zq1);
tc10:=refx(linevalue(zq2=10,周cc,ref(zq2,1)=10,ref(周cc,1),1,0),zq1);tc11:=refx(linevalue(zq2=11,周cc,ref(zq2,1)=11,ref(周cc,1),1,0),zq1);tc12:=refx(linevalue(zq2=12,周cc,ref(zq2,1)=12,ref(周cc,1),1,0),zq1);
tc13:=refx(linevalue(zq2=13,周cc,ref(zq2,1)=13,ref(周cc,1),1,0),zq1);tc14:=refx(linevalue(zq2=14,周cc,ref(zq2,1)=14,ref(周cc,1),1,0),zq1);tc15:=refx(linevalue(zq2=15,周cc,ref(zq2,1)=15,ref(周cc,1),1,0),zq1);
tc16:=refx(linevalue(zq2=16,周cc,ref(zq2,1)=16,ref(周cc,1),1,0),zq1);tc17:=refx(linevalue(zq2=17,周cc,ref(zq2,1)=17,ref(周cc,1),1,0),zq1);tc18:=refx(linevalue(zq2=18,周cc,ref(zq2,1)=18,ref(周cc,1),1,0),zq1);
tc19:=refx(linevalue(zq2=19,周cc,ref(zq2,1)=19,ref(周cc,1),1,0),zq1);tc20:=refx(linevalue(zq2=20,周cc,ref(zq2,1)=20,ref(周cc,1),1,0),zq1);
stickline(zq2=周n and tc1>to1,tc1,to1,8,0),color000045;stickline(zq2=周n and tc1<to1,tc1,to1,8,0),color003300;stickline(zq2=周n and tc1>to1,tl1,th1,1,0),,color00004f;stickline(zq2=周n and tc1<to1,tl1,th1,1,0),color003500;
stickline(zq2=(周n+1) and tc2>to2,tc2,to2,8,0),color000045,;stickline(zq2=(周n+1) and tc2<to2,tc2,to2,8,0),color003300,;stickline(zq2=(周n+1) and tc2>to2,tl2,th2,1,0),,color00004f,;stickline(zq2=(周n+1) and tc2<to2,tl2,th2,1,0),color003500,;
stickline(zq2=(周n+2) and tc3>to3,tc3,to3,8,0),color000045,;stickline(zq2=(周n+2) and tc3<to3,tc3,to3,8,0),color003300,;stickline(zq2=(周n+2) and tc3>to3,tl3,th3,1,0),,color00004f,;stickline(zq2=(周n+2) and tc3<to3,tl3,th3,1,0),color003500,;
stickline(zq2=(周n+3) and tc4>to4,tc4,to4,8,0),color000045,;stickline(zq2=(周n+3) and tc4<to4,tc4,to4,8,0),color003300,;stickline(zq2=(周n+3) and tc4>to4,tl4,th4,1,0),,color00004f,;stickline(zq2=(周n+3) and tc4<to4,tl4,th4,1,0),color003500,;
stickline(zq2=(周n+4) and tc5>to5,tc5,to5,8,0),color000045,;stickline(zq2=(周n+4) and tc5<to5,tc5,to5,8,0),color003300,;stickline(zq2=(周n+4) and tc5>to5,tl5,th5,1,0),,color00004f,;stickline(zq2=(周n+4) and tc5<to5,tl5,th5,1,0),color003500,;
stickline(zq2=(周n+5) and tc6>to6,tc6,to6,8,0),color000045,;stickline(zq2=(周n+5) and tc6<to6,tc6,to6,8,0),color003300,;stickline(zq2=(周n+5) and tc6>to6,tl6,th6,1,0),,color00004f,;stickline(zq2=(周n+5) and tc6<to6,tl6,th6,1,0),color003500,;
stickline(zq2=(周n+6) and tc7>to7,tc7,to7,8,0),color000045,;stickline(zq2=(周n+6) and tc7<to7,tc7,to7,8,0),color003300,;stickline(zq2=(周n+6) and tc7>to7,tl7,th7,1,0),,color00004f,;stickline(zq2=(周n+6) and tc7<to7,tl7,th7,1,0),color003500,;
stickline(zq2=(周n+7) and tc8>to8,tc8,to8,8,0),color000045,;stickline(zq2=(周n+7) and tc8<to8,tc8,to8,8,0),color003300,;stickline(zq2=(周n+7) and tc8>to8,tl8,th8,1,0),,color00004f,;stickline(zq2=(周n+7) and tc8<to8,tl8,th8,1,0),color003500,;
stickline(zq2=(周n+8) and tc9>to9,tc9,to9,8,0),color000045,;stickline(zq2=(周n+8) and tc9<to9,tc9,to9,8,0),color003300,;stickline(zq2=(周n+8) and tc9>to9,tl9,th9,1,0),,color00004f,;stickline(zq2=(周n+8) and tc9<to9,tl9,th9,1,0),color003500,;
stickline(zq2=(周n+9) and tc10>to10,tc10,to10,8,0),color000045,;stickline(zq2=(周n+9) and tc10<to10,tc10,to10,8,0),color003300,;stickline(zq2=(周n+9) and tc10>to10,tl10,th10,1,0),,color00004f,;stickline(zq2=(周n+9) and tc10<to10,tl10,th10,1,0),color003500,;
stickline(zq2=(周n+10) and tc11>to11,tc11,to11,8,0),color000045,;stickline(zq2=(周n+10) and tc11<to11,tc11,to11,8,0),color003300,;stickline(zq2=(周n+10) and tc11>to11,tl11,th11,1,0),,color00004f,;stickline(zq2=(周n+10) and tc11<to11,tl11,th11,1,0),color003500,;
stickline(zq2=(周n+11) and tc12>to12,tc12,to12,8,0),color000045,;stickline(zq2=(周n+11) and tc12<to12,tc12,to12,8,0),color003300,;stickline(zq2=(周n+11) and tc12>to12,tl12,th12,1,0),,color00004f,;stickline(zq2=(周n+11) and tc12<to12,tl12,th12,1,0),color003500,;
stickline(zq2=(周n+12) and tc13>to13,tc13,to13,8,0),color000045,;stickline(zq2=(周n+12) and tc13<to13,tc13,to13,8,0),color003300,;stickline(zq2=(周n+12) and tc13>to13,tl13,th13,1,0),,color00004f,;stickline(zq2=(周n+12) and tc13<to13,tl13,th13,1,0),color003500,;
stickline(zq2=(周n+13) and tc14>to14,tc14,to14,8,0),color000045,;stickline(zq2=(周n+13) and tc14<to14,tc14,to14,8,0),color003300,;stickline(zq2=(周n+13) and tc14>to14,tl14,th14,1,0),,color00004f,;stickline(zq2=(周n+13) and tc14<to14,tl14,th14,1,0),color003500,;
stickline(zq2=(周n+14) and tc15>to15,tc15,to15,8,0),color000045,;stickline(zq2=(周n+14) and tc15<to15,tc15,to15,8,0),color003300,;stickline(zq2=(周n+14) and tc15>to15,tl15,th15,1,0),,color00004f,;stickline(zq2=(周n+14) and tc15<to15,tl15,th15,1,0),color003500,;
stickline(zq2=(周n+15) and tc16>to16,tc16,to16,8,0),color000045,;stickline(zq2=(周n+15) and tc16<to16,tc16,to16,8,0),color003300,;stickline(zq2=(周n+15) and tc16>to16,tl16,th16,1,0),,color00004f,;stickline(zq2=(周n+15) and tc16<to16,tl16,th16,1,0),color003500,;
stickline(zq2=(周n+16) and tc17>to17,tc17,to17,8,0),color000045,;stickline(zq2=(周n+16) and tc17<to17,tc17,to17,8,0),color003300,;stickline(zq2=(周n+16) and tc17>to17,tl17,th17,1,0),,color00004f,;stickline(zq2=(周n+16) and tc17<to17,tl17,th17,1,0),color003500,;
stickline(zq2=(周n+17) and tc18>to18,tc18,to18,8,0),color000045,;stickline(zq2=(周n+17) and tc18<to18,tc18,to18,8,0),color003300,;stickline(zq2=(周n+17) and tc18>to18,tl18,th18,1,0),,color00004f,;stickline(zq2=(周n+17) and tc18<to18,tl18,th18,1,0),color003500,;
stickline(zq2=(周n+18) and tc19>to19,tc19,to19,8,0),color000045,;stickline(zq2=(周n+18) and tc19<to19,tc19,to19,8,0),color003300,;stickline(zq2=(周n+18) and tc19>to19,tl19,th19,1,0),,color00004f,;stickline(zq2=(周n+18) and tc19<to19,tl19,th19,1,0),color003500,;
stickline(zq2=(周n+19) and tc20>to20,tc20,to20,8,0),color000045,;stickline(zq2=(周n+19) and tc20<to20,tc20,to20,8,0),color003300,;stickline(zq2=(周n+19) and tc20>to20,tl20,th20,1,0),,color00004f,;stickline(zq2=(周n+19) and tc20<to20,tl20,th20,1,0),color003500,;
周均线:=(tc1+tc2+tc3+tc4+tc5+tc6+tc7+tc8+tc9+tc10+tc11+tc12+tc13+tc14+tc15+tc16+tc17+tc18+tc19+tc20)/20;
周均线p:=(tc2+tc3+tc4+tc5+tc6+tc7+tc8+tc9+tc10+tc11+tc12+tc13+tc14+tc15+tc16+tc17+tc18+tc19+tc20)/19;
stickline(zq2=(周n+9) and 周均线>=周均线p,周均线,周均线,180,0),color000079,;//190
stickline(zq2=(周n+9) and 周均线<周均线p,周均线,周均线,180,0),color007f00,shift0;//190
周均线10:=(tc1+tc2+tc3+tc4+tc5+tc6+tc7+tc8+tc9+tc10)/10;
周均线10p:=(tc2+tc3+tc4+tc5+tc6+tc7+tc8+tc9+tc10)/9;
stickline(zq2=(周n+5) and 周均线10>=周均线10p,周均线10,周均线10,100,0),color900099,;//190
stickline(zq2=(周n+5) and 周均线10<周均线10p,周均线10,周均线10,100,0),color909f00,shift0;//190
周均线5:=(tc1+tc2+tc3+tc4+tc5)/5;
周均线5p:=(tc2+tc3+tc4+tc5)/4;
stickline(zq2=(周n+2) and 周均线5>=周均线5p,周均线5,周均线5,40,0),color0000b9,;//190
stickline(zq2=(周n+2) and 周均线5<周均线5p,周均线5,周均线5,40,0),color00bf00,shift0;//190
drawtext(zq2=(周n+8),sysparam(4),'周线'),align0,color009999,pxdn50;
上一指标公式:指数MACD+K线公式下载 飞狐指数指标 源码
下一指标公式:证券K线副图公式下载 飞狐源码指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文左侧叠加周K线公式下载 飞狐指标 源码仅供学习研究。