奇狐社區論壇 - 排序後輸出到解盤

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

由 yes6689 在 2005-05-03 01:23 發表:

排序後輸出

貼錯區了，請版主將此篇移至"指標公式---問題交流"，造成不便在此謝過!

底下是小弟現有的公式，目前運作正常!
現在想將底下的4個"EXPLAINEX"按照由大到小排列，卻屢試不得其法，苦於無法將4個計算的結果丟入一個陣列內作SOFT的運算，所以上來請教版主及各位，方便的話請撥空幫我解惑一下......
先謝謝啦!

//公式名稱:KD50
//
//RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
//K:=SMA(RSV,3,1),LineThick0,ColorWhite;
//D:=SMA(K,3,1),LineThick0,ColorWhite;
//PeK5 : (((HHV(High,8)-LLV(Low,8))*(150-2*K))/100)+LLV(Low,8),LineThick0,ColorWhite;
//*********************
//上列為底下引用之公式

日K50:"KD50.PeK5#Day",LineThick0,ColorWhite;
週K50:"KD50.PeK5#Week",LineThick0,ColorYellow;
月K50:"KD50.PeK5#Month",LineThick0,ColorBlue;
收盤:Close,LineThick0;

EXPLAINEX(C>0,' 日K50：',日K50,2,0),ColorGreen;
EXPLAINEX(C>0,' 周K50：',週K50,2,0),ColorGreen;
EXPLAINEX(C>0,' 月K50：',月K50,2,0),ColorGreen;
EXPLAINEX(C>0,' 收盤：',收盤,2,0),ColorGreen;

由 cgjj 在 2005-05-03 15:51 發表:

原碼:


日K50:"KD50.PeK5#Day",LineThick0,ColorWhite;

週K50:"KD50.PeK5#Week",LineThick0,ColorYellow;

月K50:"KD50.PeK5#Month",LineThick0,ColorBlue;

收盤:CLOSE,LineThick0;



VARIABLE:SLN[4]=0, SLNPOS[4]=0, SS[4]='';

ss[1]:='收盤:'; ss[2]:='日K50:'; ss[3]:='週K50:'; ss[4]:='月K50:';

EXPN1:=C*0; EXPN2:=C*0; EXPN3:=C*0; EXPN4:=C*0;

EXPS1:=C*0; EXPS2:=C*0; EXPS3:=C*0; EXPS4:=C*0;

for n=LBOUND(收盤) to ubound(收盤) do begin

  SLN[1]:=收盤[n]; LBNO:=1;

  if n>=LBOUND(日K50) then begin 

    SLN[2]:=日K50[n]; LBNO:=LBNO+1;

  end;

  else SLN[2]:=0;

  if n>=LBOUND(週K50) then begin

    SLN[3]:=週K50[n]; LBNO:=LBNO+1;

  end; 

  else SLN[3]:=0;

  if n>=LBOUND(月K50) then begin

    SLN[4]:=月K50[n]; LBNO:=LBNO+1;

  end;

  else SLN[4]:=0;

  for i = 1 to 4 do begin

    SLNPOS[i]:=SLN[i];

  end;

  tmp:=SORT(SLN,1,1,LBNO);

  tmp:=SORTPOS(SLNPOS,1,1,LBNO);

  EXPN1[n]:=SLN[1]; EXPS1[n]:=SLNPOS[1];

  EXPN2[n]:=SLN[2]; EXPS2[n]:=SLNPOS[2];

  EXPN3[n]:=SLN[3]; EXPS3[n]:=SLNPOS[3];

  EXPN4[n]:=SLN[4]; EXPS4[n]:=SLNPOS[4];

end;



EXPLAINEX(EXPS1=1,ss[1],EXPN1,2,0),ColorGreen;

EXPLAINEX(EXPS1=2,ss[2],EXPN1,2,0),ColorGreen;

EXPLAINEX(EXPS1=3,ss[3],EXPN1,2,0),ColorGreen;

EXPLAINEX(EXPS1=4,ss[4],EXPN1,2,0),ColorGreen;



EXPLAINEX(EXPS2=1,ss[1],EXPN2,2,0),ColorGreen;

EXPLAINEX(EXPS2=2,ss[2],EXPN2,2,0),ColorGreen;

EXPLAINEX(EXPS2=3,ss[3],EXPN2,2,0),ColorGreen;

EXPLAINEX(EXPS2=4,ss[4],EXPN2,2,0),ColorGreen;



EXPLAINEX(EXPS3=1,ss[1],EXPN3,2,0),ColorGreen;

EXPLAINEX(EXPS3=2,ss[2],EXPN3,2,0),ColorGreen;

EXPLAINEX(EXPS3=3,ss[3],EXPN3,2,0),ColorGreen;

EXPLAINEX(EXPS3=4,ss[4],EXPN3,2,0),ColorGreen;



EXPLAINEX(EXPS4=1,ss[1],EXPN4,2,0),ColorGreen;

EXPLAINEX(EXPS4=2,ss[2],EXPN4,2,0),ColorGreen;

EXPLAINEX(EXPS4=3,ss[3],EXPN4,2,0),ColorGreen;

EXPLAINEX(EXPS4=4,ss[4],EXPN4,2,0),ColorGreen;

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

好問題
學習ing....

全部時間均為台灣時間, 現在時間為11:41

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