奇狐社區論壇 - 請教版大如何寫台指近及次月最大未平倉量買賣各一指標線

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題支援 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=53)
-- 請教版大如何寫台指近及次月最大未平倉量買賣各一指標線 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=20864)

由 james-hch 在 2017-05-19 20:46 發表:

請教版大如何寫台指近及次月最大未平倉量買賣各一指標線

請教版大如何寫台指近買賣權及次月買賣權最大未平倉量買賣權各一指標線? 謝謝版大.

由 cgjj 在 2017-05-19 22:38 發表:

回覆: 請教版大如何寫台指近及次月最大未平倉量買賣各一指標線

引用:
最初由 james-hch 發表
請教版大如何寫台指近買賣權及次月買賣權最大未平倉量買賣權各一指標線? 謝謝版大.

算月契約的選擇權嗎?
共四個 "量" 值是嗎?

由 james-hch 在 2017-05-22 18:24 發表:

回覆: 回覆: 請教版大如何寫台指近及次月最大未平倉量買賣各一指標線

引用:
最初由 cgjj 發表
算月契約的選擇權嗎?
共四個 "量" 值是嗎?

是的

由 cgjj 在 2017-05-23 11:23 發表:

回覆: 回覆: 回覆: 請教版大如何寫台指近及次月最大未平倉量買賣各一指標線

引用:
最初由 james-hch 發表
是的

這是計算當月選權的範例

若要改為計算次月，請將這行
期指結算日:=OPTIONLASTDAY('FITX1');
改為
期指結算日:=OPTIONLASTDAY('FITX2');

原碼:標的類名:='台指';
板塊名稱:=標的類名+'選權';
期指結算日:=OPTIONLASTDAY('FITX1');
Temp結算日:=期指結算日[datacount];
SYear:=MOD(FLOOR(Temp結算日/10000),10);
SMonth:=FLOOR(MOD(Temp結算日,10000)/100);

CallMaxOI:0 LINEDOT COLOR3333FF;
PutMaxOI:0 LINEDOT COLOR00FF00;

YMSTR:=STRRIGHT('00'+NUMTOSTR(SYear*100+SMonth,0),3);
CmpName:=YMSTR+標的類名;
CmpNameLen:=STRLEN(CmpName);
履約價數:=0;
for i= 1 to STKCOUNT(板塊名稱) do begin
  UseStkName:=STKNAMEEX(STKFROMBLK(板塊名稱,i));
  if CmpName = STRLEFT(UseStkName,CmpNameLen) then begin
    OI:=STKINDI(STKLABELN(UseStkName),'PUT/CALL未平倉總_子公式.OI',0,-1);
    OI:=if(barpos>lbound(OI) and lbound(OI)>0,OI,0);
    if STRMID(UseStkName,CmpNameLen+1,1)='C' then CallMaxOI:=MAX(CallMaxOI,OI);
    if STRMID(UseStkName,CmpNameLen+1,1)='P' then PutMaxOI:=MAX(PutMaxOI,OI);
    履約價數:=履約價數+1;
  end;
end;
履約價數:=履約價數/2;
CallMaxOI:=CallMaxOI*(BARSSINCE(CallMaxOI>0)>=0);
PutMaxOI:=PutMaxOI*(BARSSINCE(PutMaxOI>0)>=0);
UseSTR:='【'+標的類名+YMSTR+'】\n 共'+NUMTOSTR(履約價數,0)+'個價';
DRAWTEXTEX(1,0,0,0,UseSTR) COLORMAGENTA;

全部時間均為台灣時間, 現在時間為02:37

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