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

引用:

---

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

---

引用:

---

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

---

引用:

---

最初由 james-hch 發表
是的

---

原碼:
標的類名:='台指';
板塊名稱:=標的類名+'選權';
期指結算日:=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;