奇狐社區論壇 - [求救]如何在前一個與今日收盤價同價格的收盤價間劃一水平線

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [求救]如何在前一個與今日收盤價同價格的收盤價間劃一水平線 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19448)

由 ericpai 在 2015-09-08 21:33 發表:

[求救]如何在前一個與今日收盤價同價格的收盤價間劃一水平線

您好，想請教公式撰寫相關的問題
我想以每一根K線收盤價為準(假設將它定義成K0)，若往前50根K線內有收盤價與K0相同者，就在這根K線與K0間劃一水平線，請問要如何寫呢?
請教高手萬分感謝

由 cgjj 在 2015-09-09 09:12 發表:

回覆: [求救]如何在前一個與今日收盤價同價格的收盤價間劃一水平線

引用:
最初由 ericpai 發表
您好，想請教公式撰寫相關的問題
我想以每一根K線收盤價為準(假設將它定義成K0)，若往前50根K線內有收盤價與K0相同者，就在這根K線與K0間劃一水平線，請問要如何寫呢?
請教高手萬分感謝

原碼:KN:=1000;
//設定僅算近期N根K棒(若為0則算全部)

CC:=C; PL:=C*0; StNo:=datacount-KN+1;
if StNo<1 or StNo>datacount then StNo:=1;
for i=StNo to datacount do begin
  for j=i-1 downto i-50 do begin
    if j<1 then break;
    if CC[i]=CC[j] then begin
      PL[i]:=i-j; break;
    end;
  end;
end;
DRAWSL(PL>0,CC,0,-PL,1) pxdn2 linedot;

由 ericpai 在 2015-09-09 11:13 發表:

謝謝版主我收盤試試看

由 ericpai 在 2015-09-09 23:11 發表:

非常感謝版主可以用謝謝

全部時間均為台灣時間, 現在時間為01:31

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