
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线组合主图公式下载 飞狐军旗多日指标 源码仅供学习研究。