ww:=floor((datetod1970(date)-3)/7);
wst:=barpos=1 or ww<>ref(ww,1);
mm:=month;
mst:=barpos=1 or mm<>ref(mm,1);
if kg=1 then begin
ww:=mod(barpos,n)=1;
wst:=barpos=1 or ww;
mm:=mod(barpos,m)=1;
mst:=barpos=1 or mm;
end;
{月k线}
med:=refx(mst,1) or barpos=datacount;
msp:=barslast(mst)+1;
mo:ref(o,barslast(mst)) linethick0 colorwhite;
mh:hhv(h,msp) linethick0 colorwhite;
mh:=setval(med,mh,-barslast(mst),mh);
ml:llv(l,msp) linethick0 colorwhite;
ml:=setval(med,ml,-barslast(mst),ml);
mc:setval(med,c,-barslast(mst),c) linethick0 colorwhite;
mv:=setval(med,0,-floor(barslast(mst)/2),1);
mv:=setval(med,mv,-floor(barslast(mst)/2)+1,0);
pkm:=msp>1;
pkmv:=pkm and mv;
pklv:=mst and not(med);
pkrv:=pkm and med;
zf:=mc>mo or (mc=mo and mc>ref(mc,msp));
partline(pkm and zf,mo),colormagenta;
partline(pkm and not(zf),mo),colorffdd00;
partline(pkm and zf,mc),colormagenta;
partline(pkm and not(zf),mc),colorffdd00;
stickline(pkmv and zf,mh,max(mc,mo),0,0),colormagenta;
stickline(pkmv and zf,ml,min(mc,mo),0,0),colormagenta;
stickline(pkmv and not(zf),mh,max(mc,mo),0,0),colorffdd00;
stickline(pkmv and not(zf),ml,min(mc,mo),0,0),colorffdd00;
stickline(pklv and zf,mc,mo,0,0),colormagenta;
stickline(pkrv and zf,mc,mo,0,0),colormagenta;
stickline(pklv and not(zf),mc,mo,0,0),colorffdd00;
stickline(pkrv and not(zf),mc,mo,0,0),colorffdd00;
drawtext(pkmv and mc<ref(mc,msp),mh*1.01,'月'),colorgreen,align1;
drawnumber(pkmv and mc<ref(mc,msp),mh*1.01,mm,0),colorgreen,align2;
drawtext(pkmv and mc>=ref(mc,msp),mh*1.01,'月'),colorred,align1;
drawnumber(pkmv and mc>=ref(mc,msp),mh*1.01,mm,0),colorred,align2;
{周k线}
wed:=refx(wst,1) or barpos=datacount;
wsp:=barslast(wst)+1;
wo:ref(o,barslast(wst)) linethick0 coloryellow;
wh:hhv(h,wsp) linethick0 coloryellow;
wh:=setval(wed,wh,-barslast(wst),wh);
wl:llv(l,wsp) linethick0 coloryellow;
wl:=setval(wed,wl,-barslast(wst),wl);
wc:setval(wed,c,-barslast(wst),c) linethick0 coloryellow;
wv:=setval(wed,0,-floor(barslast(wst)/2),1);
wv:=setval(wed,wv,-floor(barslast(wst)/2)+1,0);
pkw:=wsp>1;
pkmv:=pkw and wv;
pklv:=wst and not(wed);
pkrv:=pkw and wed;
f:=wc>wo or (wc=wo and wc>ref(wc,wsp));
partline(pkw and f,wo),coloraaaaee;
partline(pkw and not(f),wo) coloreeaaaa;
partline(pkw and f,wc),coloraaaaee;
partline(pkw and not(f),wc),coloreeaaaa;
stickline(pkmv and f,wh,max(wc,wo),0,0),coloraaaaee;
stickline(pkmv and f,wl,min(wc,wo),0,0),coloraaaaee;
stickline(pkmv and not(f),wh,max(wc,wo),0,0),coloreeaaaa;
stickline(pkmv and not(f),wl,min(wc,wo),0,0),coloreeaaaa;
stickline(pklv and f,wc,wo,0,0),coloraaaaee;
stickline(pkrv and f,wc,wo,0,0),coloraaaaee;
stickline(pklv and not(f),wc,wo,0,0),coloreeaaaa;
stickline(pkrv and not(f),wc,wo,0,0),coloreeaaaa;
{日k线}
if sysparam(1)<sysparam(3) then
kline(o,h,l,c,0);
上一指标公式:获利分析副图附说明公式下载 飞狐源码分析指标 源码
下一指标公式:基本面直观公式下载 飞狐基本面指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文十字军旗的日周月多日K线组合主图公式下载 飞狐军旗多日指标 源码仅供学习研究。