KMA日表周源码附图

股票公式不明白请查阅：股票公式文件使用以及说明！

今天我也来发一个指标-----kma日表周-------日线逐日显示周均线,周k线(副图),不含未来数据.其特点是每日k线显示的不是当日k线,而是本周的周k线;每日均线显示的不是当日均线,而是本周的周均线;且数据不会随时间推移发生改变;参数用来调节均线周期.我发源码,

附源码(分析家):
 {名称: KMA日表周
 描述:日线逐日显示周均线,周k线  }

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]);
    {上市第一日ZC取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;
       { 标记每周第一个交易日 }
周开盘:if(m=1,o,ref(o,m-1)),colorffffff,linethick0,PRECIS2;
周收盘: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>周开盘,
         llv(l,m),周最高,1,1),color0000ff;
 stickline(c>周开盘,周开盘,c,6,1),color0000ff;
 stickline(c<=周开盘,周最低,周最高,1,0),colorffff00;
 stickline(c<=周开盘,周开盘,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;