TEMP:=IF(TB+TS=0,0,(TB-TS)*VOL/(TB+TS)/10000);
LL:=BARSCOUNT(CLOSE);
IF(LL =2)THEN
BEGIN
IF(LL=2)THEN
BEGIN
RES0:=TEMP*10/100;
RES1:=TEMP*5/100;
LASTRES0:=RES0;
LASTRES1:=RES1;
END
ELSE
BEGIN
RES0:=LASTRES0+(TEMP-LASTRES0)*10/100;
RES1:=LASTRES1+(TEMP-LASTRES1)*5/100;
LASTRES0:=RES0;
LASTRES1:=RES1;
END
SHORT:RES0-RES1; END
MAS:MA(SHORT,10);
SHT:SHORT,COLORSTICK;