奇狐社區論壇
在這個頁面顯示本主題全部的 9 個文章

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


由 peter109 在 2005-05-03 23:22 發表:

價所處的位置

已知
變數X1, X2, X3, .....X8, X9, X10 的值分別為 1, 2, 3, ...8, 9, 10
今日收盤價為 5.3
請問
我該如何在解盤函數中
表示出 今日收盤價 介於哪兩個 變數 之間

煩請指導
謝謝您


由 king 在 2005-05-03 23:39 發表:

看不太懂,可否詳述

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


由 yes6689 在 2005-05-04 08:50 發表:

這真是一個更有挑戰的問題!
以小弟之前的問題。。。。。。。
排序後輸出"為例,就是不需要全數輸出,只要輸出其中3個解盤(在原輸出中以收盤價為中心並取上下各一),
peter109 兄:是這個意思嗎?

我也來動動腦................................


由 peter109 在 2005-05-04 12:26 發表:

引用:
最初由 yes6689 發表
這真是一個更有挑戰的問題!
以小弟之前的問題。。。。。。。
排序後輸出"為例,就是不需要全數輸出,只要輸出其中3個解盤(在原輸出中以收盤價為中心並取上下各一),
peter109 兄:是這個意思嗎?

我也來動動腦................................



是的


由 cgjj 在 2005-05-04 20:14 發表:

已完成, 以十條均線為例
設計時有考量X1到X10 數據有效的起始位置可能不相同的情況

若X1到X10的數據有效起始位置都一樣, 則以下的程式可簡化很多

原碼:

X01
:ma(C,4);
X02:ma(C,15);
X03:ma(C,2);
X04:ma(C,25);
X05:ma(C,9);
X06:ma(C,10);
X07:ma(C,6);
X08:ma(C,20);
X09:ma(C,17);
X10:ma(C,30);
CC:=C;
P1:=C*0;
P2:=C*0;
VARIABLE:XX[10]=0XN[10]=0XXPOS[10]=0;
for 
n=lBOUND(CCto ubound(CC) do begin
  xxnum
:=0;
  for 
i1 to 10 do begin
    XX
[i]:=0XN[i]:=0;
  
end;
  if 
n>=lBOUND(X01then begin
    xxnum
:=xxnum+1XX[xxnum]:=X01[n]; XN[xxnum]:=1;
  
end;
  if 
n>=lBOUND(X02then begin
    xxnum
:=xxnum+1XX[xxnum]:=X02[n]; XN[xxnum]:=2;
  
end;  
  if 
n>=lBOUND(X03then begin
    xxnum
:=xxnum+1XX[xxnum]:=X03[n]; XN[xxnum]:=3;
  
end;  
  if 
n>=lBOUND(X04then begin
    xxnum
:=xxnum+1XX[xxnum]:=X04[n]; XN[xxnum]:=4;
  
end;  
  if 
n>=lBOUND(X05then begin
    xxnum
:=xxnum+1XX[xxnum]:=X05[n]; XN[xxnum]:=5;
  
end;  
  if 
n>=lBOUND(X06then begin
    xxnum
:=xxnum+1XX[xxnum]:=X06[n]; XN[xxnum]:=6;
  
end;  
  if 
n>=lBOUND(X07then begin
    xxnum
:=xxnum+1XX[xxnum]:=X07[n]; XN[xxnum]:=7;
  
end;  
  if 
n>=lBOUND(X08then begin
    xxnum
:=xxnum+1XX[xxnum]:=X08[n]; XN[xxnum]:=8;
  
end;  
  if 
n>=lBOUND(X09then begin
    xxnum
:=xxnum+1XX[xxnum]:=X09[n]; XN[xxnum]:=9;
  
end;  
  if 
n>=lBOUND(X10then begin
    xxnum
:=xxnum+1XX[xxnum]:=X10[n]; XN[xxnum]:=10;
  
end;
  
P1[n]:=11P2[n]:=11;
  if 
xxnum=1 then begin
    XXPOS
[1]:=1;
  
end;
  else if 
xxnum>1 then begin
    
for 1 to xxnum do XXPOS[i]:=XX[i];
    
tmp:=SORT(XX,0,1,xxnum);
    
tmp:=SORTPOS(XXPOS,0,1,xxnum);
  
end;
  for 
1 to xxnum do begin
    
if XX[i]<cc[nthen P1[n]:=XN[XXPOS[i]];
    if 
XX[i]>cc[n] and P2[n]=11 then P2[n]:=XN[XXPOS[i]];
  
end;
end;
EXPLAINEX(P1=1,'X01:',X01,2,0);
EXPLAINEX(P1=2,'X02:',X02,2,0);
EXPLAINEX(P1=3,'X03:',X03,2,0);
EXPLAINEX(P1=4,'X04:',X04,2,0);
EXPLAINEX(P1=5,'X05:',X05,2,0);
EXPLAINEX(P1=6,'X06:',X06,2,0);
EXPLAINEX(P1=7,'X07:',X07,2,0);
EXPLAINEX(P1=8,'X08:',X08,2,0);
EXPLAINEX(P1=9,'X09:',X09,2,0);
EXPLAINEX(P1=10,'X10:',X10,2,0);
EXPLAIN(P1=11,'===========');
EXPLAINEX(1,'收盤:',CC,2,0);
EXPLAINEX(P2=1,'X01:',X01,2,0);
EXPLAINEX(P2=2,'X02:',X02,2,0);
EXPLAINEX(P2=3,'X03:',X03,2,0);
EXPLAINEX(P2=4,'X04:',X04,2,0);
EXPLAINEX(P2=5,'X05:',X05,2,0);
EXPLAINEX(P2=6,'X06:',X06,2,0);
EXPLAINEX(P2=7,'X07:',X07,2,0);
EXPLAINEX(P2=8,'X08:',X08,2,0);
EXPLAINEX(P2=9,'X09:',X09,2,0);
EXPLAINEX(P2=10,'X10:',X10,2,0);
EXPLAIN(P2=11,'===========');


由 peter109 在 2005-05-05 22:37 發表:

謝謝版大的多方向思考 正是我所想要的
將試著用在解盤上 希望能完成 呵呵...

循環語句 中的常數或變數 經常會搞不清 幾個小時下來 不得其解 導致白做工

學習 除了付出外 似乎沒有其他的捷徑
多看 多問 多練習
也多謝您的費心和耐心

除了感謝 還是感謝
感謝各位版大的付出
辛苦了


由 cgjj 在 2005-05-06 00:53 發表:

peter109 兄您太客氣囉
大家互相學習交流啦

其實我們也自網友學習到許多
謝謝大家!

順便一提, 希望對您有幫助觀念更清楚
奇狐的迴圈目前僅能用於重複性計算
不能用於重複性的輸出


由 peter109 在 2005-05-06 12:27 發表:

講話


由 yes6689 在 2005-05-09 22:19 發表:

peter109 有云:.....................
循環語句 中的常數或變數 經常會搞不清 幾個小時下來 不得其解 導致白做工 ,這也是小弟的問題,謝謝版大的示範演出!


全部時間均為台灣時間, 現在時間為16:57
在這個頁面顯示本主題全部的 9 個文章


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

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.