钱龙短线（副图）

2011-03-12 10:34:00来源:本站整理浏览:129

钱龙短线（副图）
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;