奇狐社區論壇 - [問題]請問解盤的均線自動排列如何寫?

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

由 fu6g4j62u6 在 2013-05-04 19:29 發表:

[問題]請問解盤的均線自動排列如何寫?

我只會寫簡單的解盤
目前我用3條均線排列 10 20 60收盤均線

如果我要讓他在解盤自動排列與收盤價的位置
例如 c>ma10 AND MA10>MA20 AND MA20>MA60的時候
解盤就顯示 C > 10 > 20 >60

版主可以幫忙一下嗎感謝

由 cgjj 在 2013-05-06 09:31 發表:

回覆: [問題]請問解盤的均線自動排列如何寫?

引用:
最初由 fu6g4j62u6 發表
我只會寫簡單的解盤
目前我用3條均線排列 10 20 60收盤均線

如果我要讓他在解盤自動排列與收盤價的位置
例如 c>ma10 AND MA10>MA20 AND MA20>MA60的時候
解盤就顯示 C > 10 > 20 >60

版主可以幫忙一下嗎感謝

原碼:


CC:C;

MA10:MA(C,10);

MA20:MA(C,20);

MA60:MA(C,60);

OutSS:=C*0;

VARIABLE:SS[4]:=0;

if lbound(MA60)=0 then exit;

for i=lbound(MA60) to datacount do begin

  SS[1]:=CC[i];

  SS[2]:=MA10[i];

  SS[3]:=MA20[i];

  SS[4]:=MA60[i];

  x:=SORTPOS(SS,1,1,4);

  OutSS[i]:=SS[1]*1000+SS[2]*100+SS[3]*10+SS[4];

end;

EXPLAIN(OutSS=1234,'C>10>20>60');

EXPLAIN(OutSS=1243,'C>10>60>20');

EXPLAIN(OutSS=1324,'C>20>10>60');

EXPLAIN(OutSS=1342,'C>20>60>10');

EXPLAIN(OutSS=1423,'C>60>10>20');

EXPLAIN(OutSS=1432,'C>60>20>10');

EXPLAIN(OutSS=2134,'10>C>20>60');

EXPLAIN(OutSS=2143,'10>C>60>20');

EXPLAIN(OutSS=2314,'10>20>C>60');

........剩餘的組合, 請自行完成........

全部時間均為台灣時間, 現在時間為13:08

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