奇狐社區論壇 - 如何把某個價位向右畫線延伸直至另一根k棒碰到該價位？

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 如何把某個價位向右畫線延伸直至另一根k棒碰到該價位？ (http://www.chiefox.com.tw/bbs/showthread.php?threadid=16717)

由 ah7eric 在 2012-05-18 21:49 發表:

如何把某個價位向右畫線延伸直至另一根k棒碰到該價位？

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

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

感恩

由 founders008 在 2012-05-20 16:29 發表:

回覆: 如何把某個價位向右畫線延伸直至另一根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);

由 founders008 在 2012-05-20 16:30 發表:

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);

由 ah7eric 在 2012-05-27 20:28 發表:

請問如果我想要改成

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));

可是結果不是我要的

麻煩了！

由 cgjj 在 2012-05-29 09:02 發表:

引用:
最初由 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;

全部時間均為台灣時間, 現在時間為11:43

在這個頁面顯示本主題全部的 5 個文章