MA5:MA(C,5);
 MA10:MA(C,10);
 MA20:MA(C,20);
 MA30:MA(C,30);
 MA60:MA(C,60),COLORFF0000;
 {MA120:MA(C,120),DOTLINE,COLORFF0080;}
 TC1:=IF(H=HHV(H,48),H,DRAWNULL);
 TC2:=CONST(BARSLAST(TC1=H))+1;
 UPPER:=CONST(IF(TC2=1,H,REF(H,TC2-1)));
 BC1:=IF(L=LLV(L,48),L,DRAWNULL);
 BC2:=CONST(BARSLAST(BC1=L))+1;
 LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1)));
 LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;
 HP:=CURRBARSCOUNT<=TC2 AND H=UPPER;
 AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/
 (HHV(HIGH,30)-LLV(LOW,30))*100,8);
 BA1:=EMA(AB,5);
上轨:=REFDATE(REF(HHV(MAX(C,O),96),5),DATE);
下轨:=REFDATE(REF(LLV(MIN(C,O),96),5),DATE);
中轨:=((上轨)+(下轨))/2;
 YXHX:=DATE>=REF(DATE,BARSLAST(IF(BC2>TC2,LP,HP)));
上沿:IF(AB>0 AND AB-BA1<=0 AND YXHX,上轨,上轨),POINTDOT,COLORWHITE;
中枢:IF(AB>0 AND AB-BA1<=0 AND YXHX,中轨,中轨),POINTDOT,COLORWHITE;
下沿:IF(AB>0 AND AB-BA1<=0 AND YXHX,下轨,下轨),POINTDOT,COLORWHITE;
极限底部:REFDATE(LLV(L,130),DATE)COLORYELLOW;
 Z1:=STRCAT(HYBLOCK,' ');
 Z2:=STRCAT(Z1,DYBLOCK);