Zy1:=(DATEDIFF(REF(DATE,1),DATE) <> (WEEKDAY - REF(WEEKDAY,1)));
Zy2:=SUMBARS(Zy1,1);
Zy3:=SUMBARS(Zy1,7);
Zy4:=LBOUND(Zy3);
ZyN:=IF(Zy4=0 OR BARPOS<Zy4,BARPOS,Zy3);
ZyH:=HHV(H,ZyN);
ZyL:=LLV(L,ZyN);
ZyV:=((C-ZyL)/(ZyH-ZyL))*100;
LyK:=LBOUND(Zy2);
LyD:=LBOUND(SUMBARS(Zy1,2))-1;
ZyK[LyK-1]:=ZyV[LyK-1];
FOR I=LyK to DATACOUNT DO begin
ZyK[I]:=(ZyV[I]+2*ZyK[I-Zy2[I]])/3;
IF I>=LyD AND LyD>0 THEN
IF I = LyD THEN
ZyD[LyD]:=ZyK[LyD];
ELSE
ZyD[I]:=(ZyK[I]+2*ZyD[I-Zy2[I]])/3;
END;
多:ema(Zyd,1),PRECISION2,LINETHICK2,COLORMAGENTA;