奇狐社區論壇 - 如何將期指的內外盤差轉成柱狀指標?

總頁數 (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=10291)

由 cgjj 在 2011-01-07 09:45 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 如何將期指

引用:
最初由 yisong 發表
請教版主該如何改呢?試了很多種方式，但都沒出現數值，請版主幫忙，謝謝

都沒有出現數值, 可能是因為您僅輸入 '自選' 兩字, 少了 '股' 字

原碼:UseBlk:='自選股'; //設定統計的板塊
StkNum:=STKCOUNT(UseBlk);
外盤:C*0 linethick0;
內盤:C*0 linethick0;
for SNo:=1 to StkNum do begin
  UseStk:=STKFROMBLK(UseBlk,SNo);
  Add外盤:=STKINDI(UseStk,'盤差_MIN1.外盤',0,1);
  Add內盤:=STKINDI(UseStk,'盤差_MIN1.內盤',0,1);
  if Lbound(Add外盤)>0 then begin
    外盤:=外盤+if(barpos<lbound(Add外盤),0,Add外盤);
    內盤:=內盤+if(barpos<lbound(Add內盤),0,Add內盤);
  end;
end;
差:外盤-內盤 linethick0 COLORMAGENTA;
STICKLINE(差>=0,0,差,7,0) COLORRED;
STICKLINE(差<0,0,差,7,0) COLORWHITE;

由 yisong 在 2011-01-07 12:06 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 如何

引用:

最初由 cgjj 發表
都沒有出現數值, 可能是因為您僅輸入 '自選' 兩字, 少了 '股' 字

原碼:UseBlk:='自選股'; //設定統計的板塊
StkNum:=STKCOUNT(UseBlk);
外盤:C*0 linethick0;
內盤:C*0 linethick0;
for SNo:=1 to StkNum do begin
  UseStk:=STKFROMBLK(UseBlk,SNo);
  Add外盤:=STKINDI(UseStk,'盤差_MIN1.外盤',0,1);
  Add內盤:=STKINDI(UseStk,'盤差_MIN1.內盤',0,1);
  if Lbound(Add外盤)>0 then begin
    外盤:=外盤+if(barpos<lbound(Add外盤),0,Add外盤);
    內盤:=內盤+if(barpos<lbound(Add內盤),0,Add內盤);
  end;
end;
差:外盤-內盤 linethick0 COLORMAGENTA;
STICKLINE(差>=0,0,差,7,0) COLORRED;
STICKLINE(差<0,0,差,7,0) COLORWHITE;

在我的程式裡面有加入自選股，但目前問題是版主說的
"但您迴圈中少了累計總和的部份，也少了無效數列的檢驗判斷"
不知如何加入這兩個部分，請版主幫幫忙，謝謝

由 cgjj 在 2011-01-07 12:14 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 yisong 發表
在我的程式裡面有加入自選股，但目前問題是版主說的
"但您迴圈中少了累計總和的部份，也少了無效數列的檢驗判斷"
不知如何加入這兩個部分，請版主幫幫忙，謝謝

前面回覆的原碼, 已包含此兩部份的程式處理

外盤的 lbound 必定相等內盤
故可簡化到僅用 lbound(外盤) 來檢驗

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

總頁數 (2): « 1 [2]
在這個頁面顯示本主題全部的 18 個文章