奇狐社區論壇 - [求救]多空線如何過濾

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- [求救]多空線如何過濾 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=12013)

由 yeswin 在 2009-08-21 21:52 發表:

[求救]多空線如何過濾

版大您好
我下列的程式條件可以顯示哭臉和笑臉,可是此種方式所顯示的哭臉和笑臉太多,要如何過濾才能在 (多空線)與(多空線a) 同時翻紅時在第一跟K棒的下方顯示笑臉,一直保持到 ( 多空線)與(多空線a) 同時翻綠時再顯示哭臉于K棒上方,
煩請版大能撥空指導一下好嗎? 無限感激<謝謝>

多空線a:ma(C,20)COLORMAGENTA;
多空線:ma(C,30)COLORMAGENTA;
買入:=(多空線<REF(C,0)) AND (多空線a<REF(C,0));
賣出:=(多空線>REF(C,0)) AND (多空線a>REF(C,0));
DRAWICON(買入 and ref(買入,1)=0,L,1),PXDN20;
DRAWICON(賣出 and ref(賣出,1)=0,H,2),PXUP40;

__________________
成功如果不知道原因無法複製失敗如果不知道原因只會再來一次

把黑暗帶走最好的方法就是把光帶進來

由 yeswin 在 2009-08-28 18:40 發表:

版大您好

我上面的描述可能意義不同 , 我要的是以下需求:
我下列的程式條件可以顯示哭臉和笑臉,可是此種方式所顯示的哭臉和笑臉太多,
1.要如何過濾才能在 (多空線)與(多空線a) 向上翻紅時在第一跟K棒的下方顯示笑臉,
2.如顯示笑臉後 (多空線)與(多空線a) 在次出現向上翻紅時就不要在出現笑臉, 一直保持到 ( 多空線)與(多空線a) 向下翻綠時再顯示哭臉于K棒上方.

煩請版大能撥空指導一下好嗎? 無限感激<謝謝>

多空線a:ma(C,20)COLORMAGENTA;
多空線:ma(C,30)COLORMAGENTA;
買入:=(多空線<REF(C,0)) AND (多空線a<REF(C,0));
賣出:=(多空線>REF(C,0)) AND (多空線a>REF(C,0));
DRAWICON(買入 and ref(買入,1)=0,L,1),PXDN20;
DRAWICON(賣出 and ref(賣出,1)=0,H,2),PXUP40;

__________________
成功如果不知道原因無法複製失敗如果不知道原因只會再來一次

把黑暗帶走最好的方法就是把光帶進來

由 KV1566 在 2009-08-28 19:14 發表:

引用:
最初由 yeswin 發表
版大您好

我上面的描述可能意義不同 , 我要的是以下需求:
我下列的程式條件可以顯示哭臉和笑臉,可是此種方式所顯示的哭臉和笑臉太多,
1.要如何過濾才能在 (多空線)與(多空線a) 向上翻紅時在第一跟K棒的下方顯示笑臉,
2.如顯示笑臉後 (多空線)與(多空線a) 在次出現向上翻紅時就不要在出現笑臉, 一直保持到 ( 多空線)與(多空線a) 向下翻綠時再顯示哭臉于K棒上方.

煩請版大能撥空指導一下好嗎? 無限感激<謝謝>

多空線a:ma(C,20)COLORMAGENTA;
多空線:ma(C,30)COLORMAGENTA;
買入:=(多空線<REF(C,0)) AND (多空線a<REF(C,0));
賣出:=(多空線>REF(C,0)) AND (多空線a>REF(C,0));
DRAWICON(買入 and ref(買入,1)=0,L,1),PXDN20;
DRAWICON(賣出 and ref(賣出,1)=0,H,2),PXUP40;

有沒有更好的方法，我不知道！底下程式送你，程式邏輯請自己想吧！

原碼:多空線a:ma(C,20)COLORMAGENTA;
多空線:ma(C,30)COLORMAGENTA;
買入:=(多空線<REF(C,0)) AND (多空線a<REF(C,0));
賣出:=(多空線>REF(C,0)) AND (多空線a>REF(C,0));
for i=lbound(多空線) to ubound(多空線) do begin
   if 買入[i] then begin
      for j=i+1 to ubound(多空線) do begin
         if 賣出[j] then begin i:=j-1; break; end;
         if 買入[j] then 買入[j]:=0;
      end;
   end else if 賣出[i] then begin
      for j=i+1 to ubound(多空線) do begin
         if 買入[j] then begin i:=j-1; break; end;
         if 賣出[j] then 賣出[j]:=0;
      end;
   end;
end;
DRAWICON(買入,L,1),PXDN20;
DRAWICON(賣出,H,2),PXUP40;

由 yeswin 在 2009-08-31 01:01 發表:

KV1566 你好

感謝您提供的"多空線過濾程式 "!

我原本的程式:
多空線a:ma(C,20)COLORMAGENTA;
多空線:ma(C,30)COLORMAGENTA;
買入:=(多空線<REF(C,0)) AND (多空線a<REF(C,0));
賣出:=(多空線>REF(C,0)) AND (多空線a>REF(C,0));
for i=lbound(多空線) to ubound(多空線) do begin
if 買入[i] then begin
for j=i+1 to ubound(多空線) do begin
if 賣出[j] then begin i:=j-1; break; end;
if 買入[j] then 買入[j]:=0;
end;
end else if 賣出[i] then begin
for j=i+1 to ubound(多空線) do begin
if 買入[j] then begin i:=j-1; break; end;
if 賣出[j] then 賣出[j]:=0;
end;
end;
end;
DRAWICON(買入,L,1),PXDN20;
DRAWICON(賣出,H,2),PXUP40;
已修改完成, 謝謝您了~! 真是個大好人~!

__________________
成功如果不知道原因無法複製失敗如果不知道原因只會再來一次

把黑暗帶走最好的方法就是把光帶進來

全部時間均為台灣時間, 現在時間為15:34

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