奇狐社區論壇 - 黑K往前找紅K

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 黑K往前找紅K (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19292)

由 Markchu7 在 2015-06-05 11:09 發表:

黑K往前找紅K

基準黑K:=REF(C<O,1);
基準黑K低:=REF(L,BARSLAST(基準黑K));
請協助:
基準黑K往前找'低點低於基準黑K低'之'前一,前二,前三'根紅K!
謝謝!

由 cgjj 在 2015-06-05 12:12 發表:

回覆: 黑K往前找紅K

引用:
最初由 Markchu7 發表
基準黑K:=REF(C<O,1);
基準黑K低:=REF(L,BARSLAST(基準黑K));
請協助:
基準黑K往前找'低點低於基準黑K低'之'前一,前二,前三'根紅K!
謝謝!

原碼:


基準黑K:=REF(C<O,1);

LL:=L; 紅K:=C>O;

前1紅Sp:C*0-1; 

前2紅Sp:前1紅Sp;

前3紅Sp:前1紅Sp;

for i=lbound(基準黑K) to datacount do begin

  if 基準黑K[i] then begin

    SNo:=0; KNo:=i-1;

    for j=1 to 3 do begin

      for k= KNo downto 1 do begin

        if LL[k]<LL[i] and 紅K[k] then begin

          SNo:=SNo+1; KNo:=k-1;

          if SNo=1 then 前1紅Sp[i]:=i-k;

          if SNo=2 then 前2紅Sp[i]:=i-k;

          if SNo=3 then 前3紅Sp[i]:=i-k;

          break;

        end;

      end;

      if j=0 then break;

    end;

  end;

end

VERTLINE(基準黑K) linedot;

由 Markchu7 在 2015-06-05 12:34 發表:

感謝總版主迅速回覆!
但是有了前三紅K的距離後,前三紅K成立的公式我還是不會寫!再請指導!謝謝!

由 cgjj 在 2015-06-05 13:09 發表:

引用:
最初由 Markchu7 發表
感謝總版主迅速回覆!
但是有了前三紅K的距離後,前三紅K成立的公式我還是不會寫!再請指導!謝謝!

距離值若是 -1, 代表不存在符合的紅K

用 ref 搭配距離去取, 不就行了
您是要算什麼成立?

全部時間均為台灣時間, 現在時間為22:57

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