cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18192 |
回覆: [問題]請問解盤的均線自動排列如何寫?
引用: 最初由 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');
........剩餘的組合, 請自行完成........
|
|
向版主報告此篇 |  |
|