钱龙短线指标的源码

源码如下：

钱龙短线指标

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;