到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料,查看短訊,訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 請問後一次條件成立位置如何取得
總頁數 (2): « 1 [2]   上一主題   下一主題
作者
主題 發表新主題    回覆主題
peter109
資深會員

註冊日期: Dec 2004
來  自: Taipei
文章數量: 1893

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

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

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

向版主報告此篇 | 查IP位址
Old Post 2005-10-27 20:37
peter109 現在離線 點選這裡查看 peter109 的個人資料 點選這裡給 peter109 傳送一條短訊 查找更多關於 peter109 的文章 增加 peter109 至你的好友列表 編輯/刪除訊息 引用回覆
hwyhon
資深會員

註冊日期: Sep 2004
來  自: 台中
文章數量: 332

引用:
最初由 cgjj 發表
原碼:

a
:MA(CLOSE,10)COLORGREEN;
b:MA(CLOSE,30)COLORBLUE;
金叉:IF(CROSS(a,b),CLOSE,0);
前金叉:ref(金叉,ref(BARSLAST(金叉),1)+1LINETHICK0;
後金叉: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-do begin
          後金叉
[S]:=金叉[ZPos];
        
end;
        break;
      
end;
    
end;
  
end;
end;






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

最後由 hwyhon 在 2006-05-16 11:48 編輯 向版主報告此篇 | 查IP位址
Old Post 2006-05-16 11:25
hwyhon 現在離線 點選這裡查看 hwyhon 的個人資料 點選這裡給 hwyhon 傳送一條短訊 查找更多關於 hwyhon 的文章 增加 hwyhon 至你的好友列表 編輯/刪除訊息 引用回覆
hwyhon
資深會員

註冊日期: Sep 2004
來  自: 台中
文章數量: 332

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

謝謝

向版主報告此篇 | 查IP位址
Old Post 2006-05-16 14:24
hwyhon 現在離線 點選這裡查看 hwyhon 的個人資料 點選這裡給 hwyhon 傳送一條短訊 查找更多關於 hwyhon 的文章 增加 hwyhon 至你的好友列表 編輯/刪除訊息 引用回覆
kkkkkk
資深會員

註冊日期: Dec 2003
來  自:
文章數量: 291

且學習一下總版主的循環

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;

向版主報告此篇 | 查IP位址
Old Post 2006-05-17 08:32
kkkkkk 現在離線 點選這裡查看 kkkkkk 的個人資料 點選這裡給 kkkkkk 傳送一條短訊 查找更多關於 kkkkkk 的文章 增加 kkkkkk 至你的好友列表 編輯/刪除訊息 引用回覆
hwyhon
資深會員

註冊日期: Sep 2004
來  自: 台中
文章數量: 332

感謝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 13:30 編輯 向版主報告此篇 | 查IP位址
Old Post 2006-05-17 13:26
hwyhon 現在離線 點選這裡查看 hwyhon 的個人資料 點選這裡給 hwyhon 傳送一條短訊 查找更多關於 hwyhon 的文章 增加 hwyhon 至你的好友列表 編輯/刪除訊息 引用回覆
hwyhon
資深會員

註冊日期: Sep 2004
來  自: 台中
文章數量: 332

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;

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

向版主報告此篇 | 查IP位址
Old Post 2006-05-17 14:10
hwyhon 現在離線 點選這裡查看 hwyhon 的個人資料 點選這裡給 hwyhon 傳送一條短訊 查找更多關於 hwyhon 的文章 增加 hwyhon 至你的好友列表 編輯/刪除訊息 引用回覆
hwyhon
資深會員

註冊日期: Sep 2004
來  自: 台中
文章數量: 332

?????
!!!!!

向版主報告此篇 | 查IP位址
Old Post 2006-05-20 15:56
hwyhon 現在離線 點選這裡查看 hwyhon 的個人資料 點選這裡給 hwyhon 傳送一條短訊 查找更多關於 hwyhon 的文章 增加 hwyhon 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來  自:
文章數量: 18102

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

向版主報告此篇 | 查IP位址
Old Post 2006-05-20 17:19
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為13:26 發表新主題    回覆主題
總頁數 (2): « 1 [2]   上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章
HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們