用日线表示周rsi---逐日显示周rsi的指标数据

今天怀着比较沉重失落的心情,把一位高手写的大智慧用日线表示周rsi-----逐日显示周rsi的指标数据发给大家欣赏,绝对正确,无未来数据,希望给有志于编写用大智慧日线表示周线指标-----逐日显示周线的指标公式的朋友一点启发,把大智慧其余的周线指标公式编写出来,在这里先谢谢,因为本人就是这方面的追寻者,同时学识有限,希望能编写这些公式的朋友不要藏私,我曾乞求老师、高手编写逐日显示周XDT、周ROC，、周MACD，周UOS...等指标公式,至今无人回答,虽然有人看过我发的帖,但是没得到半字回复,那怕就是一个"NO"也好啊,
下面是公式指标,希望看贴的朋友能回帖,就是顶一下也好,或者NO,也是对一个新人莫大的安慰variable:y11=0,y12=0,y21=0,y22=0,y31=0,y32=0;
REFLINE: 0, 20, 50, 80, 100;
LC := REF(CLOSE,1);
ZC:=IF(BARPOS=1,1,DAYS1970-ref(DAYS1970,1)<>WEEKDAY-ref(WEEKDAY,1));
   {上市第一日ZC取1,每周初交易日取1,其他交易日取0 }
M:=BARSLAST(ZC)+1;   { 最后一周交易日 }
LC := REF(CLOSE,m);
y1:=max(CLOSE-LC,0);  
y2:=abs(CLOSE-LC);
y11:=(y1+(n1-1)*ref(y11,m))/n1;
  y12:=(y2+(n1-1)*ref(y12,m))/n1;
rsiw1:y11/y12*100;
y21:=(y1+(n2-1)*ref(y21,m))/n2; 
y22:=(y2+(n2-1)*ref(y22,m))/n2;
rsiw2:y21/y22*100;
y31:=(y1+(n3-1)*ref(y31,m))/n3; 
y32:=(y2+(n3-1)*ref(y32,m))/n3;
rsiw3:y31/y32*100;
STICKLINE(DAYS1970-ref(DAYS1970,1)<>WEEKDAY-ref(WEEKDAY,1) ,0 ,10 ,0.8 ,1 ),colorffffff;
      { 标记每周第一个交易日 }