今天我也來(lái)發(fā)一個(gè)指標-----kma日表周-------日線(xiàn)逐日顯示周均線(xiàn),周k線(xiàn)(副圖),不含未來(lái)數據.其特點(diǎn)是每日k線(xiàn)顯示的不是當日k線(xiàn),而是本周的周k線(xiàn);每日均線(xiàn)顯示的不是當日均線(xiàn),而是本周的周均線(xiàn);且數據不會(huì )隨時(shí)間推移發(fā)生改變;參數用來(lái)調節均線(xiàn)周期.我發(fā)源碼,
附源碼(分析家):
{名稱(chēng): KMA日表周
描述:日線(xiàn)逐日顯示周均線(xiàn),周k線(xiàn) }
input:n1(5,2,1000,1),n2(8,2,1000,1),n3(13,2,1000,1),n4(21,2,1000,1);
ZC:=IF(BARPOS=1,1,DAYS1970-DAYS1970[1]<>WEEKDAY-WEEKDAY[1]);
{上市第一日Z(yǔ)C取1,每周初交易日取1,其他交易日取0 }
M:=BARSLAST(ZC)+1; { 最后一周交易日 }
周初標記:DAYS1970-DAYS1970[1]<>WEEKDAY-WEEKDAY[1],color00ffff,linethick0,PRECIS0;
A:=IF(BARPOS=1,1,周初標記);
STICKLINE(周初標記 ,l*0.95 ,l*0.97 ,2 ,0 ),color00ffff;
{ 標記每周第一個(gè)交易日 }
周開(kāi)盤(pán):if(m=1,o,ref(o,m-1)),colorffffff,linethick0,PRECIS2;
周收盤(pán):c,colorffffff,linethick0,PRECIS2;
周最高:if(m=1,h,hhv(h,m-1)),colorffffff,linethick0,PRECIS2;
周最低:if(m=1,l,llv(l,m-1)),colorffffff,linethick0,PRECIS2;
stickline(c>周開(kāi)盤(pán),
llv(l,m),周最高,1,1),color0000ff;
stickline(c>周開(kāi)盤(pán),周開(kāi)盤(pán),c,6,1),color0000ff;
stickline(c<=周開(kāi)盤(pán),周最低,周最高,1,0),colorffff00;
stickline(c<=周開(kāi)盤(pán),周開(kāi)盤(pán),c,6,0),colorffff00;
B:=IF(A=1,REF(C,1),0);
T1:=SUMBARS(A,N1-1);
T2:=SUMBARS(A,n2-1);
T3:=SUMBARS(A,n3-1);
T4:=SUMBARS(A,n4-1);
MA1:(SUM(B,T1)+C)/N1,color00ffff;
MA2:(SUM(B,T2)+C)/n2,colorff00ff;
MA3:(SUM(B,T3)+C)/n3,color00ff00;
MA4:(SUM(B,T4)+C)/n4,coloraaaaaa;

聯(lián)系客服