cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18095 |
|
回覆: [求救]如何在前一個與今日收盤價同價格的收盤價間劃一水平線
引用:
最初由 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;
|
|
向版主報告此篇 |  |
|
2015-09-08 21:33
