钱龙短线指标
VARIABLE:LASTRES0=0;
variable:LASTRES1=0;
LASTCLOSE:=REF(CLOSE,1);
IF HIGH>LASTCLOSE THEN
TB:=HIGH-LASTCLOSE+CLOSE-LOW;
ELSE
TB:=IF(H>LASTCLOSE,H-LASTCLOSE+C-L,C-L);
IF(LASTCLOSE>LOW) THEN
TS:=LASTCLOSE-LOW+HIGH-CLOSE;
ELSE
TS:=IF(LASTCLOSE>L,LASTCLOSE-L+H-C,H-C);
IF((TB+TS)=0) THEN
TEMP:=0;
ELSE
TEMP:=(TB-TS)*VOL/(TB+TS)/10000;
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;
| 
