奇狐社區論壇 - 請問後一次條件成立位置如何取得

奇狐社區論壇 (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=4116)

由 hwyhon 在 2005-10-23 03:33 發表:

請問後一次條件成立位置如何取得

a:MA(CLOSE,10)COLORGREEN;
b:MA(CLOSE,30)COLORBLUE;
金叉:IF(CROSS(a,b),CLOSE,0);
前一回金叉指數:if(金叉,ref(ref(金叉,BARSLAST(金叉)),1),0);

{後一回}
請問後一次條件成立位置如何表達來取得

由 king 在 2005-10-24 11:53 發表:

REF(C,BARSLAST(CROSS(A,B)))

__________________
E-Trader World 交易世界、
Plurk、
Facebook、
Twitter
(EQ:情緒智商) & (HD:習慣領域)才是主導成功交易的重要關鍵。
「存於一個人自身的真相非常簡單，然而人們卻總是追求深奧的真理。」，金融交易亦是如此。

由 hwyhon 在 2005-10-24 14:44 發表:

引用:
最初由 king 發表
REF(C,BARSLAST(CROSS(A,B)))

抱歉是我陳述不清
BARSLAST是向左求取A 到C的週期數
這我沒問題

我是要在A的位置下要向右方求取A 到B的週期數
最主要的是求取A 到 B週的週期數
若處在A的位置用REFX(B,BARSLAST(A)))球到的卻不是正確的值
怎麼做都行不通
該用什麼語句
如何求?????
謝謝

由 king 在 2005-10-24 15:34 發表:

var1:=cross(a,b);
PEAKBARS(var1,1,2)-PEAKBARS(var1,1,1)+1;

由 hwyhon 在 2005-10-24 16:13 發表:

引用:
最初由 king 發表
var1:=cross(a,b);
PEAKBARS(var1,1,2)-PEAKBARS(var1,1,1)+1;

感謝king 大
還是不行
var1:=cross(a,b);
e:PEAKBARS(var1,1,2)-PEAKBARS(var1,1,1)+1;
還是向左數的天數不是向右數的天數
請試試

a:MA(CLOSE,10)COLORGREEN;
b:MA(CLOSE,30)COLORBLUE;
金叉:IF(CROSS(a,b),CLOSE,0);
前一回金叉指數:if(金叉,ref(ref(金叉,BARSLAST(金叉)),1),0);
var1:=cross(a,b);
e:PEAKBARS(var1,1,2)-PEAKBARS(var1,1,1)+1;
後一回金叉指數:if(金叉,refx(金叉,e),0);

由 king 在 2005-10-24 17:06 發表:

是不是要問未來兩線交叉的價格

由 hwyhon 在 2005-10-25 00:10 發表:

[

引用:
最初由 king 發表
是不是要問未來兩線交叉的價格

以上圖是問未來兩線交叉的價格沒錯
但這只是個例子
如下圖於D處我若能求得到距離A是51天
那寫成REFX(要的條件,51)理論上不就成了
因我要的未來的條件值不只是金叉值
如下圖不知 king 大能否理解我的思路
麻煩!!
謝謝!

由 cgjj 在 2005-10-25 01:40 發表:

原碼:


a:MA(CLOSE,10)COLORGREEN;

b:MA(CLOSE,30)COLORBLUE;

金叉:IF(CROSS(a,b),CLOSE,0);

前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1) LINETHICK0;

後金叉:c*0;

for NPos=lbound(金叉) to ubound(金叉) do begin 

  if 金叉[NPos]>1 then begin

    for ZPos=NPos+1 to ubound(金叉) do begin 

      if 金叉[ZPos]>0 then begin

        後金叉[NPos]:=金叉[ZPos];

        break;

      end;

    end;

  end;

end;

這樣的公式有往回修正訊號的效果, 使用要很小心喔
(訊號會很遲鈍才看到)

由 hwyhon 在 2005-10-25 02:47 發表:

這樣我就會帶入條件了

感謝總版主

由 hwyhon 在 2005-10-25 15:50 發表:

引用:

最初由 cgjj 發表

原碼:


a:MA(CLOSE,10)COLORGREEN;

b:MA(CLOSE,30)COLORBLUE;

金叉:IF(CROSS(a,b),CLOSE,0);

前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1) LINETHICK0;

後金叉:c*0;

for NPos=lbound(金叉) to ubound(金叉) do begin 

  if 金叉[NPos]>1 then begin

    for ZPos=NPos+1 to ubound(金叉) do begin 

      if 金叉[ZPos]>0 then begin

        後金叉[NPos]:=金叉[ZPos];

        break;

      end;

    end;

  end;

end;

這樣的公式有往回修正訊號的效果, 使用要很小心喔
(訊號會很遲鈍才看到)

再請問
如上例
十字線要移到有金叉值處才能顯示後金叉值
若要在任意一處都能顯示後金叉值該如何改

再次感謝

由 cgjj 在 2005-10-25 16:01 發表:

引用:
最初由 hwyhon 發表
再請問
如上例
要在D至A週期內任意一處都能顯示後金叉值該如何改
再次感謝

原碼:


a:MA(CLOSE,10)COLORGREEN;

b:MA(CLOSE,30)COLORBLUE;

金叉:IF(CROSS(a,b),CLOSE,0);

前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1) LINETHICK0;

後金叉:c*0;

for NPos=lbound(金叉) to ubound(金叉) do begin 

  if 金叉[NPos]>1 then begin

    for ZPos=NPos+1 to ubound(金叉) do begin 

      if 金叉[ZPos]>0 then begin

        for S=NPos to ZPos-1 do begin

          後金叉[S]:=金叉[ZPos];

        end;

        break;

      end;

    end;

  end;

end;

由 hwyhon 在 2005-10-25 16:08 發表:

引用:

最初由 cgjj 發表

原碼:


a:MA(CLOSE,10)COLORGREEN;

b:MA(CLOSE,30)COLORBLUE;

金叉:IF(CROSS(a,b),CLOSE,0);

前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1) LINETHICK0;

後金叉:c*0;

for NPos=lbound(金叉) to ubound(金叉) do begin 

  if 金叉[NPos]>1 then begin

    for ZPos=NPos+1 to ubound(金叉) do begin 

      if 金叉[ZPos]>0 then begin

        for S=NPos to ZPos-1 do begin

          後金叉[S]:=金叉[ZPos];

        end;

        break;

      end;

    end;

  end;

end;

一切OK
謝謝!

由 peter109 在 2005-10-26 22:22 發表:

在福建飛狐論壇10/19我曾經提出過類似問題
本以為已經有了答案且在您這樓打算回覆
經過再次比對發現有些問題
直到今天才再次找到答案
提供範例參考

公式係經由該論壇公式團成員協助完成
謝謝他們(不用謝我我沒那本事)

//Special note 光標必須放置在R3<ref(R3,1)的區域

LC:=REF(CLOSE,1);
R3:SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100,coloryellow,linethick1;
y:=R3<REF(R3,1) and REF(R3,1)>REF(R3,2);//一個波峰可以當作是您金叉

s:=sum(y,0),linethick;
p:=sysparam(1);//隨光標位置而(增加)顯示
ss:=s[p]-s+1,linethick;
a:=y and ss<4;//顯示數量<4

w1:=barslast(a);
Hx1:ref(h,w1-1),linethick;//價一
w2:=sumbars(a,2);
Hx2:ref(h,w2),linethick;//價二
w3:=sumbars(a,3);
Hx3:ref(h,w3),linethick; //價三

__________________
至誠能勝天下至偽
至拙能勝天下至巧

由 hwyhon 在 2005-10-27 01:22 發表:

感謝各位熱心的幫忙

由 cgjj 在 2005-10-27 02:36 發表:

sumbars 也可用於解決此問題
對程式較不熟悉者可用 sumbars 來完成(簡而易用)
以此例來說
用 sumbars 的效能上會比用 for 來的差
若要寫高效率的指標建議還是用 for 來完成
可避免許多不必要的運算

由 peter109 在 2005-10-27 20:37 發表:

互相互相啦
希望能加減有所幫助

條件句咱沒法
哪位改善吧
感恩唷

__________________
至誠能勝天下至偽
至拙能勝天下至巧

由 hwyhon 在 2006-05-16 11:25 發表:

引用:

最初由 cgjj 發表

原碼:


a:MA(CLOSE,10)COLORGREEN;

b:MA(CLOSE,30)COLORBLUE;

金叉:IF(CROSS(a,b),CLOSE,0);

前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1) LINETHICK0;

後金叉:c*0;

for NPos=lbound(金叉) to ubound(金叉) do begin 

  if 金叉[NPos]>1 then begin

    for ZPos=NPos+1 to ubound(金叉) do begin 

      if 金叉[ZPos]>0 then begin

        for S=NPos to ZPos-1 do begin

          後金叉[S]:=金叉[ZPos];

        end;

        break;

      end;

    end;

  end;

end;

如此例
我若要再多加上顯示出
此金叉到後金叉的週期數該如何寫
也就是
當此金叉位置處,十字線往後金叉位置右移一週期
顯示的數字(天數)相對减少一
後金叉成立的前一天該是顯示為 1
移到後金叉成立的位置處該是顯示為 0
程式語言不會
請版大幫忙
謝謝

由 hwyhon 在 2006-05-16 14:24 發表:

再次煩請
cgjj 總版主幫忙一下

謝謝

由 kkkkkk 在 2006-05-17 08:32 發表:

且學習一下總版主的循環

a:MA(CLOSE,10)COLORwhite;
b:MA(CLOSE,30)COLORyellow;
金叉:IF(CROSS(a,b),barpos,0),linethick0;
前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1) LINETHICK0;
後金叉:c*0,linethick0;
for NPos=lbound(金叉) to ubound(金叉) do begin
if 金叉[NPos]>1 then begin
for ZPos=NPos+1 to ubound(金叉) do begin
if 金叉[ZPos]>0 then begin
for S=NPos to ZPos-1 do begin
後金叉[S]:=金叉[ZPos];
end;
break;
end;
end;
end;
end;

vertline(cross(a,b));
ba:=barslast(cross(a,b)),linethick0,colorwhite;
n:=if(後金叉=0,0,ref((後金叉-金叉)*(ba=0),barslast((後金叉-金叉)*(ba=0))));
x:if(後金叉=0,0,if(ba=0,0,n-ba)),linethick0,colorwhite;

由 hwyhon 在 2006-05-17 13:26 發表:

感謝K 大的解答

vertline(cross(a,b));
ba:=barslast(cross(a,b)),linethick0,colorwhite;
n:=if(後金叉=0,0,ref((後金叉-金叉)*(ba=0),barslast((後金叉-金叉)*(ba=0))));
x:if(後金叉=0,0,if(ba=0,0,n-ba)),linethick0,colorwhite;

奇狐內建函數就差這函數
簡單的幾句
解答了用奇狐來的多年困惑
您真是強
不輸專業人員
謝謝

由 hwyhon 在 2006-05-17 14:10 發表:

a:MA(CLOSE,10)COLORGREEN;
b:MA(CLOSE,30)COLORBLUE;
金叉:IF(CROSS(a,b),CLOSE,0);
前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1) LINETHICK0;
後金叉:c*0;
for NPos=lbound(金叉) to ubound(金叉) do begin
if 金叉[NPos]>1 then begin
for ZPos=NPos+1 to ubound(金叉) do begin
if 金叉[ZPos]>0 then begin
for S=NPos to ZPos-1 do begin
後金叉[S]:=金叉[ZPos];
end;
break;
end;
end;
end;
end;

請問奇狐
把未來成立的數據拿到當下位置用
除了這方法外
有沒其他運算較快的寫法
感謝

由 hwyhon 在 2006-05-20 15:56 發表:

?????
!!!!!

由 cgjj 在 2006-05-20 17:19 發表:

方法是人想出來的, 我相信有!
就是要多動腦啦

全部時間均為台灣時間, 現在時間為17:41

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