分时5k线大家用。
上图中上下调整 左右调整 就是调整日k线的位置,打开关闭设置为:3 是全部打开,2是只开日k线和5 10 日均线,1是只开日k线,0是全部关闭。
{引用日线}
jc:c;
jo:o;
jh:h;
jl:l;
jc1:ref(c,1);
jo1:ref(o,1);
jh1:ref(h,1);
jl1:ref(l,1);
jc2:ref(c,2);
jo2:ref(o,2);
jh2:ref(h,2);
jl2:ref(l,2);
jc3:ref(c,3);
jo3:ref(o,3);
jh3:ref(h,3);
jl3:ref(l,3);
jc4:ref(c,4);
jo4:ref(o,4);
jh4:ref(h,4);
jl4:ref(l,4);
jc5:ref(c,5);
jcyc:=(high+low+open+2*close)/5;
明日阻力:=2*jcyc-low;
明日支撑:=2*jcyc-high;
明日突破:=jcyc+(high-low);
明日反转:=jcyc-(high-low);
阻力:ref(明日阻力,1);
支撑:ref(明日支撑,1);
突破:ref(明日突破,1);
反转:ref(明日反转,1);
jm1:ma(c,5);
jm2:ma(c,10);
分时5k线 公式源码:
input: 上下调整(460,50,1000),左右调整(550,150,1000),打开关闭(3,0,3);
{日k线引用}
if 打开关闭>0 then begin
jc:="引用日线.jc#day";jo:="引用日线.jo#day";jh:="引用日线.jh#day";jl:="引用日线.jl#day";
jc1:="引用日线.jc1#day";jo1:="引用日线.jo1#day";jh1:="引用日线.jh1#day";jl1:="引用日线.jl1#day";
jc2:="引用日线.jc2#day";jo2:="引用日线.jo2#day";jh2:="引用日线.jh2#day";jl2:="引用日线.jl2#day";
jc3:="引用日线.jc3#day";jo3:="引用日线.jo3#day";jh3:="引用日线.jh3#day";jl3:="引用日线.jl3#day";
jc4:="引用日线.jc4#day";jo4:="引用日线.jo4#day";jh4:="引用日线.jh4#day";jl4:="引用日线.jl4#day";
jc5:="引用日线.jc5#day";
yt1:=jc>jc1 and jc=jo;yt2:=jc<=jc1 and jc=jo;yt3:=jc1>jc2 and jc1=jo1;yt4:=jc1<=jc2 and jc1=jo1;
yt5:=jc2>jc3 and jc2=jo2;yt6:=jc2<=jc3 and jc2=jo2;yt7:=jc3>jc4 and jc3=jo3;yt8:=jc3<=jc4 and jc3=jo3;
yt9:=jc4>jc5 and jc4=jo4;yt10:=jc4<=jc5 and jc4=jo4;
{昨收阳}
jjca1:=if(abs(jc1-jo1)>0.015,jc1/jo1*2000-2000,5);
jjha1:=jh1/jc1*2000-2000;
jjla1:=jo1/jl1*2000-2000;
jwa1:=jc1-jo1>0 or yt3>0;
if jwa1>0 then begin
drawrectrel(左右调整,上下调整-jjca1,左右调整+17,上下调整,0),color4535ff;
drawrectrel(左右调整+8,上下调整-jjca1-jjha1,左右调整+9,上下调整-jjca1,0),color5040ff;
drawrectrel(左右调整+8,上下调整,左右调整+9,上下调整+jjla1,0),color5040ff;
end;
jzst:=strfind(stkname,'s',1) and jc1/jc2>=1.048;
jztb:=jc1/jc2>=1.0994 or jzst;
if jztb>0 then begin
drawrectrel(左右调整+2,上下调整-jjca1+2,左右调整+15,上下调整-2,rgb(255,255,0)),coloryellow;
end;
{昨收阴}
jjha2:=jh1/jo1*2000-2000;
jjla2:=jc1/jl1*2000-2000;
jwa2:=jo1-jc1>0 or yt4>0;
if jwa2>0 then begin
drawrectrel(左右调整,上下调整,左右调整+17,上下调整-jjca1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整+8,上下调整-jjha2,左右调整+9,上下调整-jjca1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整+8,上下调整-jjca1,左右调整+9,上下调整-jjca1+jjla2,rgb(0,255,255)),colorffff00;
end;
jzst1:=strfind(stkname,'s',1) and jc1/jc2<=0.953;
jztb1:=jc1/jc2<=0.902 or jzst1;
if jztb1>0 then begin
drawrectrel(左右调整+2,上下调整+2,左右调整+15,上下调整-jjca1-2,rgb(255,255,255)),colorffffff;
end;
{前收阳}
jjcb1:=if(abs(jc2-jo2)>0.015,jc2/jo2*2000-2000,5);
jjhb1:=jh2/jc2*2000-2000;
jjlb1:=jo2/jl2*2000-2000;
jzkb1:=jo1/jc2*2000-2000;
qsyb1:=上下调整+jzkb1;
jwb1:=(jc2-jo2>0 or yt5>0);
if jwb1>0 then begin
drawrectrel(左右调整-23,qsyb1+jjcb1,左右调整-6,qsyb1,0),color4535ff;
drawrectrel(左右调整-15,qsyb1-jjhb1,左右调整-14,qsyb1,0),color5040ff;
drawrectrel(左右调整-15,qsyb1+jjcb1+jjlb1,左右调整-14,qsyb1+jjcb1,0),color5040ff;
end;
jzst2:=strfind(stkname,'s',1) and jc2/jc3>=1.048;
jztb2:=jc2/jc3>=1.0994 or jzst2;
if jztb2>0 then begin
drawrectrel(左右调整-21,qsyb1+jjcb1-2,左右调整-8,qsyb1+2,rgb(255,255,0)),coloryellow;
end;
{前收阴}
jjhb2:=jh2/jo2*2000-2000;
jjlb2:=jc2/jl2*2000-2000;
jwb2:=(jo2-jc2>0 or yt6>0);
if jwb2>0 then begin
drawrectrel(左右调整-23,qsyb1+jjcb1,左右调整-6,qsyb1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整-15,qsyb1+jjcb1-jjhb2,左右调整-14,qsyb1+jjcb1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整-15,qsyb1,左右调整-14,qsyb1+jjlb2,rgb(0,255,255)),colorffff00;
end;
jzst3:=strfind(stkname,'s',1) and jc2/jc3<=0.953;
jztb3:=jc2/jc3<=0.902 or jzst3;
if jztb3>0 then begin
drawrectrel(左右调整-21,qsyb1+jjcb1+2,左右调整-8,qsyb1-2,rgb(255,255,255)),colorffffff;
end;
{s前收阳}
jjcd1:=if(abs(jc3-jo3)>0.015,jc3/jo3*2000-2000,5);
jjhd1:=jh3/jc3*2000-2000;
jjld1:=jo3/jl3*2000-2000;
jzkd1:=jo2/jc3*2000-2000;
qsyd1:=qsyb1+jjcb1+jzkd1;
jwd1:=(jc3-jo3>0 or yt7>0);
if jwd1>0 then begin
drawrectrel(左右调整-46,qsyd1+jjcd1,左右调整-29,qsyd1,0),color4535ff;
drawrectrel(左右调整-38,qsyd1-jjhd1,左右调整-37,qsyd1,0),color5040ff;
drawrectrel(左右调整-38,qsyd1+jjcd1+jjld1,左右调整-37,qsyd1+jjcd1,0),color5040ff;
end;
{s前收阴}
jjhd2:=jh3/jo3*2000-2000;
jjld2:=jc3/jl3*2000-2000;
jwd2:=(jo3-jc3>0 or yt8>0);
if jwd2>0 then begin
drawrectrel(左右调整-46,qsyd1+jjcd1,左右调整-29,qsyd1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整-38,qsyd1+jjcd1-jjhd2,左右调整-37,qsyd1+jjcd1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整-38,qsyd1,左右调整-37,qsyd1+jjld2,rgb(0,255,255)),colorffff00;
end;
{ss前收阳}
jjce1:=if(abs(jc4-jo4)>0.015,jc4/jo4*2000-2000,5);
jjhe1:=jh4/jc4*2000-2000;
jjle1:=jo4/jl4*2000-2000;
jzke1:=jo3/jc4*2000-2000;
qsye1:=qsyd1+jjcd1+jzke1;
jwe1:=(jc4-jo4>0 or yt9>0);
if jwe1>0 then begin
drawrectrel(左右调整-69,qsye1+jjce1,左右调整-52,qsye1,0),color4535ff;
drawrectrel(左右调整-61,qsye1-jjhe1,左右调整-60,qsye1,0),color5040ff;
drawrectrel(左右调整-61,qsye1+jjce1+jjle1,左右调整-60,qsye1+jjce1,0),color5040ff;
end;
{ss前收阴}
jjhe2:=jh4/jo4*2000-2000;
jjle2:=jc4/jl4*2000-2000;
jwe2:=(jo4-jc4>0 or yt10>0);
if jwe2>0 then begin
drawrectrel(左右调整-69,qsye1+jjce1,左右调整-52,qsye1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整-61,qsye1+jjce1-jjhe2,左右调整-60,qsye1+jjce1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整-61,qsye1,左右调整-60,qsye1+jjle2,rgb(0,255,255)),colorffff00;
end;
{今收阳}
jjcc1:=if(abs(jc-jo)>0.015,jc/jo*2000-2000,5);
jjhc1:=jh/jc*2000-2000;
jjlc1:=jo/jl*2000-2000;
jzkc1:=jo/jc1*2000-2000;
qsyc1:=上下调整-jjca1-jzkc1;
jwc1:=(jc-jo>0 or yt1>0);
if jwc1>0 then begin
drawrectrel(左右调整+23,qsyc1-jjcc1,左右调整+40,qsyc1,0),color4535ff;
drawrectrel(左右调整+31,qsyc1-jjcc1-jjhc1,左右调整+32,qsyc1-jjcc1,0),color5040ff;
drawrectrel(左右调整+31,qsyc1,左右调整+32,qsyc1+jjlc1,0),color5040ff;
end;
jzst4:=strfind(stkname,'s',1) and jc/jc1>=1.048;
jztb4:=jc/jc1>=1.0994 or jzst4;
if jztb4>0 then begin
drawrectrel(左右调整+25,qsyc1-jjcc1+2,左右调整+38,qsyc1-2,rgb(255,255,0)),coloryellow;
end;
{今收阴}
jjhc2:=jh/jo*2000-2000;
jjlc2:=jc/jl*2000-2000;
jwc2:=(jo-jc>0 or yt2>0);
if jwc2>0 then begin
drawrectrel(左右调整+23,qsyc1,左右调整+40,qsyc1-jjcc1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整+31,qsyc1-jjhc2,左右调整+32,qsyc1,rgb(0,255,255)),colorffff00;
drawrectrel(左右调整+31,qsyc1-jjcc1,左右调整+32,qsyc1-jjcc1+jjlc2,rgb(0,255,255)),colorffff00;
end;
jzst5:=strfind(stkname,'s',1) and jc/jc1<=0.953;
jztb5:=jc/jc1<=0.902 or jzst5;
if jztb5>0 then begin
drawrectrel(左右调整+25,qsyc1+2,左右调整+38,qsyc1-jjcc1-2,rgb(255,255,255)),colorffffff;
end;
if 打开关闭>2 then begin
阻力:="引用日线.阻力#day";支撑:="引用日线.支撑#day";
突破:="引用日线.突破#day";反转:="引用日线.反转#day";
jzlc1:=阻力/jo*2000-2000;jzzc1:=支撑/jo*2000-2000;
jtpc1:=突破/jo*2000-2000;jfzc1:=反转/jo*2000-2000;
drawtextrel(左右调整+38,qsyc1-jzlc1,'ˉˉˉ'),colorffa800;
drawtextrel(左右调整+60,qsyc1-jzlc1,'阻力 '+numtostrn(阻力,2)),colorffa800;
drawtextrel(左右调整+38,qsyc1-jzzc1,'ˉˉˉ'),colorffa800;
drawtextrel(左右调整+60,qsyc1-jzzc1,'支撑 '+numtostrn(支撑,2)),colorffa800;
drawtextrel(左右调整+38,qsyc1-jtpc1,'ˉˉˉ'),colorffa800;
drawtextrel(左右调整+60,qsyc1-jtpc1,'突破 '+numtostrn(突破,2)),colorffa800;
drawtextrel(左右调整+38,qsyc1-jfzc1,'ˉˉˉ'),colorffa800;
drawtextrel(左右调整+60,qsyc1-jfzc1,'反转 '+numtostrn(反转,2)),colorffa800;
end;
if 打开关闭>1 then begin
jm1:="引用日线.jm1#day";jm2:="引用日线.jm2#day";
jmac1:=jm1/jo*2000-2000;jmac2:=jm2/jo*2000-2000;
drawtextrel(左右调整+20,qsyc1-jmac1,'ˉˉˉˉˉˉˉ'),colorffffff;
drawtextrel(左右调整+120,qsyc1-jmac1,'ma5 '+numtostrn(jm1,2)),colorffffff;
drawtextrel(左右调整+20,qsyc1-jmac2,'ˉˉˉˉˉˉˉˉˉˉ'),coloryellow;
drawtextrel(左右调整+140,qsyc1-jmac2,'ma10 '+numtostrn(jm2,2)),coloryellow;
end;
end;
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文分时5K线大家用DZH公式下载 大智慧指标源码源码仅供学习研究。