分时主图显示最近五个交易日K线和成交量

 

写一个在分时图上能够显示最近五个交易日K线走向和成交量缩放的分时主图。在论坛也找了一些资料,参考前辈老师稍微改动了。但成交量还是有瑕疵,所以留下M  N两个参数 群策群力看看能不能改进一下。如果您手中有这种主图。请绕道,因为可能您的比我写的要先进。我这个还待优化。
 


因为要在分时图上画5个交易日的K线和成交量 所以先麻烦您建立引用“分时K线引用”所以名字固定为
fsky
引用公式内容

V1:REF(HSL,1)*10;
V2:REF(HSL,2)*10;
V3:REF(HSL,3)*10;
V4:REF(HSL,4)*10;
ZO:REF(O,1);
ZC:REF(C,1);
ZH:REF(H,1);
ZL:REF(L,1);
JO:REF(O,2);
JC:REF(C,2);
JH:REF(H,2);
JL:REF(L,2);
JO3:REF(O,3);
JC3:REF(C,3);
JH3:REF(H,3);
JL3:REF(L,3);
JO4:REF(O,4);
JC4:REF(C,4);
JH4:REF(H,4);
JL4:REF(L,4);
JC5:REF(C,5);

建好上面的引用请退出该公式  再建下面分时主图

{分时主图}

 

 

 


N:=500;
M:=250;
N2:=150;
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
ZS:=DYNAINFO(3);
ZG:=DYNAINFO(5);
ZD:=DYNAINFO(6);
OP:=100-(KP/ZS-1)*1000;
CL:=100-(ZX/ZS-1)*1000;
HI:=100-(ZG/ZS-1)*1000;
LO:=100-(ZD/ZS-1)*1000;
N1:=950;
Q:=IF(ZX>KP,RGB(255,0,0),IF(ZX<KP,RGB(84,255,255),IF(ZX=KP,RGB(255,255,255),DRAWNULL)));
DRAWRECTREL(N1+4,HI,N1+7,LO,Q );
DRAWRECTREL(N1,OP,N1+12,CL,Q );
ZO:="FSKY.ZO#DAY";
ZC:="FSKY.ZC#DAY";
ZH:="FSKY.ZH#DAY";
ZL:="FSKY.ZL#DAY";
JC:="FSKY.JC#DAY";
ZKP:=100-(ZO/JC-1)*1000;
ZCP:=100-(ZC/JC-1)*1000;
ZZG:=100-(ZH/JC-1)*1000;
ZZD:=100-(ZL/JC-1)*1000;
Q1:=IF(ZC>ZO,RGB(255,0,0),IF(ZC<ZO,RGB(84,255,255),IF(ZC=ZO,RGB(255,255,255),DRAWNULL)));
DRAWRECTREL(N1-10,ZZG,N1-7,ZZD,Q1);
DRAWRECTREL(N1-14,ZKP,N1-2,ZCP,Q1);
JO:="FSKY.JO#DAY";
JC3:="FSKY.JC3#DAY";
JH:="FSKY.JH#DAY";
JL:="FSKY.JL#DAY";
ZZKP:=100-(JO/JC3-1)*1000;
ZZCP:=100-(JC/JC3-1)*1000;
ZZZG:=100-(JH/JC3-1)*1000;
ZZZD:=100-(JL/JC3-1)*1000;
Q2:=IF(JC>JO,RGB(255,0,0),IF(JC<JO,RGB(84,255,255),IF(JC=JO,RGB(255,255,255),DRAWNULL)));
DRAWRECTREL(N1-21,ZZZG,N1-18,ZZZD,Q2);
DRAWRECTREL(N1-26,ZZKP,N1-14,ZZCP,Q2);
JO3:="FSKY.JO3#DAY";
JC4:="FSKY.JC4#DAY";
JH3:="FSKY.JH3#DAY";
JL3:="FSKY.JL3#DAY";
ZZKP3:=100-(JO3/JC4-1)*1000;
ZZCP3:=100-(JC3/JC4-1)*1000;
ZZZG3:=100-(JH3/JC4-1)*1000;
ZZZD3:=100-(JL3/JC4-1)*1000;
Q3:=IF(JC3>JO3,RGB(255,0,0),IF(JC3<JO3,RGB(84,255,255),IF(JC3=JO3,RGB(255,255,255),DRAWNULL)));
DRAWRECTREL(N1-34,ZZZG3,N1-30,ZZZD3,Q3);
DRAWRECTREL(N1-39,ZZKP3,N1-26,ZZCP3,Q3);
JO4:="FSKY.JO4#DAY";
JC5:="FSKY.JC5#DAY";
JH4:="FSKY.JH4#DAY";
JL4:="FSKY.JL4#DAY";
ZZKP4:=100-(JO4/JC5-1)*1000;
ZZCP4:=100-(JC4/JC5-1)*1000;
ZZZG4:=100-(JH4/JC5-1)*1000;
ZZZD4:=100-(JL4/JC5-1)*1000;
Q4:=IF(JC4>JO4,RGB(255,0,0),IF(JC4<JO4,RGB(84,255,255),IF(JC4=JO4,RGB(255,255,255),DRAWNULL)));
DRAWRECTREL(N1-47,ZZZG4,N1-44,ZZZD4,Q4);
DRAWRECTREL(N1-51,ZZKP4,N1-39,ZZCP4,Q4);
T1:=IF(ZX>KP OR (ZX=KP AND ZX>=ZS),RGB(255,0,0),RGB(84,255,255));
T2:=IF(ZC>ZO OR (ZC=ZO AND ZC>=JC),RGB(255,0,0),RGB(84,255,255));
T3:=IF(JC>JO OR (JC=JO AND JC>=JC3),RGB(255,0,0),RGB(84,255,255));
T4:=IF(JC3>JO3 OR (JC3=JO3 AND JC3>=JC4),RGB(255,0,0),RGB(84,255,255));
T5:=IF(JC4>JO4 OR (JC4=JO4 AND JC4>=JC5),RGB(255,0,0),RGB(84,255,255));
DRAWRECTREL(N1+2,N2-(HSL#DAY*10/N2-1)*M,N1+10,N,T1);
DRAWRECTREL(N1-12,N2-("FSKY.V1#DAY"/N2-1)*M,N1,N,T2);
DRAWRECTREL(N1-24,N2-("FSKY.V2#DAY"/N2-1)*M,N1-10,N,T3);
DRAWRECTREL(N1-36,N2-("FSKY.V3#DAY"/N2-1)*M,N1-22,N,T4);
DRAWRECTREL(N1-48,N2-("FSKY.V4#DAY"/N2-1)*M,N1-34,N,T5);




来函数检测结果如下
该公式包含未来函数:DYNAINFO

解密、定制、编写公式指标请联系QQ或微信同号:88652583
置顶指标

相关指标公式

写一个在分时图上能够显示最近五个交易日K线走向和成交量缩放的分时主图。在论坛也找了一些资料,参考前辈老师稍微改动了。但成交量还是有瑕疵,所以留下M N两个参数 群策群力看看能不能改进一下。如果您手中有这种主图。请绕道,因为可能您的比我写的要先进。我这个还待优化。 因为要在分时图上画5个交易日的K线和成交量 所以先麻烦您建立引用“分时K线引用”所以名字固定为FSKY引用公式内容V1:1日前的换手线*10
输出V2:2日前的换手线*10
输出V3:3日前的换手线*10
输出V4:4日前的换手线*10
输出ZO:1日前的开盘价
输出ZC:1日前的收盘价
输出ZH:1日前的最高价
输出ZL:1日前的最低价
输出JO:2日前的开盘价
输出JC:2日前的收盘价
输出JH:2日前的最高价
输出JL:2日前的最低价
输出JO3:3日前的开盘价
输出JC3:3日前的收盘价
输出JH3:3日前的最高价
输出JL3:3日前的最低价
输出JO4:4日前的开盘价
输出JC4:4日前的收盘价
输出JH4:4日前的最高价
输出JL4:4日前的最低价
输出JC5:5日前的收盘价
N赋值:500
M赋值:250
N2赋值:150
KP赋值:开盘价
ZX赋值:现价
ZS赋值:昨收盘价
ZG赋值:最高价
ZD赋值:最低价
OP赋值:100-(KP/ZS-1)*1000
CL赋值:100-(ZX/ZS-1)*1000
HI赋值:100-(ZG/ZS-1)*1000
LO赋值:100-(ZD/ZS-1)*1000
N1赋值:950
Q赋值:如果ZX>KP,返回自定色,否则返回如果ZX相对位置上画矩形
相对位置上画矩形
ZO赋值:"FSKY.ZO[取日线数据]"
ZC赋值:"FSKY.ZC[取日线数据]"
ZH赋值:"FSKY.ZH[取日线数据]"
ZL赋值:"FSKY.ZL[取日线数据]"
JC赋值:"FSKY.JC[取日线数据]"
ZKP赋值:100-(ZO/JC-1)*1000
ZCP赋值:100-(ZC/JC-1)*1000
ZZG赋值:100-(ZH/JC-1)*1000
ZZD赋值:100-(ZL/JC-1)*1000
Q1赋值:如果ZC>ZO,返回自定色,否则返回如果ZC相对位置上画矩形
相对位置上画矩形
JO赋值:"FSKY.JO[取日线数据]"
JC3赋值:"FSKY.JC3[取日线数据]"
JH赋值:"FSKY.JH[取日线数据]"
JL赋值:"FSKY.JL[取日线数据]"
ZZKP赋值:100-(JO/JC3-1)*1000
ZZCP赋值:100-(JC/JC3-1)*1000
ZZZG赋值:100-(JH/JC3-1)*1000
ZZZD赋值:100-(JL/JC3-1)*1000
Q2赋值:如果JC>JO,返回自定色,否则返回如果JC相对位置上画矩形
相对位置上画矩形
JO3赋值:"FSKY.JO3[取日线数据]"
JC4赋值:"FSKY.JC4[取日线数据]"
JH3赋值:"FSKY.JH3[取日线数据]"
JL3赋值:"FSKY.JL3[取日线数据]"
ZZKP3赋值:100-(JO3/JC4-1)*1000
ZZCP3赋值:100-(JC3/JC4-1)*1000
ZZZG3赋值:100-(JH3/JC4-1)*1000
ZZZD3赋值:100-(JL3/JC4-1)*1000
Q3赋值:如果JC3>JO3,返回自定色,否则返回如果JC3相对位置上画矩形
相对位置上画矩形
JO4赋值:"FSKY.JO4[取日线数据]"
JC5赋值:"FSKY.JC5[取日线数据]"
JH4赋值:"FSKY.JH4[取日线数据]"
JL4赋值:"FSKY.JL4[取日线数据]"
ZZKP4赋值:100-(JO4/JC5-1)*1000
ZZCP4赋值:100-(JC4/JC5-1)*1000
ZZZG4赋值:100-(JH4/JC5-1)*1000
ZZZD4赋值:100-(JL4/JC5-1)*1000
Q4赋值:如果JC4>JO4,返回自定色,否则返回如果JC4 相对位置上画矩形
相对位置上画矩形
T1赋值:如果ZX>KPOR(ZX=KPANDZX>=ZS),返回自定色,否则返回自定色
T2赋值:如果ZC>ZOOR(ZC=ZOANDZC>=JC),返回自定色,否则返回自定色
T3赋值:如果JC>JOOR(JC=JOANDJC>=JC3),返回自定色,否则返回自定色
T4赋值:如果JC3>JO3OR(JC3=JO3ANDJC3>=JC4),返回自定色,否则返回自定色
T5赋值:如果JC4>JO4OR(JC4=JO4ANDJC4>=JC5),返回自定色,否则返回自定色
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形

指标安装下载帮助  |   联系我们  |  乐淘公式网  |  公式网   |  指标公式  |   加入收藏   |  设为主页

@2005-2025 浙ICP备2024071487号-1 乐淘公式网公式网均来源互联网收集整理,如不慎侵犯了你的权益,请联系我们告知,我们将做删除处理
免责声明:乐淘公式网所有指标公式及文章由网络收集,不保障实时性和真实性, 仅供学习研究并不构成投资建议,请勿以此为依据进行股票交易,由此引起的投资亏损与本站无关。
QQ:88652583 微信 88652583
sitemap站点地图