例如我想讓某個缺口的最低價向右畫一條線，直至他被回補，該怎麼畫？

另外，可以回傳被回補k棒的日期數據嗎？

感恩

引用:

---

最初由 ah7eric 發表
例如我想讓某個缺口的最低價向右畫一條線，直至他被回補，該怎麼畫？

另外，可以回傳被回補k棒的日期數據嗎？

感恩

---

原碼:


QK:=L>REFX(H,1); HH:=H; HP:=C*0;LL:=L; FOR I=LBOUND(QK) TO DATACOUNT DO BEGIN IF QK[I] THEN BEGIN FOR J=I+1 TO DATACOUNT DO BEGIN IF HH[J]<LL[I] THEN BEGIN HP[I]:=0; END ELSE BEGIN IF HH[J]>=LL[I] THEN BEGIN HP[I]:=J-I; BREAK; END; END; END; END; END; DRAWSL(QK,L,0,HP,3);

QK:=L>REFX(H,1);
HH:=H; HP:=C*0;LL:=L;
FOR I=LBOUND(QK) TO DATACOUNT DO BEGIN
IF QK[I] THEN BEGIN
FOR J=I+1 TO DATACOUNT DO BEGIN
IF HH[J]<LL[I] THEN BEGIN
HP[I]:=0;
END ELSE BEGIN
IF HH[J]>=LL[I] THEN BEGIN
HP[I]:=J-I;
BREAK;
END;
END;
END;
END;
END;
DRAWSL(QK,L,0,HP,3);

請問如果我想要改成


IF 下根的MIN(開,收) > 當根的MAX(C,O)

我想在當根的MAX(C,O)向右畫線延伸直至另一根K棒碰到該價位，應該如何修改原本的程式？

我試了
QK:=MAX(C,O)<MIN(REFX(O,1),REFX(C,1));

HH:=MAX(C,O);
HP:=C*0;
LL:=MIN(REFX(O,1),REFX(C,1));

可是結果不是我要的



麻煩了！

引用:

---

最初由 ah7eric 發表
請問如果我想要改成


IF 下根的MIN(開,收) > 當根的MAX(C,O)

我想在當根的MAX(C,O)向右畫線延伸直至另一根K棒碰到該價位，應該如何修改原本的程式？

我試了
QK:=MAX(C,O)<MIN(REFX(O,1),REFX(C,1));

HH:=MAX(C,O);
HP:=C*0;
LL:=MIN(REFX(O,1),REFX(C,1));

可是結果不是我要的

麻煩了！

---

原碼:


MM:=MAX(C,O);

CK:=REFX(MIN(O,C),1)>MM;

HH:=H; LL:=L; PP:=C*0;

for i=lbound(CK) to datacount do begin

  if CK[i] then begin

     for j=i+1 to datacount do begin

       if HH[j]>=MM[i] and MM[i]>=LL[j] then begin

         PP[i]:=j-i; break;

       end;

     end;

  end;

end;

DRAWSL(CK,MM,0,PP,3) pxdn2;