 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1893 |
價所處的位置
已知
變數X1, X2, X3, .....X8, X9, X10 的值分別為 1, 2, 3, ...8, 9, 10
今日收盤價為 5.3
請問
我該如何在解盤函數中
表示出 今日收盤價 介於哪兩個 變數 之間
煩請指導
謝謝您
|
|
向版主報告此篇 |  |
|
2005-05-03 23:22 |
|
|
|  |
 |
yes6689
中級會員
註冊日期: Dec 2003
來 自:
文章數量: 84 |
這真是一個更有挑戰的問題!
以小弟之前的問題。。。。。。。
"排序後輸出"為例,就是不需要全數輸出,只要輸出其中3個解盤(在原輸出中以收盤價為中心並取上下各一),
peter109 兄:是這個意思嗎?
我也來動動腦................................
|
|
向版主報告此篇 |  |
|
2005-05-04 08:50 |
|
|
|  |
 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1893 |
引用: 最初由 yes6689 發表
這真是一個更有挑戰的問題!
以小弟之前的問題。。。。。。。
"排序後輸出"為例,就是不需要全數輸出,只要輸出其中3個解盤(在原輸出中以收盤價為中心並取上下各一),
peter109 兄:是這個意思嗎?
我也來動動腦................................
是的
|
|
向版主報告此篇 |  |
|
2005-05-04 12:26 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18113 |
已完成, 以十條均線為例
設計時有考量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]=0, XN[10]=0, XXPOS[10]=0;
for n=lBOUND(CC) to ubound(CC) do begin
xxnum:=0;
for i= 1 to 10 do begin
XX[i]:=0; XN[i]:=0;
end;
if n>=lBOUND(X01) then begin
xxnum:=xxnum+1; XX[xxnum]:=X01[n]; XN[xxnum]:=1;
end;
if n>=lBOUND(X02) then begin
xxnum:=xxnum+1; XX[xxnum]:=X02[n]; XN[xxnum]:=2;
end;
if n>=lBOUND(X03) then begin
xxnum:=xxnum+1; XX[xxnum]:=X03[n]; XN[xxnum]:=3;
end;
if n>=lBOUND(X04) then begin
xxnum:=xxnum+1; XX[xxnum]:=X04[n]; XN[xxnum]:=4;
end;
if n>=lBOUND(X05) then begin
xxnum:=xxnum+1; XX[xxnum]:=X05[n]; XN[xxnum]:=5;
end;
if n>=lBOUND(X06) then begin
xxnum:=xxnum+1; XX[xxnum]:=X06[n]; XN[xxnum]:=6;
end;
if n>=lBOUND(X07) then begin
xxnum:=xxnum+1; XX[xxnum]:=X07[n]; XN[xxnum]:=7;
end;
if n>=lBOUND(X08) then begin
xxnum:=xxnum+1; XX[xxnum]:=X08[n]; XN[xxnum]:=8;
end;
if n>=lBOUND(X09) then begin
xxnum:=xxnum+1; XX[xxnum]:=X09[n]; XN[xxnum]:=9;
end;
if n>=lBOUND(X10) then begin
xxnum:=xxnum+1; XX[xxnum]:=X10[n]; XN[xxnum]:=10;
end;
P1[n]:=11; P2[n]:=11;
if xxnum=1 then begin
XXPOS[1]:=1;
end;
else if xxnum>1 then begin
for i = 1 to xxnum do XXPOS[i]:=XX[i];
tmp:=SORT(XX,0,1,xxnum);
tmp:=SORTPOS(XXPOS,0,1,xxnum);
end;
for i = 1 to xxnum do begin
if XX[i]<cc[n] then 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,'===========');
|
|
向版主報告此篇 |  |
|
2005-05-04 20:14 |
|
|
|  |
 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1893 |
謝謝版大的多方向思考 正是我所想要的
將試著用在解盤上 希望能完成 呵呵...
循環語句 中的常數或變數 經常會搞不清 幾個小時下來 不得其解 導致白做工
學習 除了付出外 似乎沒有其他的捷徑
多看 多問 多練習
也多謝您的費心和耐心
除了感謝 還是感謝
感謝各位版大的付出
辛苦了
|
|
向版主報告此篇 |  |
|
2005-05-05 22:37 |
|
|
|  |
 |
yes6689
中級會員
註冊日期: Dec 2003
來 自:
文章數量: 84 |
peter109 有云:.....................
循環語句 中的常數或變數 經常會搞不清 幾個小時下來 不得其解 導致白做工 ,這也是小弟的問題,謝謝版大的示範演出!
|
|
向版主報告此篇 |  |
|
2005-05-09 22:19 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|