奇狐社區論壇 總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 18 個文章

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

由 ivancclai 在 2020-03-25 02:45 發表:

在台當月及台當月+上畫線

請教版主大大及各位前輩 如何

在台當月及台當月+上畫線
時區在 1分K 及 5分K
畫線當日(台當月)的開及高低價位 昨天(台當月) 日K 的開高低收
前天(當月的開高低收.
畫線當日(台當月+)的開及高低價位 昨天(台當月+) 日K 的開高低收
及前天(台當月+)的開高低收
此兩線圖都在台當月上顯示及台當月+上顯示

由 cgjj 在 2020-03-25 10:40 發表:

回覆: 在台當月及台當月+上畫線

引用:
最初由 ivancclai 發表
請教版主大大及各位前輩 如何

在台當月及台當月+上畫線
時區在 1分K 及 5分K
畫線當日(台當月)的開及高低價位 昨天(台當月) 日K 的開高低收
前天(當月的開高低收.
畫線當日(台當月+)的開及高低價位 昨天(台當月+) 日K 的開高低收
及前天(台當月+)的開高低收
此兩線圖都在台當月上顯示及台當月+上顯示


可用於+或非+商品

DECK:=Tradedate<>ref(Tradedate,1);
D1SP:=barslast(DECK);
今O:ref(O,D1SP);
今H:HHV(H,D1SP+1);
今L:LLV(L,D1SP+1);
D2SP:=sumbars(DECK,2)-1;
昨O:ref(O,D2SP);
昨H:ref(今H,D1SP+1);
昨L:ref(今L,D1SP+1);
昨C:ref(C,D1SP+1);
D3SP:=sumbars(DECK,3)-1;
前O:ref(O,D3SP);
前H:ref(今H,D2SP+1);
前L:ref(今L,D2SP+1);
前C:ref(C,D2SP+1);

由 ivancclai 在 2020-03-26 18:01 發表:

謝謝版主大大

謝謝版主大大

我測試驗證後, 若還有問題再請教版主大大

謝謝

由 ivancclai 在 2020-03-26 18:32 發表:

版主大大 好厲害 測試過沒問題

版主大大, 我又另一個問題: 我將程式修改成我要顯示方式, 在技術圖上右邊使用介面為解釋盤顯示 關鍵名稱, 價位及顏色

我的問題是右邊顯示 可否以價位由高志低排列顯示, 方便看圖, 我不知道要如何處理, 設置陣列, 排序, 再顯示, 是否可以請你幫我寫範例參考, 謝謝版主大大

// ============== 開高低收 ================================
DECK:Tradedate<>ref(Tradedate,1);
D1SP:barslast(DECK);

NP : DYNAINFO( 7) COLORFFFF00 LINEDOT;
DRAWNUMBER(ISLASTBAR,NP,NP,0) SHIFT1 colorFFFF00 PXUP20;
DRAWTEXT(ISLASTBAR,NP,'最新價') SHIFT5 colorFFFF00 PXUP20;

今O:ref(O,D1SP) color00FFFF LINEDOT;
今H:HHV(H,D1SP+1) COLOR0000FF LINEDOT;
今L:LLV(L,D1SP+1) COLOR00FF00 LINEDOT;
今半: (今H+今L)/2 COLORFFFFFF LINEDOT;

// EXPLAIN(1>0,'============'),colorFFFFFF;

DRAWNUMBER(ISLASTBAR,今O,今O,0) SHIFT1,color00FFFF;
DRAWTEXT(ISLASTBAR,今O,'今開') SHIFT5,color00FFFF;
// EXPLAINEX(1>0,'今開= ',今O,0,0) COLOR00FFFF;

DRAWNUMBER(ISLASTBAR,今H,今H,0) SHIFT1,color0000FF;
DRAWTEXT(ISLASTBAR,今H,'今高') SHIFT5,color0000FF;
// EXPLAINEX(1>0,'今高= ',今H,0,0) COLOR0000FF;

DRAWNUMBER(ISLASTBAR,今L,今L,0) SHIFT1,color00FF00;
DRAWTEXT(ISLASTBAR,今L,'今低') SHIFT5,color00FF00;
// EXPLAINEX(1>0,'今低= ',今L,0,0) COLOR00FF00;

DRAWNUMBER(ISLASTBAR,今半,今半,0) SHIFT1,colorFFFFFF;
DRAWTEXT(ISLASTBAR,今半,'今半') SHIFT5,colorFFFFFF;
// EXPLAINEX(1>0,'今半= ',今半,0,0) COLORFFFFFF;

D2SP:=sumbars(DECK,2)-1;
昨O:ref(O,D2SP) COLOR00FFFF ;
昨H:ref(今H,D1SP+1) COLOR0000FF ;
昨L:ref(今L,D1SP+1) COLOR00FF00 ;
昨C:ref(C,D1SP+1) COLORFFFF00 ;
昨半: (昨H+昨L)/2 COLORFFFFFF;

DRAWNUMBER(ISLASTBAR,昨O,昨O,0) SHIFT1,color00FFFF;
DRAWTEXT(ISLASTBAR,昨O,'昨開') SHIFT5,color00FFFF;
// EXPLAINEX(1>0,'昨開= ',昨O,0,0) COLOR00FFFF;

DRAWNUMBER(ISLASTBAR,昨C,昨C,0) SHIFT1,colorFFFF00;
DRAWTEXT(ISLASTBAR,昨C,'昨收') SHIFT5,colorFFFF00;
// EXPLAINEX(1>0,'昨收= ',昨O,0,0) COLORFFFF00;

DRAWNUMBER(ISLASTBAR,昨H,昨H,0) SHIFT1,color0000FF;
DRAWTEXT(ISLASTBAR,昨H,'昨高') SHIFT5,color0000FF;
// EXPLAINEX(1>0,'昨高= ',昨H,0,0) COLOR0000FF;

DRAWNUMBER(ISLASTBAR,昨L,昨L,0) SHIFT1,color00FF00;
DRAWTEXT(ISLASTBAR,昨L,'昨低') SHIFT5,color00FF00;
// EXPLAINEX(1>0,'昨低= ',昨L,0,0) COLOR00FF00;

DRAWNUMBER(ISLASTBAR,昨半,昨半,0) SHIFT1,colorFFFFFF;
DRAWTEXT(ISLASTBAR,昨半,'昨半') SHIFT5,colorFFFFFF;
// EXPLAINEX(1>0,'昨半= ',昨半,0,0) COLORFFFFFF;

D3SP:=sumbars(DECK,3)-1;

前O:ref(O,D3SP) COLOR00FFFF;
前H:ref(今H,D2SP+1) COLOR0000FF;
前L:ref(今L,D2SP+1) COLOR00FF00;
前C:ref(C,D2SP+1) COLORFFFF00;
前半: (前H+前L)/2 COLORFFFFFF;

DRAWNUMBER(ISLASTBAR,前O,前O,0) SHIFT1,color00FFFF;
DRAWTEXT(ISLASTBAR,前O,'前開') SHIFT5,color00FFFF;
// EXPLAINEX(1>0,'前開= ',前O,0,0) COLOR00FFFF;

DRAWNUMBER(ISLASTBAR,前C,前C,0) SHIFT1,colorFFFF00;
DRAWTEXT(ISLASTBAR,前C,'前收') SHIFT5,colorFFFF00;
// EXPLAINEX(1>0,'前收= ',前O,0,0) COLORFFFF00;

DRAWNUMBER(ISLASTBAR,前H,前H,0) SHIFT1,color0000FF;
DRAWTEXT(ISLASTBAR,前H,'前高') SHIFT5,color0000FF;
// EXPLAINEX(1>0,'前高= ',前H,0,0) COLOR0000FF;

DRAWNUMBER(ISLASTBAR,前L,前L,0) SHIFT1,color00FF00;
DRAWTEXT(ISLASTBAR,前L,'前低') SHIFT5,color00FF00;
// EXPLAINEX(1>0,'前低= ',前L,0,0) COLOR00FF00;

DRAWNUMBER(ISLASTBAR,前半,前半,0) SHIFT1,colorFFFFFF;
DRAWTEXT(ISLASTBAR,前半,'前半') SHIFT5,colorFFFFFF;
// EXPLAINEX(1>0,'前半= ',前半,0,0) COLORFFFFFF;

EXPLAINEX(1>0,'=====',DATE,0,0),colorFFFFFF;
EXPLAINEX(1>0,'今 高 = ',今H,0,0) COLOR0000FF;
EXPLAINEX(1>0,'今 半 = ',今半,0,0) COLORFFFFFF;
EXPLAINEX(1>0,'今 低 = ',今L,0,0) COLOR00FF00;
EXPLAINEX(1>0,'今 開 = ',今O,0,0) COLOR00FFFF;
EXPLAINEX(1>0,'新價線= ',NP ,0,0) COLORFFFF00;
EXPLAIN(1>0,'============'),colorFFFFFF;
EXPLAINEX(1>0,'昨 高 = ',昨H,0,0) COLOR0000FF;
EXPLAINEX(1>0,'昨 半 = ',昨半,0,0) COLORFFFFFF;
EXPLAINEX(1>0,'昨 低 = ',昨L,0,0) COLOR00FF00;
EXPLAINEX(1>0,'昨 開 = ',昨O,0,0) COLOR00FFFF;
EXPLAINEX(1>0,'昨 收 = ',昨C,0,0) COLORFFFF00;
EXPLAIN(1>0,'============'),colorFFFFFF;
EXPLAINEX(1>0,'前 高 = ',前H,0,0) COLOR0000FF;
EXPLAINEX(1>0,'前 半 = ',前半,0,0) COLORFFFFFF;
EXPLAINEX(1>0,'前 低 = ',前L,0,0) COLOR00FF00;
EXPLAINEX(1>0,'前 開 = ',前O,0,0) COLOR00FFFF;
EXPLAINEX(1>0,'前 收 = ',前C,0,0) COLORFFFF00;

由 cgjj 在 2020-03-26 23:42 發表:

回覆: 版主大大 好厲害 測試過沒問題

引用:
最初由 ivancclai 發表
版主大大, 我又另一個問題: 我將程式修改成我要顯示方式, 在技術圖上右邊使用介面為解釋盤顯示 關鍵名稱, 價位及顏色

我的問題是右邊顯示 可否以價位由高志低排列顯示, 方便看圖, 我不知道要如何處理, 設置陣列, 排序, 再顯示, 是否可以請你幫我寫範例參考, 謝謝版主大大

// ============== 開高低收 ================================
DECK:Tradedate<>ref(Tradedate,1);
D1SP:barslast(DECK);

NP : DYNAINFO( 7) COLORFFFF00 LINEDOT;
DRAWNUMBER(ISLASTBAR,NP,NP,0) SHIFT1 colorFFFF00 PXUP20;
DRAWTEXT(ISLASTBAR,NP,'最新價') SHIFT5 colorFFFF00 PXUP20;

今O:ref(O,D1SP) color00FFFF LINEDOT;
今H:HHV(H,D1SP+1) COLOR0000FF LINEDOT;
今L:LLV(L,D1SP+1) COLOR00FF00 LINEDOT;
今半: (今H+今L)/2 COLORFFFFFF LINEDOT;

// EXPLAIN(1>0,'============'),colorFFFFFF;

DRAWNUMBER(ISLASTBAR,今O,今O,0) SHIFT1,color00FFFF;
DRAWTEXT(ISLASTBAR,今O,'今開') SHIFT5,color00FFFF;
// EXPLAINEX(1>0,'今開= ',今O,0,0) COLOR00FFFF;

DRAWNUMBER(ISLASTBAR,今H,今H,0) SHIFT1,color0000FF;
DRAWTEXT(ISLASTBAR,今H,'今高') SHIFT5,color0000FF;
// EXPLAINEX(1>0,'今高= ',今H,0,0) COLOR0000FF;

DRAWNUMBER(ISLASTBAR,今L,今L,0) SHIFT1,color00FF00;
DRAWTEXT(ISLASTBAR,今L,'今低') SHIFT5,color00FF00;
// EXPLAINEX(1>0,'今低= ',今L,0,0) COLOR00FF00;

DRAWNUMBER(ISLASTBAR,今半,今半,0) SHIFT1,colorFFFFFF;
DRAWTEXT(ISLASTBAR,今半,'今半') SHIFT5,colorFFFFFF;
// EXPLAINEX(1>0,'今半= ',今半,0,0) COLORFFFFFF;

D2SP:=sumbars(DECK,2)-1;
昨O:ref(O,D2SP) COLOR00FFFF ;
昨H:ref(今H,D1SP+1) COLOR0000FF ;
昨L:ref(今L,D1SP+1) COLOR00FF00 ;
昨C:ref(C,D1SP+1) COLORFFFF00 ;
昨半: (昨H+昨L)/2 COLORFFFFFF;

DRAWNUMBER(ISLASTBAR,昨O,昨O,0) SHIFT1,color00FFFF;
DRAWTEXT(ISLASTBAR,昨O,'昨開') SHIFT5,color00FFFF;
// EXPLAINEX(1>0,'昨開= ',昨O,0,0) COLOR00FFFF;

DRAWNUMBER(ISLASTBAR,昨C,昨C,0) SHIFT1,colorFFFF00;
DRAWTEXT(ISLASTBAR,昨C,'昨收') SHIFT5,colorFFFF00;
// EXPLAINEX(1>0,'昨收= ',昨O,0,0) COLORFFFF00;

DRAWNUMBER(ISLASTBAR,昨H,昨H,0) SHIFT1,color0000FF;
DRAWTEXT(ISLASTBAR,昨H,'昨高') SHIFT5,color0000FF;
// EXPLAINEX(1>0,'昨高= ',昨H,0,0) COLOR0000FF;

DRAWNUMBER(ISLASTBAR,昨L,昨L,0) SHIFT1,color00FF00;
DRAWTEXT(ISLASTBAR,昨L,'昨低') SHIFT5,color00FF00;
// EXPLAINEX(1>0,'昨低= ',昨L,0,0) COLOR00FF00;

DRAWNUMBER(ISLASTBAR,昨半,昨半,0) SHIFT1,colorFFFFFF;
DRAWTEXT(ISLASTBAR,昨半,'昨半') SHIFT5,colorFFFFFF;
// EXPLAINEX(1>0,'昨半= ',昨半,0,0) COLORFFFFFF;

D3SP:=sumbars(DECK,3)-1;

前O:ref(O,D3SP) COLOR00FFFF;
前H:ref(今H,D2SP+1) COLOR0000FF;
前L:ref(今L,D2SP+1) COLOR00FF00;
前C:ref(C,D2SP+1) COLORFFFF00;
前半: (前H+前L)/2 COLORFFFFFF;

DRAWNUMBER(ISLASTBAR,前O,前O,0) SHIFT1,color00FFFF;
DRAWTEXT(ISLASTBAR,前O,'前開') SHIFT5,color00FFFF;
// EXPLAINEX(1>0,'前開= ',前O,0,0) COLOR00FFFF;

DRAWNUMBER(ISLASTBAR,前C,前C,0) SHIFT1,colorFFFF00;
DRAWTEXT(ISLASTBAR,前C,'前收') SHIFT5,colorFFFF00;
// EXPLAINEX(1>0,'前收= ',前O,0,0) COLORFFFF00;

DRAWNUMBER(ISLASTBAR,前H,前H,0) SHIFT1,color0000FF;
DRAWTEXT(ISLASTBAR,前H,'前高') SHIFT5,color0000FF;
// EXPLAINEX(1>0,'前高= ',前H,0,0) COLOR0000FF;

DRAWNUMBER(ISLASTBAR,前L,前L,0) SHIFT1,color00FF00;
DRAWTEXT(ISLASTBAR,前L,'前低') SHIFT5,color00FF00;
// EXPLAINEX(1>0,'前低= ',前L,0,0) COLOR00FF00;

DRAWNUMBER(ISLASTBAR,前半,前半,0) SHIFT1,colorFFFFFF;
DRAWTEXT(ISLASTBAR,前半,'前半') SHIFT5,colorFFFFFF;
// EXPLAINEX(1>0,'前半= ',前半,0,0) COLORFFFFFF;

EXPLAINEX(1>0,'=====',DATE,0,0),colorFFFFFF;
EXPLAINEX(1>0,'今 高 = ',今H,0,0) COLOR0000FF;
EXPLAINEX(1>0,'今 半 = ',今半,0,0) COLORFFFFFF;
EXPLAINEX(1>0,'今 低 = ',今L,0,0) COLOR00FF00;
EXPLAINEX(1>0,'今 開 = ',今O,0,0) COLOR00FFFF;
EXPLAINEX(1>0,'新價線= ',NP ,0,0) COLORFFFF00;
EXPLAIN(1>0,'============'),colorFFFFFF;
EXPLAINEX(1>0,'昨 高 = ',昨H,0,0) COLOR0000FF;
EXPLAINEX(1>0,'昨 半 = ',昨半,0,0) COLORFFFFFF;
EXPLAINEX(1>0,'昨 低 = ',昨L,0,0) COLOR00FF00;
EXPLAINEX(1>0,'昨 開 = ',昨O,0,0) COLOR00FFFF;
EXPLAINEX(1>0,'昨 收 = ',昨C,0,0) COLORFFFF00;
EXPLAIN(1>0,'============'),colorFFFFFF;
EXPLAINEX(1>0,'前 高 = ',前H,0,0) COLOR0000FF;
EXPLAINEX(1>0,'前 半 = ',前半,0,0) COLORFFFFFF;
EXPLAINEX(1>0,'前 低 = ',前L,0,0) COLOR00FF00;
EXPLAINEX(1>0,'前 開 = ',前O,0,0) COLOR00FFFF;
EXPLAINEX(1>0,'前 收 = ',前C,0,0) COLORFFFF00;


分區排高低? 還是整合全部排高低?

由 ivancclai 在 2020-03-27 04:48 發表:

整合後排高低

版主大大:


整合後排高低, 因為加上最新價, 就容易看到目前的關卡價, 單一排高低, 我會做, 但是不容易閱讀, 便要從線圖上看, 有時候價位擠在一起不容易閱讀 謝謝版主大大

由 cgjj 在 2020-03-27 10:30 發表:

回覆: 整合後排高低

引用:
最初由 ivancclai 發表
版主大大:


整合後排高低, 因為加上最新價, 就容易看到目前的關卡價, 單一排高低, 我會做, 但是不容易閱讀, 便要從線圖上看, 有時候價位擠在一起不容易閱讀 謝謝版主大大


只有看最新值的需求對吧?
若要連同歷史的排序，計算量會大很多!

由 ivancclai 在 2020-03-27 10:41 發表:

版主大大, 只要當下最新值,

若計算量太大, 是否可以設參數, 多久更新一次, 顯示參數值 , 昨天以前的數據是不會變, 今天的數據除了今開, 其他幾乎會變, 不行我會將變化的數據量降低

謝謝版主大大

由 cgjj 在 2020-03-27 13:39 發表:

回覆: 版主大大, 只要當下最新值,

引用:
最初由 ivancclai 發表
若計算量太大, 是否可以設參數, 多久更新一次, 顯示參數值 , 昨天以前的數據是不會變, 今天的數據除了今開, 其他幾乎會變, 不行我會將變化的數據量降低

謝謝版主大大 


原碼:
VARIABLE:P[15]=0,T[15]='';
P[01]:=dynainfo(5);
P[03]:=dynainfo(6);
P[04]:=dynainfo(4);
P[05]:=dynainfo(7);
P[02]:=(P[01]+P[03])/2;
DECK:=Tradedate<>ref(Tradedate,1); 
NowF:=0; OldF:=0;
OO:=O; CC:=C; HH:=H; LL:=L;
for i=datacount downto 1 do begin
  if NowF<>OldF then begin
    OldF:=NowF;
    P[NowF*5+5]:=CC[i]; 
    MHZ:=NowF*5+1; MLZ:=NowF*5+3;
    P[MHZ]:=HH[i]; P[MLZ]:=LL[i];
  end;
  if NowF>0 then begin
    if HH[i]>P[MHZ] then P[MHZ]:=HH[i];
    if LL[i]<P[MLZ] then P[MLZ]:=LL[i];
  end;
  if DECK[i]=1 then begin
    if NowF>0 then begin
      P[NowF*5+4]:=OO[i];
      P[NowF*5+2]:=(P[MHZ]+P[MLZ])/2;
    end;
    NowF:=NowF+1;
    if NowF=3then break;
  end;
end;
T[01]:='今高='+numtostr(P[01],0);
T[02]:='今半='+numtostr(P[02],0);
T[03]:='今低='+numtostr(P[03],0);
T[04]:='今開='+numtostr(P[04],0);
T[05]:='最新='+numtostr(P[05],0);
T[06]:='昨高='+numtostr(P[06],0);
T[07]:='昨半='+numtostr(P[07],0);
T[08]:='昨低='+numtostr(P[08],0);
T[09]:='昨開='+numtostr(P[09],0);
T[10]:='昨收='+numtostr(P[10],0);
T[11]:='前高='+numtostr(P[11],0);
T[12]:='前半='+numtostr(P[12],0);
T[13]:='前低='+numtostr(P[13],0);
T[14]:='前開='+numtostr(P[14],0);
T[15]:='前收='+numtostr(P[15],0);
x:=SORTPOS(P,1,1,15);
EXPLAIN(1,T[P[01]]);
EXPLAIN(1,T[P[02]]);
EXPLAIN(1,T[P[03]]);
EXPLAIN(1,T[P[04]]);
EXPLAIN(1,T[P[05]]);
EXPLAIN(1,T[P[06]]);
EXPLAIN(1,T[P[07]]);
EXPLAIN(1,T[P[08]]);
EXPLAIN(1,T[P[09]]);
EXPLAIN(1,T[P[10]]);
EXPLAIN(1,T[P[11]]);
EXPLAIN(1,T[P[12]]);
EXPLAIN(1,T[P[13]]);
EXPLAIN(1,T[P[14]]);
EXPLAIN(1,T[P[15]]);

由 ivancclai 在 2020-03-28 03:39 發表:

謝謝版主大大

佩服, 太神速了, 回答問題的效率

由 ivancclai 在 2020-03-29 04:23 發表:

版主大大, 我還有個問題, 不知如何解決,

如何更改排序完的顏色,因為對陣列不熟悉, 可否請版主給我範例

謝謝

由 cgjj 在 2020-03-29 12:48 發表:

回覆: 版主大大, 我還有個問題, 不知如何解決,

引用:
最初由 ivancclai 發表
如何更改排序完的顏色,因為對陣列不熟悉, 可否請版主給我範例

謝謝


不建議像原來那樣配色!
會需要非常多行程式，來因應顏色隨之變換
另外視覺上，顏色組合後也可能會很混亂

由 ivancclai 在 2020-03-29 17:08 發表:

版主大大, 謝謝你的建議

是否可以將最新價的顏色跟其他不一樣可以 , 若要這樣做 ,有無建議, 謝謝

由 ivancclai 在 2020-03-29 18:16 發表:

版主大大, 你的建議不錯

朝單色顯示方向處理,
T[04]:='今 開 = '+NUMTOSTR(P[04],0);
T[05]:='@最 新= '+NUMTOSTR(P[05],0);
T[05]:= T[05]+' @';
T[06]:='昨 高 = '+NUMTOSTR(P[06],0);
最新價 若不用其他顏色處理< 我暫時用這樣處理
也是很快可以目前的價位位置,


我有另一個問題, 我如何在這陣列做延伸
另如將三關價價入 中關價= 昨半, 我會處理, 但是上關價及下關價, 我不知道要如何加入.

還要請版主大大教我如何處理, 謝謝版主大大

由 cgjj 在 2020-03-30 10:50 發表:

回覆: 版主大大, 你的建議不錯

引用:
最初由 ivancclai 發表
朝單色顯示方向處理,
T[04]:='今 開 = '+NUMTOSTR(P[04],0);
T[05]:='@最 新= '+NUMTOSTR(P[05],0);
T[05]:= T[05]+' @';
T[06]:='昨 高 = '+NUMTOSTR(P[06],0);
最新價 若不用其他顏色處理< 我暫時用這樣處理
也是很快可以目前的價位位置,


我有另一個問題, 我如何在這陣列做延伸
另如將三關價價入 中關價= 昨半, 我會處理, 但是上關價及下關價, 我不知道要如何加入.

還要請版主大大教我如何處理, 謝謝版主大大 


原碼:
UNum:=18;
VARIABLE:P[UNum]=0,T[UNum]='';
P[01]:=dynainfo(5);
P[03]:=dynainfo(6);
P[04]:=dynainfo(4);
P[05]:=dynainfo(7);
P[02]:=(P[01]+P[03])/2;
DECK:=Tradedate<>ref(Tradedate,1); 
NowF:=0; OldF:=0;
OO:=O; CC:=C; HH:=H; LL:=L;
for i=datacount downto 1 do begin
  if NowF<>OldF then begin
    OldF:=NowF;
    P[NowF*5+5]:=CC[i]; 
    MHZ:=NowF*5+1; MLZ:=NowF*5+3;
    P[MHZ]:=HH[i]; P[MLZ]:=LL[i];
  end;
  if NowF>0 then begin
    if HH[i]>P[MHZ] then P[MHZ]:=HH[i];
    if LL[i]<P[MLZ] then P[MLZ]:=LL[i];
  end;
  if DECK[i]=1 then begin
    if NowF>0 then begin
      P[NowF*5+4]:=OO[i];
      P[NowF*5+2]:=(P[MHZ]+P[MLZ])/2;
    end;
    NowF:=NowF+1;
    if NowF=3 then break;
  end;
end;
P[16]:=上關價[datacount];
P[17]:=中關價[datacount];
P[18]:=下關價[datacount];
T[01]:='今高='+numtostr(P[01],0);
T[02]:='今半='+numtostr(P[02],0);
T[03]:='今低='+numtostr(P[03],0);
T[04]:='今開='+numtostr(P[04],0);
T[05]:='最新='+numtostr(P[05],0);
T[06]:='昨高='+numtostr(P[06],0);
T[07]:='昨半='+numtostr(P[07],0);
T[08]:='昨低='+numtostr(P[08],0);
T[09]:='昨開='+numtostr(P[09],0);
T[10]:='昨收='+numtostr(P[10],0);
T[11]:='前高='+numtostr(P[11],0);
T[12]:='前半='+numtostr(P[12],0);
T[13]:='前低='+numtostr(P[13],0);
T[14]:='前開='+numtostr(P[14],0);
T[15]:='前收='+numtostr(P[15],0);
T[16]:='上關='+numtostr(P[16],0);
T[17]:='中關='+numtostr(P[17],0);
T[18]:='下關='+numtostr(P[18],0);
x:=SORTPOS(P,1,1,UNum);
EXPLAIN(P[01]<>5,T[P[01]]) color00ffff;
EXPLAIN(P[01]=5 ,T[P[01]]) color0000ff;
EXPLAIN(P[02]<>5,T[P[02]]) color00ffff;
EXPLAIN(P[02]=5 ,T[P[02]]) color0000ff;
EXPLAIN(P[03]<>5,T[P[03]]) color00ffff;
EXPLAIN(P[03]=5 ,T[P[03]]) color0000ff;
EXPLAIN(P[04]<>5,T[P[04]]) color00ffff;
EXPLAIN(P[04]=5 ,T[P[04]]) color0000ff;
EXPLAIN(P[05]<>5,T[P[05]]) color00ffff;
EXPLAIN(P[05]=5 ,T[P[05]]) color0000ff;
EXPLAIN(P[06]<>5,T[P[06]]) color00ffff;
EXPLAIN(P[06]=5 ,T[P[06]]) color0000ff;
EXPLAIN(P[07]<>5,T[P[07]]) color00ffff;
EXPLAIN(P[07]=5 ,T[P[07]]) color0000ff;
EXPLAIN(P[08]<>5,T[P[08]]) color00ffff;
EXPLAIN(P[08]=5 ,T[P[08]]) color0000ff;
EXPLAIN(P[09]<>5,T[P[09]]) color00ffff;
EXPLAIN(P[09]=5 ,T[P[09]]) color0000ff;
EXPLAIN(P[10]<>5,T[P[10]]) color00ffff;
EXPLAIN(P[10]=5 ,T[P[10]]) color0000ff;
EXPLAIN(P[11]<>5,T[P[11]]) color00ffff;
EXPLAIN(P[11]=5 ,T[P[11]]) color0000ff;
EXPLAIN(P[12]<>5,T[P[12]]) color00ffff;
EXPLAIN(P[12]=5 ,T[P[12]]) color0000ff;
EXPLAIN(P[13]<>5,T[P[13]]) color00ffff;
EXPLAIN(P[13]=5 ,T[P[13]]) color0000ff;
EXPLAIN(P[14]<>5,T[P[14]]) color00ffff;
EXPLAIN(P[14]=5 ,T[P[14]]) color0000ff;
EXPLAIN(P[15]<>5,T[P[15]]) color00ffff;
EXPLAIN(P[15]=5 ,T[P[15]]) color0000ff;
EXPLAIN(P[16]<>5,T[P[16]]) color00ffff;
EXPLAIN(P[16]=5 ,T[P[16]]) color0000ff;
EXPLAIN(P[17]<>5,T[P[17]]) color00ffff;
EXPLAIN(P[17]=5 ,T[P[17]]) color0000ff;
EXPLAIN(P[18]<>5,T[P[18]]) color00ffff;
EXPLAIN(P[18]=5 ,T[P[18]]) color0000ff;
全部時間均為台灣時間, 現在時間為03:26 總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 18 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.