錢龍短線指標(biāo)

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;